AW: Makro aufrufen!
28.11.2003 11:28:20
Andre
Okay, danke, jetzt bekomme ich keine Fehlermeldung mehr, aber dafür macht VBA aber auch sonst nichts! Das haut einfach nicht hin, solange die Userform aufgerufen ist, aus der Tabelle funktioniert´s!
Hier das Makro mit Anhang, das ich ausführen möchte:
Private Sub In_1_Kopieren(Kontrolle As String)
Dim LetzteZeile As Integer
Const Name_1 As String = "1"
With Sheets(Name_1)
LetzteZeile = .Cells(Cells.Rows.Count, 3).End(xlUp).Row
Sheets(Kontrolle).Range("b1:k1").Copy .Cells(LetzteZeile + 1, 3)
End With
End Sub
Private Sub In_2_Kopieren(Kontrolle As String)
Dim LetzteZeile As Integer
Const Name_2 As String = "2"
With Sheets(Name_2)
LetzteZeile = .Cells(Cells.Rows.Count, 3).End(xlUp).Row
Sheets(Kontrolle).Range("b1:k1").Copy .Cells(LetzteZeile + 1, 3)
End With
End Sub
Sub Buchen()
Dim LetzteZeile As Integer, Tabellenname As String
Const Name_Kontrolle As String = "Kontrolle"
Select Case Sheets(Name_Kontrolle).Range("a5")
Case 1
In_1_Kopieren (Name_Kontrolle)
Case 2
In_2_Kopieren (Name_Kontrolle)
Case 3
In_1_Kopieren (Name_Kontrolle)
In_2_Kopieren (Name_Kontrolle)
Case Else
MsgBox "Ungültige Zahl in A5!"
End Select
End Sub
Gruß Andre