Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1620to1624
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

Makro abbrechen

Makro abbrechen
03.05.2018 15:08:47
Azarmin
hallo,
ich würde gerne in meinem Programm etwas ergänzen und zwar soll das Makro abbrechen bzw nichts mehr machen sobald in einer bestimmten zeile etwas steht (vom ersten Ablauf. Im zweiten Ablauf soll das Makro dann gestoppt werden)
Mein Code
Dim va As String
Select Case Mpltz
Case 1: va = "MP1"
Case 2: va = "MP2"
Case 3: va = "MP3"
Case 4: va = "MP4"
Case 5: va = "MP5"
End Select
Worksheets("AT700").Activate
If Range("G11") "" Then End
// hier wird in Zeile G11 etwas eingefügt, wenn noch nichts in der Zeile steht
Range("G11").Formula = va
With Range("G11")
.Font.FontStyle = "fett"
.Font.Name = "Arial"
.Font.Size = 11
End With
leider funktioniert das aber nicht :(

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro abbrechen
03.05.2018 15:11:08
Werner
Hallo,
so:
If Range("G11")  "" Then Exit Sub
Gruß Werner
AW: Makro abbrechen
03.05.2018 15:24:56
Azarmin
Perfekt klappt danke. Kriege ich das auch hin, dass ich nicht diese Prüfung für jede einzelne Tabelle einfüge sondern einfach im Hauptprogramm schreibe
If Sheets("1,2,3,4").Range("G11") "" Then Exit Sub //irgendwie sowas
also egal in welcher Tabelle, sobald etwas in Zeile G11 steht, soll er stoppen
AW: Makro abbrechen
03.05.2018 15:48:13
Werner
Hallo,
mit ner Schleife über alle Worksheets:
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Range("G11")  "" Then
Exit Sub
End If
Next ws
Gruß Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige