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

Zelle auf Inhalt prüfen auf ganzem Blatt

Zelle auf Inhalt prüfen auf ganzem Blatt
12.10.2018 11:46:44
Manfred
Hallo miteinander,
ich benötige ein VBA-Script, welches auf einem Worksheet in der Zelle A1 prüft ob diese einen Wert enthält. Wenn Nein soll das aktuelle Datum eingetragen werden und in B1 dann ein X. Sollte in A1 schon ein Wert vorhanden sein, soll das Skript in A2 springen und hier prüfen ob ein Wert vorhanden, wenn Nein dann siehe oben, wenn Ja, dann nächste Zeile und das über das ganze Blatt.
Vielen Dank im Voraus für eure Vorschläge!
Gruß, Manfred

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle auf Inhalt prüfen auf ganzem Blatt
12.10.2018 12:20:23
EtoPHG
Hallo,
Überschreibt brutal und ohne Nachfrage alle leeren A-Zellen im aktiven Blatt
Sub ALeerMitDatumUndX()
Dim rc As Range
If ActiveSheet.Type  xlWorksheet Then Exit Sub
For Each rc In ActiveSheet.UsedRange.Columns(1).Cells
If IsEmpty(rc) Then
rc = Date
rc.Offset(, 1) = "X"
End If
Next rc
End Sub
Gruess Hansueli
AW: Zelle auf Inhalt prüfen auf ganzem Blatt
12.10.2018 13:06:58
Ludwig
So?
Sub Manfred()
With Sheets("Tabelle1")
Dim x As Long
For x = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(x, 1).Value = "" Then
.Cells(x, 1).Value = Date
.Cells(x, 2).Value = "x"
End If
Next x
End With
End Sub

Anzeige
AW: Zelle auf Inhalt prüfen auf ganzem Blatt
12.10.2018 20:07:19
Gerd
Moin Manfred!
Sub Main()
On Error Resume Next
With Tabelle1.Columns(1).SpecialCells(4)
Union(.Cells, .Offset(, 1)) = Array(Date, "X")
End With
End Sub

Gruß Gerd

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige