Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zelle leer Msg Box

Wenn Zelle leer Msg Box
28.11.2006 16:50:48
Heinz
Hallo Leute
Habe eine CheckBox die bei Click den Druckvorgang startet.
Nun möchte ich aber wenn im Sheet "Eingabe" K6 kein Wert steht,das eine Msg Box erscheint "Kein Name eingegeben" und der Druckvorgang wird nicht gestartet.
Könnte mir Bitte dabei jemand helfen ?
Danke, Heinz
Private Sub CheckBox10_Click()
'Dim Worksheet As Object
'Bildschirmflackern aus
Application.ScreenUpdating = False
Sheets("311").Visible = True
If CheckBox1 Then Sheets("311").PrintOut
Sheets("311").Visible = False

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle leer Msg Box
28.11.2006 16:58:42
Peter
Hallo Heinz,
versuch es einmal so:
Sheets("311").Visible = True
If CheckBox1 Then
If Len(Trim(Worksheets("Eingabe").Range("K6").Value)) 0 Then
Sheets("311").PrintOut
End If
End If
Sheets("311").Visible = False
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Wenn Zelle leer Msg Box
28.11.2006 16:59:09
Reinhard
Hi Heinz,
Private Sub CheckBox10_Click()
Application.ScreenUpdating = False
If CheckBox1 Then
If Sheets("Eingabe").Range("K6") <> "" Then
Sheets("311").PrintOut
Else
MsgBox "abc"
End If
End If
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Wenn Zelle leer Msg Box
28.11.2006 17:01:18
Peter
Hallo Heinz,
du wolltest eine MsgBox, dann so:
Sheets("311").Visible = True
If CheckBox1 Then
If Len(Trim(Worksheets("Eingabe").Range("K6").Value)) 0 Then
Sheets("311").PrintOut
Else
MsgBox "Es wurde Kein Name eingegeben.", _
48, " Hinweis für " & Application.UserName
End If
End If
Sheets("311").Visible = False
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Danke an Reinhard und Peter Feustel
28.11.2006 17:15:26
Heinz
Hallo Reinhard & Peter
Danke für Eure schnelle und Erfolgreiche Hilfe !!!
Beide Code's funkt.prima.
Recht herzlichen Dank und gruss, Heinz
Anzeige
Habe Bitte eine Zusatzfrage
28.11.2006 18:19:35
Heinz
Hallo Reinhard & Peter
Habe bei CheckBox9 ein Problem Euren Code richtig einzufügen.
Bei CheckBox9 werden alle Blätter auf einmal ausgedruckt.
Könntet Ihr mir Bitte dazu abermals helfen ?
Danke, Heinz
If CheckBox8 Then
Sheets("333").Visible = True
If Sheets("Eingabe").Range("K6") "" Then
Sheets("333").PrintOut
Else
MsgBox "HALLO NAMENLOSER gib Deinen Namen ein. Bin kein Hellseher"
End If
End If
If CheckBox9 = True Then
Dim anzahl As Integer
Dim start As Integer
Dim i As Integer 'Wählt alle Tabellenblätter vom 3. bis zum letzten aus
start = 3
anzahl = Sheets.Count
For i = start To anzahl
Sheets(i).Visible = True
Next i
Dim blaetter
Dim B As Integer
blaetter = Array("311", "312A", "312B", "321", "322", "331", "332", "333")
For B = 0 To UBound(blaetter)
Sheets(blaetter(B)).PrintOut
Next
Dim anzahl2 As Integer
Dim start2 As Integer
Dim i2 As Integer 'Wählt alle Tabellenblätter vom 3. bis zum letzten aus
start2 = 3
anzahl2 = Sheets.Count
For i2 = start2 To anzahl2
'Sheets(i2).Visible = False
Next i2
End If
Unload Me
'Bildschirmflackern ein
Application.ScreenUpdating = True
End Sub
Anzeige
AW: Habe Bitte eine Zusatzfrage
28.11.2006 20:51:46
Peter
Hallo Heinz,
ist das, was du hier zeigst der Code eines Makros, oder sind das Bruchstücke aus mehreren?
Wenn es ein Makro ist, dann geh nach
MsgBox "HALLO NAMENLOSER gib Deinen Namen ein. Bin kein Hellseher"
Exit Sub ' das Makro verlassen
aus dem Makro raus.
Grundsätzlich solltest du die Variablen IMMER geschlossen am Anfang des Makros definieren.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Habe Bitte eine Zusatzfrage
29.11.2006 10:41:00
Heinz
Hallo Peter
Wenn es ein Makro ist, dann geh nach
MsgBox "HALLO NAMENLOSER gib Deinen Namen ein. Bin kein Hellseher"
Exit Sub ' das Makro verlassen
Danke genau das war es.
Recht herzlichen Dank für Deine Hilfe
Gruss Heinz
Anzeige

307 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
Makro unterbrechen wenn bestimmte Zelle leer
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 bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 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

Links zu Excel-Dialogen

CheckBox

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
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1