Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1480to1484
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

Autom. ausfüllen

Autom. ausfüllen
11.03.2016 16:13:55
Norbert
Hallo zusammen
kann mir jemand ein VBA Script für das ausfüllen der Leerzellen in der Spalte B erstellen? Ich möchte die Prozedur via Makro in einem Schritt ausführen lassen.
Es sind bei jeder neuen Abfrage unterschiedliche Lücken - insgesamt können bi zu 600 vZeilen vorkommen.
hier ein Beispiel:
https://www.herber.de/bbs/user/104276.xlsx
Besten Dank für eure Hilfe
Gruss Norbert

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autom. ausfüllen
11.03.2016 16:51:46
Hajo_Zi
Hallo Norbert,
Zellen ausfüllen mit Wert davor
Range("a:a").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Oder als Wert
With Range("a:a").SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With

AW: Autom. ausfüllen
11.03.2016 17:12:38
Norbert
Perfekt - Besten Dank
Gruss Norbert

AW: Autom. ausfüllen
11.03.2016 16:59:43
KlausF
Hallo Norbert,
Sub Ausfuellen()
Dim i As Long
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
If Range("B" & i).Value = "" Then
Range("B" & i).Value = Range("B" & i - 1).Value
End If
Next i
End Sub
Gruß
Klaus

Anzeige
AW: Autom. ausfüllen
11.03.2016 17:16:27
Norbert
noch besser - vielen Dank
Norbert

AW: Autom. ausfüllen
11.03.2016 17:19:35
Hajo_Zi
Hallo Norbert,
die Schleifenfrei und wahrscheinlich schnellere Lösung gefiel also nicht.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige