Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ändern

Makro ändern
02.04.2009 15:47:17
Heinz
Hallo zusammen
ich habe ein Makro und möchte zusätzlich folgendes:
Wenn im Sheet Monat1 in Zelle A1 nichts steht, dann soll das Makro abbrechen und es soll die Fehlermeldung kommen: "Bitte Monat 1 einfügen!"
Falls Zelle A1 in Monat1 einen Wert enthält, dann soll das Makro normal ablaufen. Wie muss ich das Makro anpassen?
Vielen Dank für eure Hilfe und noch einen schönen Tag!
Gruss Heinz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ändern
02.04.2009 15:52:18
D.Saster
Hallo,

if sheets("Monat1").cells(1,1)="" then
msgbox "Bitte Monat1 einfügen"
exit sub
else
'Code
end if


Gruß
Dierk

AW: Makro ändern
02.04.2009 15:53:21
Heinz
Dankeschön Dierk!
AW: Makro ändern
02.04.2009 15:53:09
Ptonka
Hallo Heinz,

Sub DeinMakro()
Sheets("Monat1").select
If Range("A1").value = "" then
Msgbox " Bitte Monat 1 einfügen"
exit sub
end if
Dein Makro
End Sub


AW: Makro ändern
02.04.2009 15:55:53
Michael
Hallo Heinz,
ohne Dein Makro zu sehen (Glaskugel kaputt):

Private Sub Workbook_Open()
If Sheets("Monat1").Cells(1, 1).Value = "" Then
Exit Sub
Else
'Dein Makro
End If
End Sub


Grüße
Michael

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige