Eine Familie von Microsoft-Tabellenkalkulationsprogrammen mit Tools zum Analysieren, Darstellen und Vermitteln von Daten.
Hallo,
vielen Dank für deine Anfrage.
Für deinen Zweck kann der nachstehende Code verwendet werden.
Ich freue mich auf deine Rückmeldung.
Sub SpalteB_ausfuellen()
Dim LetzteZeile As Long
' Letzte Zeile in Spalte A ermitteln
LetzteZeile = Cells(Rows.Count, "A").End(xlUp).Row
' Bereich in Spalte B füllen (hier mit Formel als Beispiel)
Range("B1:B" & LetzteZeile).Formula = "=A1*2" ' Ersetzen Sie "=A1*2" durch Ihren Wert oder Ihre Formel
Range("C1:C" & LetzteZeile).Formula = "=A1*2" ' Ersetzen Sie "=A1*2" durch Ihren Wert oder Ihre Formel
Range("D1:D" & LetzteZeile).Formula = "=A1*2" ' Ersetzen Sie "=A1*2" durch Ihren Wert oder Ihre Formel
' Alternativ für reinen Text/Wert ohne Formel:
' Range("B1:B" & LetzteZeile).Value = "IhrText"
End Sub