Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ErsteLeereZelle .. Abbruch wenn keine vorhanden

ErsteLeereZelle .. Abbruch wenn keine vorhanden
25.11.2013 20:43:14
Hans
Hallo Leute .. ich habe folgendes Problem.
Ich suche mit Hilfe von "ErsteLeereZelle" in mehreren Bereichen nach der ersten Leeren Zelle.
Set ErsteLeereZelle = Union(Range("KVA_ETEIL"), Range("Eingang2"), Range("Fertig"), Range("Eingang1")).SpecialCells(xlCellTypeBlanks)(1)
Hier benötige eine Abbruchbedingung wenn keine leere Zelle vorhanden ist.
Zur Zeit kommt die Fehlermeldung
"Laufzeitenfehler 1004
Keine Zellen gefunden"
Kann mir jemand weiter helfen?
Gruß
Hans

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ErsteLeereZelle .. Abbruch wenn keine vorhanden
25.11.2013 21:53:47
ransi
Hallo
Aus der Hüfte und ungetestet:

If ersteleerzelle is nothing then...
else
end if

ransi

AW: ErsteLeereZelle .. Abbruch wenn keine vorhanden
25.11.2013 22:07:28
Hans
Hallo ransi
leider funktioniert dass nicht da der Fehler bei "Set" schon auftritt.
Gruß
Hans

Na dann vor deinem Set-Befehl ...
25.11.2013 22:50:09
Luc:-?
On Error Resume Next und nach ihm On Error GoTo 0 schreiben, Hans,
oder gleich eine ordentliche Fehlerbehandlung vorsehen. Denn sonst kann es passieren, dass ein anderer Nutzer plötzlich im VBE auf dem PgmCode landet oder (bei geschütztem VBA-Projekt) die für ihn sicher kryptische F-Meldung Fehler in verborgenem Modul erhält. Willst du das?
Gruß Luc :-?

Anzeige
AW: ErsteLeereZelle .. Abbruch wenn keine vorhanden
26.11.2013 07:25:59
haw
Hallo Hans,
bei mir funktioniert's.
Ich vermute, du hast nicht alle vorkommenden Namen definiert.
Gruß
Heinz

Sorry - war auf falscher Fährte
26.11.2013 07:41:27
haw
Hallo Hans,
eine Möglichkeit:
On Error goto x
Set ErsteLeereZelle = Union(Range("KVA_ETEIL"), Range("Eingang2"), Range("Fertig"), Range("Eingang1")).SpecialCells(xlCellTypeBlanks)(1)
...
x:
msgbox "Keine leere Zelle"
Gruß
Heinz

342 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige