Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Exit sub

Forumthread: Exit sub

Exit sub
30.09.2004 10:24:39
helena
Hallo Excelgemeinde habe ein kleines Problem

Sub speichern()
If ActiveWorkbook.name = "Test_V2.xls" Then Exit Sub
*****IF ZELLE A1 LEER dann EXIT  schaffe ich nicht ***** (Datum in Zelle ist muss)
Application.ScreenUpdating = False
Dim Speicherpfad As String
End Sub

Danke für Lösungsansatz
gruss helena
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exit sub
Harald
Hallo Helene:
If Cells(1,1)="" then exit sub
Müsste funktionieren
Gruß Harald
AW: Exit sub
helena
Danke es geht so weit, schön wäre noch Meldung "kein DATUM"
bevor SUB beendet wird habe es vorher vergessen zu schreiben
DANKE
helena
AW: Exit sub
Uduuh
Hallo,
If Cells(1,1)="" Then
MsgBox "Kein Datum"
Exit Sub
End If
Grußm aus'm Pott
Udo
Anzeige
AW: Exit sub
Uduuh
Hallo
if Range("A1")="" then exit sub
Gruß aus'm Pott
Udo
AW: Exit sub
Jan
Hi Helena,
Versuchs mal so:

Sub speichern()
If ActiveWorkbook.Name = "Test_V2.xls" Or Range("A1") = "" Then
Exit Sub
Application.ScreenUpdating = False
Dim Speicherpfad As String
End Sub

Jan
Anzeige
AW: Exit sub
Jan
Hi Helena,
Variante mit Meldung:

Sub speichern()
If ActiveWorkbook.Name = "Test_V2.xls" Or Range("A1") = "" Then
MsgBox "Kein Datum eingetragen!"
Exit Sub
Application.ScreenUpdating = False
Dim Speicherpfad As String
End Sub

Jan
Danke an alle Helfer, werds versuchen (o.T)
Helena
.
AW: Exit sub
Oberschlumpf
Hi Helena

If Sheets("Blattname").Range("A1").Value = "" Then Exit Sub

Für "Blattname" musst Du DEN Namen des Tabellenblattes eintragen, in dem A1 nicht leer sein darf.
Hilft das?
Ciao
Thorsten
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige