Herbers Excel-Forum - das Archiv

Ich finde den Fehler in diesem Code nicht!

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

Betrifft: Ich finde den Fehler in diesem Code nicht!
von: Markus

Geschrieben am: 03.03.2005 09:40:32
Hallo zusammen,
Ich habe folgenden Code:
Die Variable ANGSP ist als String definiert und die lgLfdNr als Integer
If CheckBox1 = True Then
Range(Cells(2, ANGSP), Cells(lgLfdNr, ANGSP)).copy ThisWorkbook.Sheets(1).Range("C3")' diese Zeile hängt bei mir
ang = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Else
ThisWorkbook.Sheets(1).Cells(3, 3) = 0
ang = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
End If
Bei der Variante wenn checkbox1 true macht mir schwierigkeiten da bleibt der Code immer hängen. Woran kann das liegen??

Danke
Markus
Bild

Betrifft: AW: Ich finde den Fehler in diesem Code nicht!
von: MArkus
Geschrieben am: 03.03.2005 09:43:26
...ich Dusel, habe den Fehler selbst gefunden, wenn ich die Variable als Integer definiere klappts!
Markus
 Bild
Excel-Beispiele zum Thema "Ich finde den Fehler in diesem Code nicht!"
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