Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen füllen

Forumthread: Zellen füllen

Zellen füllen
03.04.2008 10:05:00
Günter
Guten Morgen,
wie könnte über VBA folgendes aussehen:
Finde in Spalte "D" alle leere Zellen und schreibe
bis zur letzten gefüllten Zeile (Spalte "A") das Wort "Test" hinein.
Mit der Bitte um Hilfe!!
M.f.G.
Günter

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen füllen
03.04.2008 10:14:55
Harald
So:

Sub test()
Dim lastrow As Long
Dim i As Long
lastrow = Worksheets("Tabelle1").Range("a65536").End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 2) = "" Then
Cells(i, 2) = "Test"
End If
Next i
End Sub


Gruß Harald

Korrektur
03.04.2008 10:15:47
Harald 

Sub test()
Dim lastrow As Long
Dim i As Long
lastrow = Worksheets("Tabelle1").Range("a65536").End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 4) = "" Then
Cells(i, 4) = "Test"
End If
Next i
End Sub


Anzeige
AW: Zellen füllen
03.04.2008 10:16:29
Günter
Hallo Harald,
genau so.
Vielen Dank für die schnelle Hilfe
Gruß
Günter

oder ein bisschen kürzer und
03.04.2008 10:35:00
Renee
EXCEL 2007 kompatibel:

Sub Fill()
Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)  _
= "Test"
End Sub


GreetZ Renée

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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