Ich möchte per makro einen Bereich, Tabelle2 Range B2:Z2 kopieren und in Tabelle1 B2:Z2 die Werte reinschreiben.
Die Zellen auf Tabelle2 die leer sind sollen nicht die Zellen auf Tabelle1 überschreiben.
Gibt es da eine Möglichkeit?
Lg Bernhard
Sub Bereich_kopieren()
Dim Tb1 As Worksheet, AC As Range
Set Tb1 = Worksheets("Tabelle1")
With Worksheets("Tabelle2")
For Each AC In .Range("B2:Z2")
If AC.Value > Empty Then
Tb1.Cells(2, AC.Column) = AC.Value
End If
Next AC
End With
End Sub