Schleife in Schleife Probleme
11.05.2013 19:02:17
Matze
...was versteht denn der Matze heute wieder nicht richtig?
Die For A Schleife arbeitet sich ab, soweit gut, aber:
die For i Schleife wird nur im letzten Sheet ausgeführt, also im letzten For A durchlauf.
bin wieder im großen Wald mit den ,...wo sind die Bäume?
hier die Codezeilen:
Option Explicit
Private Sub CommandButton1_Click()
Dim Zeile As Long, Loletzte As Long
Dim i As Long, A As Long
Dim Zelle As Range, Bereich As Range
Application.ScreenUpdating = False
'bevor die Schleifen starten die Daten übertragen
'Call UebergabeVormontageNachIstbestandSpalteG
For A = 6 To ActiveWorkbook.Sheets.Count '5 Sheets
ActiveWorkbook.Sheets(A).Select
ActiveWorkbook.Sheets(A).Activate
Zeile = Cells(Rows.Count, 2).End(xlUp).Row
'Alle 5 Sheets sind gleich aufgebaut
For i = 3 To 6 'Anzahl zu überprüfender Zeilen
If Application.WorksheetFunction.Count(Range("F" & i & ":H" & i)) > 0 Then
Range(Cells(i, 3), Cells(i, 13)).Copy
Range("C" & Zeile + 1).PasteSpecial Paste:=xlPasteValues
Range("B" & Zeile + 1) = Date & " - " & Format(Time, "hh:mm")
Application.CutCopyMode = False
Zeile = Zeile + 1
End If
Next i
Range("F3:H6").ClearContents 'leeren der Eingabefelder
Next A
Application.ScreenUpdating = True
End Sub