Servus Leutschens ;),
ich möchte über eine Makro ein paar Zellen mit Werten aus übergeordneten Zellen auffüllen. Das betrifft z.B. meine Spalten A bis F.
Diese Auffüllfunktion soll durchgeführt werden, solange eine bestimmte Spalte befüllt ist, nennen wir sie G.
Aktuell schaut mein Code so aus:
Sub auffüllen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("A:F")
For Each Zelle In Bereich
If Len(Zelle) = 0 Then
Zelle = Zelle.Offset(-1, 0)
End If
Next Zelle
End Sub
Problem: Ich weiss nicht, wie ich die Bedingung G einbaue, somit rattert der Auffüllauftrag bis unten durch. Das möchte ich nicht.
Ich möchte nur soweit auffüllen wie es Nachbarwerte in den anderen Spalten gibt.
Danke und Gruß
VBA-Schlumpf
Ich werde vermutlich noch andere Fragen plazieren.
|