Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
04.05.2024 08:24:07
Sortieren und übertragen
04.05.2024 06:52:42
Daten aus anderem Registerblatt in ein neues übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
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
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Prüfen ob Zelle

Makro zum Prüfen ob Zelle
13.07.2023 13:41:21
Peter
Hallo Herber-Community,

ich habe eine vermutlich einfache Anfrage für VBA-Profis. :-)

Ich habe eine Spalte, genauer einen Bereich (B13-B43) in der je nach Begebenheit ein Datum steht oder eben nichts.

Ich habe ein Makro über die Makroaufzeichnung erstellt, welches mir in dem Bereich E13-E43 ein x einträgt, muss dieses dann aber händisch wieder löschen, wenn in der Spalte B kein Datum drin steht.

Ich denke mal, dass das mit einem Makro einfacher geht.

Für Vorschläge wäre ich dankbar.

Gruß Peter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Prüfen ob Zelle
13.07.2023 14:12:28
Daniel
Hi
das geht doch einfach über Formel.
Da ein Datum immer auch eine Zahl ist: =Wenn(IstZahl(B13);"x";"")
Makro brauchte man dafür nicht.
Gruß Daniel

AW: Makro zum Prüfen ob Zelle
14.07.2023 08:33:32
Peter
danke dafür ... aber ich brauche es unbedingt als makro

in einigen zellen muss händisch das x wieder gelöscht werden ...

da nicht alle, die damit arbeiten, excel-kenntnisse haben, ist es mit makro einfacher, ansonsten müsste die formel jedes mal in die leere zelle kopiert werden

AW: Makro zum Prüfen ob Zelle
13.07.2023 14:42:35
Pierre
Hallo Peter,

falls doch als Makro, hier eine ganz simple Möglichkeit (gibt natürlich zig weitere):
Private Sub Worksheet_Change(ByVal Target As Range)

    If IsDate(Target.Value) Then
        Target.Offset(0, 3).Value = "x"
    Else
        Target.Offset(0, 3).Value = ""
    End If

End Sub
Gruß Pierre

Anzeige
AW: Makro zum Prüfen ob Zelle
14.07.2023 08:31:15
Peter
danke dafür ... sry dass ich frage .. aber VBA ist leider noch ein buch mit 6 siegeln für mich .. das 7. siegel konnte ich öffnen ^^

wo genau werden in dem makro die bereiche definiert?

AW: Makro zum Prüfen ob Zelle
14.07.2023 10:13:57
Pierre
Hallo Peter,

sorry, war gestern nicht mehr am PC.

Den Bereich musst du in meinem Makro nicht angeben, das wird automatisch über "Target" gemacht.

Target ist einfach die Zelle, in der du das Datum einträgst oder löschst.

ich bin einfach davon ausgegangen, dass du das Datum ausschließlich in Spalte B einträgst.

Wie ich ja auch geschrieben habe, das ist eine sehr vereinfachte Lösung.

Gruß Pierre

Anzeige
AW: Makro zum Prüfen ob Zelle
14.07.2023 09:29:58
Peter
zur Verdeutlichung des Sachverhaltes habe ich mal eine kleine Datei vorbereitet

Erklärungen sind auch noch einmal in der Datei selber

https://www.herber.de/bbs/user/159933.xlsm

AW: Makro zum Prüfen ob Zelle
14.07.2023 11:53:24
Daniel
so vielleicht:
Sub test()
With Range("B13:B43")
    .Offset(0, 3).Value = "x"
    .SpecialCells(xlCellTypeConstants, 1).Offset(0, 3).ClearContents
End With
End Sub
Gruß Daniel

Anzeige
AW: Makro zum Prüfen ob Zelle
14.07.2023 12:11:10
Peter
danke auch dafür ... das makro trägt mir das x ein .. scheint aber keinen bezug zum datum zu haben, da er auch die zellen in zeilen ohne datum füllt .. und es kommt ein laufzeitfehler 1004 - keine zellen gefunden

AW: Makro zum Prüfen ob Zelle
14.07.2023 12:55:41
Daniel
mit hat die Beschreibung etwas verwirrt, da in der Beispieldatei steht, dass ein "x" dort eingetragen werden soll, wo in Spalte B kein Datum steht.
wenn du es anders haben willst, kannst du auch einfach tauschen:

With Range("B13:B43")
    .Offset(0, 3).ClearContents
    .SpecialCells(xlCellTypeConstants, 1).Offset(0, 3).value = "x"
End With
wenn du den Laufzeitfehler bekommst, dann liegt es daran dass in keiner der Zellen ein Datum bzw eine Zahl steht (ein Datum ist für Excel eine Zahl)
hattest du das Makro mit der hochgeladenen Beispieldatei getestet oder mit einer anderen Datei.
Bitte verwende zum Testen von Lösungen immer zuerst die hochgeladene Beispieldatei bzw die Daten, die du uns zur Verfügung gestellt hast und nicht irgendwelche anderen, denn wir können das Makro ja nur auf Basis der Informationen erstellen, die du uns gibst.
Wenn es dann mit deinen Echtdaten nicht funktioniert, dann musst du mal prüfen, was du in deinen Beispieldaten gegenüber deinen Echtdaten verändert hast und dann das Makro entsprechen anpassen.
Gruß Daniel

Anzeige
AW: Makro zum Prüfen ob Zelle
17.07.2023 13:04:34
Peter
also in der beispieldatei funktioniert es ... ich denke mal eine mögliche ursache dafür könnte sein, dass ich in der beispieldatei das datum direkt zu stehen habe und in der originaldatei das datum mittels einer Formel eingetragen wird

in B13 steht:

=DATUM($U$5;$T$5;1)

ab B14 bis B43:

=WENN($B13="";"";WENN(MONAT($B13+1)>$T$5;"";$B13+1))

301 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
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
Anzeige
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wert aus Matrix wenn Zelle nicht leer
petra

Hallo Zusammen,
brauche dringend Hilfe. Hoffe ihr wisst eine Lösung, also folgendes Problem:
Ich möchte aus einer zweidimensionalen Matrix einen Wert anhand von 2 Suchkriterien herausfiltern.
....A B C D E
1. a b c d e
2..x ö.1....5
3..y ä....4
4..z ü.3
Wenn...
15.04.2009 13:39:28
Thread-ID: 1068877
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

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
2
9
2
1
4
7
2
7
1
23
12
1
23
6
9
2
4
6
10
1
2
6
9
4