Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Fehler Argument nicht optional"
Fehlermeldung #NV ausblenden Fehlermeldung abfangen
Fehler in Workbook_Open-Prozedur abfangen Fehlermeldung #DIV/0! verhindern
Fehler entfernen Fehlermeldung abfangen und in sequentielle Datei schreiben
Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers VBA-Fehlermeldungen auflisten
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen Zahlenstring mit Formel auslesen und Fehlermeldung verhindern