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
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro unterbrechen wenn bestimmte Zelle leer

Makro unterbrechen wenn bestimmte Zelle leer
03.10.2008 07:29:45
WalterK
Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bestätigt werden müssen

Sub Schaltfläche29_BeiKlick()
If [AT39]  "" Then
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
If [AT44]  "" Then
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
End If
End Sub


Besten Dank und Servus
Walter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If IsEmpty + ein End If ___ ;o)
03.10.2008 10:23:39
Matthias
Hallo Walter
  • Im geposteten Code fehlte ein End IF


  • hier mit Abfrage und dem Fehlenden End IF:

    • 
If IsEmpty(Worksheets("Daten").Range("AB12")) Then MsgBox "Im Blatt(Daten) muß die Zelle  _
AB12 erst gefüllt werden" & vbLf & "Programmablauf wird unterbrochen", vbInformation, " Hinweis von Walter ...": Exit Sub
     If [AT39] "" Then Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37") Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37") If [AT44] "" Then Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42") Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42") End If End If



    Gruß Matthias
    Anzeige
    AW: If IsEmpty + ein End If ___ ;o)
    03.10.2008 20:10:41
    WalterK
    Hallo Matthias,
    mein Code sieht jetzt so aus, funktioniert aber noch nicht. Es kommt: Fehler beim Kompilieren: Syntaxfehler
    
Sub Schaltfläche29_BeiKlick()
If IsEmpty(Worksheets("DN-Daten erfassen").Range("AO30")) Then MsgBox "Im Blatt(Daten) muß die  _
Zelle _
AB12 erst gefüllt werden" & vbLf & "Programmablauf wird unterbrochen", vbInformation, " Hinweis  _
von Walter ...": Exit Sub
If [AT39]  "" Then
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
End If
If [AT44]  "" Then
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
End If
End Sub


    Was mache ich falsch?
    Servus, Walter

    Anzeige
    AW: If IsEmpty + ein End If ___ ;o)
    03.10.2008 20:59:00
    Jens
    Hi Walter
    Versuch mal so:
    
Sub Schaltfläche29_BeiKlick()
If IsEmpty(Worksheets("DN-Daten erfassen").Range("AO30")) Then
MsgBox "Im Blatt (Daten) muß die Zelle AB12 erst gefüllt werden" & vbLf & "Programmablauf wird  _
unterbrochen", vbInformation, " Hinweis von Walter ..."
Exit Sub
Else
If Range("AT39")  "" Then
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
End If
If Range("AT44")  "" Then
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
End If
End If
End Sub


    Gruß aus dem Sauerland
    Jens

    Anzeige
    AW: If IsEmpty + ein End If ___ ;o)
    03.10.2008 21:25:18
    WalterK
    Hallo Jens,
    es kommt nach wie vor der gleiche Fehler: Fehler beim Kompilieren: Syntaxfehler
    Es wird dabei der Text von [MsgBox "Im...] bis [von Walter..."] blau markiert.
    Danke und Servus, Walter
    AW: If IsEmpty + ein End If ___ ;o)
    03.10.2008 21:31:00
    Uwe
    Hi Jens,
    es klappt nicht, die Programmzeile innerhalb der Gänsfüßchen mit _ zu splitten, der wird nur als Text gelesen. So:
    
