Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 561 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 558, 559, 560, 561, 562, 563, 564 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Zellen Ausgeben 
Phelan XLPH

Antworten: 4
Aufrufe: 170

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Aug 2009, 23:05   Titel: AW: Zellen Ausgeben Version: Office 2003
Hast du den Code getestet?
  Thema: Zellen Ausgeben 
Phelan XLPH

Antworten: 4
Aufrufe: 170

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Aug 2009, 23:02   Titel: AW: Zellen Ausgeben Version: Office 2003
Sub x()
Dim i As Long
Dim lz As Long
Dim k As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row
k = 1
For i = 1 To lz
Select Case k
Case 1: Cells(i, 2) = Cells(i, 1): k = 2
Case 2: Cells(i, 2) = Cells(i + 1, 1): k = 3
Case 3: Cells(i, 2) = Cells(i - 1, 1): k = 1
End Select
Next
End Sub
  Thema: Datenblöcke verschieben 
Phelan XLPH

Antworten: 10
Aufrufe: 331

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Aug 2009, 22:39   Titel: AW: Datenblöcke verschieben Version: Office 2k (2000)
Leerzeilen spielen keine Rolle. Es wird danach geprüft:
suchwort = "[info.wbz]"
  Thema: Nur Sheet-Anzeige... ? 
Phelan XLPH

Antworten: 2
Aufrufe: 203

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Aug 2009, 22:31   Titel: AW: Nur Sheet-Anzeige... ? Version: Office 2003
hallo, vielleicht kannst du hiermit was anfangen:
Application.DisplayFullScreen = True

..kannst du mit ESC zrücksetzen
  Thema: #DIV/O und #WERT! Fehler ???? 
Phelan XLPH

Antworten: 1
Aufrufe: 240

BeitragForum: Excel Formeln   Verfasst am: 23. Aug 2009, 09:10   Titel: AW: #DIV/O und #WERT! Fehler ???? Version: Office 2007
moin,

E1: =WENNFEHLER(D1/A1;"")
F1: =WENNFEHLER(A1*100/C1;"")
  Thema: Datenblöcke verschieben 
Phelan XLPH

Antworten: 10
Aufrufe: 331

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 21:01   Titel: AW: Datenblöcke verschieben Version: Office 2k (2000)
Sub TxtToTxt()
Dim txtIn As String, arr As Variant
Dim i As Long, suchwort As String, txtOut As String
Dim QuellDatei As String, ZielDatei As String
Dim txtHeader As String, blnHeader As Boolean

QuellDatei = "D:\test\blocktrans.txt" 'Anpassen
ZielDatei = "D:\test\blocktransOUT.txt" 'Anpassen
suchwort = "[info.wbz]" 'ggf. Anpassen 1. Blockzeile

