Werte in nächste freie Spalte VBA
10.11.2021 14:32:17
Nelinax
ich möchte werte aus einem Tabellenblatt in ein anderes übertragen und zwar immer in die nächste komplett freie spalte:
Public Sub SendHelp()
With Worksheets("Uebersicht")
With IIf(IsEmpty(.Cells(1, 1).Value), .Cells(1, 1), _
.Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1))
.Value = Worksheets("Auswertung").Cells(34, 4).Value
End With
With IIf(IsEmpty(.Cells(2, 1).Value), .Cells(2, 1), _
.Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1))
.Value = Worksheets("Auswertung").Cells(47, 4).Value
End With
With IIf(IsEmpty(.Cells(3, 1).Value), .Cells(3, 1), _
.Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1))
.Value = Worksheets("Auswertung").Cells(48, 4).Value
End With
With IIf(IsEmpty(.Cells(4, 1).Value), .Cells(4, 1), _
.Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1))
.Value = Worksheets("Auswertung").Cells(44, 4).Value
End With
With IIf(IsEmpty(.Cells(5, 1).Value), .Cells(5, 1), _
.Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1))
.Value = Worksheets("Auswertung").Cells(45, 4).Value
End With
End With
End Sub
Liebe Grüße
Nelinax