MsgBox "Im Blatt (Daten) muß die Zelle AB12 erst gefüllt werden" & vbLf & _
"Programmablauf wird unterbrochen", vbInformation, " Hinweis von Walter ..."


    sollte es klappen.
    Gruß
    Uwe
    (:o)

    Anzeige
    Danke an alle, jetzt funktionierts. Servus, Walter
    03.10.2008 22:07:24
    WalterK
    @Uwe
    03.10.2008 23:11:40
    Jens
    Hi Uwe
    Im Original-Code hab ich diese Trennung auch nicht drin. Da is wohl was beim Übertragen schief gelaufen.
    Hab ich ehrlich gesagt, eben gar nicht drauf geachtet. Asche auf mein Haupt. :o)
    Danke für den Hinweis. Das ist mir noch nie wirklich aufgefallen.
    Gruß aus dem Sauerland
    Jens
    AW: If IsEmpty + ein End If ___ ;o)
    03.10.2008 21:39:17
    Matthias
    Hallo
    Scheint nicht ganz klar zu sein
    Du fragst ab ob die Zelle AO30 leer(IsEmpty) ist.
    Dann bringst Du aber die Meldung das AB12 erst gefüllt werden soll. Wie passt denn das zusammen?
    Sieht also so aus, als ob in AO30 eine Formel steht in der Du Dich auf AB12 beziehst.
    Dann dürftest Du nicht IsEmpty benutzen sondern .Value
    Übrigens hab ich den Code, so wie Du ihn jetzt gepostet hast probiert.
    Es kommt kein Fehler. Hab zum Probieren noch eine MSGBOX drin.
    hier die Datei:
    https://www.herber.de/bbs/user/55809.xls
    schreib: If IsEmpty(Worksheets("DN-Daten erfassen") ......... in eine Zeile.
    Gruß Matthias
    Anzeige
    AW: If IsEmpty + ein End If ___ ;o)
    03.10.2008 22:11:00
    WalterK
    Hallo Matthias,
    du hast Recht, ich hatte versehentlich AB12 geschrieben, sollte aber AO30 heißen.
    Dein Beispiel funktioniert wie gewünscht.
    Besten Dank und Servus, Walter

    332 Forumthreads zu ähnlichen Themen

    MSGBox wenn Zelleninhalt geleert wurde?!
    Tom

    Hallo!
    Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
    Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
    Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
    26.08.2008 15:07:01
    Thread-ID: 1004826
    6 Beiträge
    Anzeige
    Leere Zellen Überspringen
    Michael

    Moin zusammen,
    habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
    Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
    Range("A2:AD2").Select
    Range(Selection, Selectio...
    11.09.2008 10:06:00
    Thread-ID: 1008990
    5 Beiträge
    "wenn, dann, sonst" - Frage
    Oliver

    Hallo,
    kleines Problem,
    =WENN($I$4=4;4;0) liefert mir den Wert "0"
    Jetzt habe ich diese Formel folgendermaßen abgeändert:
    =Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
    ... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
    Nun meine Frage,...
    11.09.2008 10:23:00
    Thread-ID: 1008998
    16 Beiträge
    Anzeige
    Warum leere Zelle "" >0 ???
    Simon

    Hallo,
    ich verstehe das Ergebnis meiner Formel nicht ganz:
    ich habe eine wenn Funkion nach folgendem Schema gemacht:
    wenn(A1=5;"ok";"")
    Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
    15.09.2008 10:08:00
    Thread-ID: 1009683
    13 Beiträge
    Wenn Zelle leer, dann Grafik löschen
    TomTom

    Hi,
    ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
    gelöscht oder unsichtbar werden.
    Wie mache ich dies ?
    Danke mal
    Gruss
    Tom<...
    22.09.2008 08:28:10
    Thread-ID: 1011373
    3 Beiträge
    Zählen wenn Zelle nicht leer
    Tim

    Hallo Forum,
    wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
    Gruß
    Tim
    20.10.2008 11:47:00
    Thread-ID: 1017617
    3 Beiträge
    Formel wenn dann sonst ...
    Uwe

    Hallo, Gemeinde ..
    Mir stellt sich folgende Herausforderung:
    ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
    Wie bekomme ich eine Formel hin, die das berechnet, wenn
    - der A...
    31.10.2008 11:20:00
    Thread-ID: 1020821
    10 Beiträge
    Formatierung Zelle auf "1 M" statt "1.000"
    Chris

    Hallo Leute,
    Ich habe eine Frage bezüglich einer Zellformatierung.
    Ich habe einet Tabelle in der Mengen an Großen Zahlen stehen.
    Diese Tabelle würde ich gerne ohne die Werte durch 1000 zu teilen so Formatieren (benutzerdefiniert, das anstatt "1.234.567" nur noch "1.235 M" (gerundet)...
    14.11.2008 16:50:09
    Thread-ID: 1024652
    5 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    5
    6
    4
    15
    5
    12
    2
    2
    9
    4
    3
    10
    4
    2
    5
    5
    4
    2
    7
    7
    1
    5
    9
    1
    23