Makroausführung in Userform!
02.12.2003 08:29:32
Andre
ich möchte durch Betätigung eines CommandButton in meiner UserForm ein Makro ablaufen lassen! Das Makro läuft selbstständig ohne Probleme, nur nicht in Verbindung mit dem CommandButton! Wahrscheinlich liegt´s daran, daß das Tabellenblatt nicht gewechselt werden kann, solange die UserForm aufgerufen ist!?
Hat jemand eine Idee wie ich´s trotzdem hinbekomme, daß VBA macht was ich möchte?
Gruß Andre
Hier die Codes:
Private Sub Buchen_Click()
Application.Run Buchen
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
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