Makro macht es nicht!
17.12.2003 11:10:44
Andre
kann sich jemand bitte mal folgenden Code anschauen und mir sagen was ich falsch mache! Ich versuche diesen Code über "call Gastbuchen" aufzurufen und bekomme immer nur die Fehlermeldung: "Argument ist nicht optional"!
Bei jedem anderen Makro haut die Sache hin, also kann es nur an diesem Code liegen! Ich komm aber einfach nicht dahinter!
Sub Gastbuchen(Kontrolle As String)
Dim LetzteZeile As Integer
Const Name_Gast As String = "Gast"
With Sheets(Name_Gast)
LetzteZeile = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
Sheets(Kontrolle).Range("i1").Copy .Cells(LetzteZeile + 1, 0)
Sheets(Kontrolle).Range("f1").Copy .Cells(LetzteZeile + 1, 3)
.Cells(LetzteZeile + 1, 2) = "1"
Sheets("Gast").Select
Range("A2:X65000").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Sheets("Kontrolle").Select
End Sub
Gruß Andre
Anzeige