Fehler Argument nicht optional

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Fehler Argument nicht optional
von: Andreas
Geschrieben am: 14.04.2005 09:39:36
Servus zusammen,
in einer Combobox werden Werte eingetragen und bei Bedarf nach Click auf Commandbutton in Kundenliste übertragen und anschliessend alphabetisch sortiert, jetzt habe ich hier diesen kleinen Code bekomme aber immer den Fehler Argumgent nicht optional, weiss aber nicht warum.
Wer kann helfen??
Gruss Andreas


Private Sub CommandButton1_Click()
  
    Dim lastrow As Integer
    Dim ws As Worksheet
    Set ws = Worksheets("Kunden")
    lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
    ws.Range("A" & lastrow + 1).Text = combobox1.Value
    ws.Range.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Set ws = Nothing
End Sub

Bild

Betrifft: AW: Fehler Argument nicht optional
von: Herbert
Geschrieben am: 14.04.2005 10:03:18
Hi,
in dieser Zeile: ws.Range("????").Sort
mfg Herbert
Bild

Betrifft: AW: Fehler Argument nicht optional
von: Andreas
Geschrieben am: 14.04.2005 11:15:23
Hallo Herbert,
habe das jetzt geändert, dafür bekomme ich jetzt einen Laufzeitfehler 424 Objekt eforderlich.

Private Sub CommandButton1_Click()
  
    Dim lastrow As Integer
    Dim ws As Worksheet
    Set ws = Worksheets("Kunden")
    lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
    ws.Range("A" & lastrow + 1).Text = combobox1.Value
    ws.Range("A" & lastrow).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Set ws = Nothing
End Sub

Bild

Betrifft: AW: Fehler Argument nicht optional
von: Herbert
Geschrieben am: 14.04.2005 11:30:32
Hi,
2 Fehler
Die texteigenschaft ist geschütz, also statt:
ws.Range("A" & lastrow + 1).Text = combobox1.Value
nur:
ws.Range("A" & lastrow + 1) = combobox1.Value

Key1 muss auch richtig referenziert werden:
ws.Range("A" & lastrow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlGuess
mfg Herbert
Bild

Betrifft: Danke Herbert
von: Andreas
Geschrieben am: 14.04.2005 11:50:33
Muss mich wohl etwas stärker mit VBA beschäfitgen, hättest du da nicht einige Tipps z.B. gute webseiten oder Bücher?
Gruss Andreas
Bild

Betrifft: AW: Danke Herbert
von: Herbert
Geschrieben am: 14.04.2005 11:56:24
Hi,
nach meiner Erfahrung sind Bücher für Anfänger alle Schrott. Lern den Umgang mit dem Objektkatalog, die VBA-Hilfe ist besser als ihr Ruf. Bei konkreten Problemen bekommst
du Hilfe z.B. hier im Forum. Wenn du es zum Profi bringen willst, schau mal bei
www.wrox.com vorbei, ist allerdings englisch.
mfg Herbert
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehler Argument nicht optional"