Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA Wenn leer

Excel VBA Wenn leer
04.07.2018 18:32:45
Marc
Hallo erstmal,
mir qualmt der Kopf * grmbl * * grmbl * *ha ha* *ha ha*
Ich habe fogendes Problem:
Ich brauche einen VBA-Code, welcher in Zelle F7:AJ66 (wenn die Zelle keinen Wert oder Buchstaben enthält) eine 0 einträgt.
soweit so gut: 

Sub Nullwennleer()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Value = "" Then
Zelle.Value = 0
End If
Next Zelle
End 


Sub
Userbild

Der Code soll aber vorher die dazu gehörige Spalte D überprüfen, ob da etwas steht, erst dann F: _
AJ mit 0en füllen.
Ich hoffe, ihr könnt mir helfen.
Grz

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA Wenn leer
04.07.2018 18:53:56
{Boris}
Hi,
aus der Hand:
Sub Nullwennleer()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Value = "" And Cells(Zelle.Row, 4)  "" Then
Zelle.Value = 0
End If
Next Zelle
End
VG, Boris
AW: Excel VBA Wenn leer
04.07.2018 19:10:09
Marc
Hallo,
Perfekt !!!
Gibt es noch die möglichkeit, wenn in D der Name entfernt wird, und ich den Code nochmal laufen lasse, das er dann praktisch die Nullen wieder entfernt ?
Grz
AW: Excel VBA Wenn leer
04.07.2018 19:29:26
Marc
OK, hat sich erledigt,
;)
Danke..
AW: Excel VBA Wenn leer
04.07.2018 19:42:34
Marc
Gibt es die Möglichkeit die Range fest anzugeben ?
AW: Excel VBA Wenn leer
04.07.2018 19:43:45
Marc
Gibt es die Möglichkeit, die Range fest anzugeben ?
AW: Excel VBA Wenn leer
04.07.2018 19:58:12
Barbaraa
Probier mal das: 

Sub Marcs_Code()
Dim lZeile      As Long
Dim lSpalte     As Long
With Range("F7:AJ66")
For lZeile = .Row To .Row + .Rows.Count - 1
If Cells(lZeile, 4)  "" Then
For lSpalte = .Column To .Column + .Columns.Count - 1
Cells(lZeile, lSpalte).Select
If Cells(lZeile, lSpalte) = "" Then Cells(lZeile, lSpalte) = 0
Next lSpalte
End If
Next lZeile
End With
End Sub
Wenn in D was steht, dann werden alle leeren Zellen im gewünschten bereich mit Nullen befüllt.
Hilft das?
LGB
Anzeige
AW: Excel VBA Wenn leer
04.07.2018 20:07:27
Barbaraa
Wenn Du es schnell willst, dann nimm Boris' Code.
Der ist nicht so umständlich wie meiner.
Ev kannst Du da Selection durch Range("F7:AJ66") ersetzen.
LGB
AW: Excel VBA Wenn leer
04.07.2018 20:09:14
Marc
Habe ein bisschen gegrübelt:
Vielleicht nicht so elegant wie eurer, aber von solchen Leuten wie ihr es seit kann man ne menge lernen.
Vielen Dank.
Sub Nullwennleer3()
Dim Bereich As Range, zelle As Range
Set Bereich = ActiveSheet.Range("F7:AJ60")
For Each zelle In Bereich
If zelle.Value = "" And Cells(zelle.Row, 3)  "" Then
zelle.Value = "z"
End If
Next
Dim Bereich1 As Range, zelle1 As Range
Set Bereich1 = ActiveSheet.Range("F7:AJ60")
For Each zelle1 In Bereich1
If zelle1.Value = "z" And Cells(zelle1.Row, 3) = "" Then
zelle1.Value = ""
End If
Next
End Sub

Anzeige
AW: Excel VBA Wenn leer
04.07.2018 20:28:01
Barbaraa
Wenn Dein Code das richtige Ergebnis liefert, dann ist er gut.
Überlege Dir mal folgende Verschachtelung mit else (wenn Du schon im Grübel-Laune bist):
if Cells(zelle.Row, 3) = "" Then
If zelle1.Value = "z" then
...
end if
Else
If zelle1.Value = "" then
...
end if
end if
Else bedeutet "sonst"
LGB
AW: Excel VBA Wenn leer
05.07.2018 14:21:06
Bernd
Servus Marc,
da beide Codeabschnitte ohnehin in der gleichen Sub laufen kannst du das wunderbar vereinfachen...

Sub Nullwennleer3()
Dim Bereich As Range, zelle As Range
Set Bereich = ActiveSheet.Range("F7:AJ60")
For Each zelle In Bereich
If zelle.Value = "" And Cells(zelle.Row, 3)  "" Then
zelle.Value = "z"
ElseIf zelle.Value = "z" And Cells(zelle.Row, 3) = "" Then
zelle.Value = ""
End If
Next
Set Bereich = Nothing
End Sub
Grüße, Bernd
Anzeige

304 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
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
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
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
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge

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