'Einlesen
Open QuellDatei For Input As #1
txtIn = Input(LOF(1), #1)
Close #1
'Verarbeiten
arr = Split(txtIn, vbCrLf)
For i = LBound(arr) To UBound(arr)
If Trim$(arr(i)) = "" Then
txtOut = Left$(txtOut, Len(txtOut) - 1) & vbCrLf
blnHeader = True
Else
If InStr(arr(i), "=") > 0 Then
If Not blnHeader Then
txtHeader = txtHeader & ";" & Trim$(Split(arr( ...
  Thema: Datenblöcke verschieben 
Phelan XLPH

Antworten: 10
Aufrufe: 331

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 20:18   Titel: AW: Datenblöcke verschieben Version: Office 2k (2000)
Also aus einer Textdatei in eine Textdatei die Blöcke transponiert, durch Komma
getrennt?

Das wäre doch was! oder????
  Thema: Datenblöcke verschieben 
Phelan XLPH

Antworten: 10
Aufrufe: 331

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 20:08   Titel: AW: Datenblöcke verschieben Version: Office 2k (2000)
Wo stehen die Daten und wohin sollen sie geschrieben werden.
...in welche/r Datei?
  Thema: VBA Excel anpassen 
Phelan XLPH

Antworten: 34
Aufrufe: 1572

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 19:23   Titel: AW: VBA Excel anpassen Version: Office 2003
Sub Combo2()
Dim i As Integer
Dim LValue As Long

'-- ComboBox2 leeren
Tabelle5.ComboBox2.Clear

'-------------------------------------------------------------------------------------------
'-- Wenn ComboBox1 = Januar, ect., dann liste das Datum in der ComboBox2 auf

For i = 1 To Day(DateSerial(Year(Date), ComboBox1.ListIndex + 2, 0))
Tabelle5.ComboBox2.AddItem DateSerial(Year(Date), ComboBox1.ListIndex + 1, i)
Next

'-- Liste mit dem erstem Wert anfangen
ComboBox2.ListIndex = 0
'-------------------------------------------------------------------------------------------

End Sub

Sub Combo2 geändert
  Thema: Vergleich und Einfügen von Datensätzen 
Phelan XLPH

Antworten: 2
Aufrufe: 170

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 18:14   Titel: AW: Vergleich und Einfügen von Datensätzen Version: Office 2003
Sub x()
Dim arr As Variant
Dim i As Long
Dim c As Range
Dim firstAddress As String

With Worksheets("Tabelle2")
arr = .Range("A1", .Cells(Rows.Count, 1).End(xlUp))
End With

For i = 1 To UBound(arr)
If InStr(arr(i, 1), ".") > 0 Then
With Worksheets("Tabelle1").Range("A:A")
Set c = .Find(Split(arr(i, 1), ".")(0), LookIn:=xlValues)
If Not c Is Nothing Then
c.Offset(1).EntireRow.Insert
c.Offset(1) = arr(i, 1)
End If
End With
End If
Next
End Sub
  Thema: Alle Arbeitsblätter einzeln als CSV speichern 
Phelan XLPH

Antworten: 12
Aufrufe: 4998

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 15:49   Titel: AW: Alle Arbeitsblätter einzeln als CSV speichern Version: Office 2007
Sub ExportAsCsv()
Dim strFileToOpen As Variant
Dim i As Integer
Dim strSpeicherPfad As String
Dim strSpeicherDatei As String
Dim wkb As Workbook
Dim wks As Worksheet
Dim Regex As Object
Dim strTrennZeichen As String

strFileToOpen = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls", , , , True)
If Not IsArray(strFileToOpen) Then Exit Sub


On Error GoTo ENDE
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

strSpeicherPfad = "D:\test\" 'Anpassen

For i = 1 To UBound(strFileToOpen)
Set wkb = Workbooks.Open(strFileToOpen(i), 0)
For Each wks In wkb.Worksheets
strSpeicherDatei = Left$(wkb.Name, InStrRev(wkb.Name, ".") - 1) & "_" & wks.Name & ".csv"
wks.UsedRange.Copy
Open strSpeicherPfad & strSpeicherDatei For Outpu ...
  Thema: Zeile drucken 
Phelan XLPH

Antworten: 11
Aufrufe: 421

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 00:25   Titel: AW: Zeile drucken Version: Office 2k (2000)
pack den String in eine Zelle. druck diese aus und lösch den Zelleninhalt
hinterher.
  Thema: Zeile drucken 
Phelan XLPH

Antworten: 11
Aufrufe: 421

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Aug 2009, 00:00   Titel: AW: Zeile drucken Version: Office 2k (2000)
Sub x()
Range("A1").PrintOut
End Sub
  Thema: in der Berechnung aktive Blätter je Blatt angeben 
Phelan XLPH

Antworten: 3
Aufrufe: 284

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Aug 2009, 18:50   Titel: AW: in der Berechnung aktive Blätter je Blatt angeben Version: Office 2003
Berechnet nur den markierten Bereich oder aktive Blatt:

Sub FormelBerechnen()
Dim calc As Integer
calc = Application.Calculation
Application.Calculation = xlCalculationManual
Selection.Calculate
'ActiveSheet.Calculate
Application.Calculation = xlCalculationManual
End Sub
  Thema: bestimmte datensätze in neue Tabelle kopieren 
Phelan XLPH

Antworten: 2
Aufrufe: 336

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Aug 2009, 18:43   Titel: AW: bestimmte datensätze in neue Tabelle kopieren Version: Office 2007
Hier ein Bsp
 
Seite 561 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 558, 559, 560, 561, 562, 563, 564 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps