habe folgendes Problem:
habe untenstehenden Makro im meiner Excelstart-Datei eingefügt.
Wenn ich diesen jetzt ausführe, will er auf das erste Tabellenblatt der Startdatei zugreifen. Ich möchte aber, dass er auf das erste Blatt der von mir aktiv geöffneten Datei zugreift.
So das ich dynamisch jede x-beliebige Datei bearbeiten kann.
Hier der VBA
Sub Test()
For i = 1 To Range("E65536").End(xlUp).Row
If Cells(i, 5) >= 55000 And Cells(i, 5) <= 55999 Then
Cells(i, 8) = Cells(i, 5)
Else
If i <> 1 Then Cells(i, 8) = Cells(i - 1, 8)
End If
Next i
Application.ScreenUpdating = False
For i = 1 To Sheets(1).Range("c65536").End(xlUp).Row
If IsNumeric(Sheets(1).Cells(i, 3)) = True Then
Sheets(1).Rows(i & ":" & i).Copy
Sheets(2).Select
For ii = 1 To 65536
If Sheets(2).Cells(ii, 3) = "" Then Exit For
Next ii
Sheets(2).Cells(ii, 1).Select
ActiveSheet.Paste
Sheets(1).Select
End If
Next i
Range("A1").Select
Application.ScreenUpdating = True
Sheets(2).Range("A1") = "Name"
Sheets(2).Range("B1") = "Vorname"
Sheets(2).Range("C1") = "PersonalNr"
Sheets(2).Range("D1") = "Saldo1"
Sheets(2).Range("E1") = "Saldo2"
Sheets(2).Range("F1") = "Saldo3"
Sheets(2).Range("G1") = "Saldo4"
Sheets(2).Range("H1") = "KostenSt"
End Sub
Gruß
Christine