Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:08:47
Text in Spalten zählen
16.04.2024 10:55:21
Welche Angaben sind Zeile- und Spaltenhöhe
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
16.04.2024 10:29:44
Mittelwert für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
492to496
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige