AW: Spalten ausfüllen
09.01.2013 15:29:05
Klaus
Hi Stan,
hab mal vier Varianten gemacht. Nimm die dritte oder vierte, die ersten beiden sind nur zur Veranschaulichung.
Option Explicit
Sub AusfuellenEins()
'Die Antwort auf deine Frage
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zelle
Range("B2:C" & lRow).Select
Selection.FillDown
End Sub
Sub AusfuellenZwei()
'Besser: ohne Select, und die Tabelle im WITH referenziert
Dim lRow As Long
With Sheets("Tabelle1")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zelle
.Range("B2:C" & lRow).FillDown
End With
End Sub
Sub AusfuellenDrei()
'noch besser: mit COPY statt mit FILLDOWN
'ist bei großen Tabellen viel schneller
Dim lRow As Long
With Sheets("Tabelle1")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zelle
.Range("B2:C2").Copy .Range("B3:C" & lRow)
End With
End Sub
Sub AusfuellenVier()
'am besten: gar nicht kopieren, sondern direkt die Formeln schreiben
Dim lRow As Long
With Sheets("Tabelle1")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zelle
.Range("B2:B" & lRow).FormulaR1C1 = "=MID(RC[-1],1,10)"
.Range("C2:C" & lRow).FormulaR1C1 = "=MID(RC[-2],12,5)"
End With
End Sub
Grüße,
Klaus M.vdT.