|
Hallo Zusammen,
ich habe eine Frage bezüglich eines VBA-Codes.
Es geht um eine Datei, die eine Übersichtsseite hat und danach einige Detail-Blätter
Auf der Übersichtsseite habe ich eine UserForm erstellt, mit der man über einige Auswahlfelder eine Tabelle befüllt.
In der Userform wählt man unter anderem bestimmte Arbeitsschritte pro Produkt aus - diese sollen von einem Makro automatisiert gefunden, kopiert und in das korrekte Detail-Tabellenblatt eingefügt werden.
Hier mein Code bisher - Das Problem ist, dass die Variable "last", die, die nächste freie Zelle auf dem Detail-Tabellenblatt ermitteln soll, nicht weiter hochzählt in der For-Schleife. Wie kann ich das am besser lösen?
Dim n As Integer 'Laufvariable für For-Schleife
Dim size As Integer 'Tabellengröße ermitteln auf der Übersichtsseite
Dim last As Integer 'Erste freie Zelle auf der Detailseite finden
last = Worksheets("Sägen").Cells(Rows.Count, 1).End(xlUp).Row + 1
size = WorksheetFunction.CountA(Worksheets(1).Columns(1))
'Das Übersichtsblatt wird angesprochen
ThisWorkbook.Worksheets("Übersicht").Activate
For n = 2 To size
If Cells(n, 5).Value = "Ja" Then
Worksheets("Übersicht").Cells(n, 1).Copy Destination:=Worksheets("Sägen").Cells(last, 1)
End If
MsgBox "Erste freie Zeile in Spalte A: " & last
Next n
End Sub
|