Zellinhalte bis Spalte B verschieben?
04.05.2021 21:45:54
Dino
wenn in Zelle A2=Projekt: steht, dann sollen die Zellinhalte rechts bis Spalte B verschoben werden. Das gleiche gilt bei Übereinstimmung mit Zellen A3, A4 und A5.
A2=Projekt:
A3=Ersteller:
A4=Datum / Zeit:
A5=Hinweis:
Das habe ich wie folgt lösen können. Soweit alles in Ordnung :-)
Sub Move_Text()
If Range("A2").Value = "Projekt:" Then
Row("2:2").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End If
If Range("A3").Value = "Ersteller:" Then
Range("B3:AA3").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End If
If Range("A4").Value = "Datum / Zeit:" Then
Range("B4:AA4").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End If
If Range("A5").Value = "Hinweis:" Then
Range("B5:AA5").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End If
End Sub
Frage 2: In einem anderen Makro habe ich dies Range(Range("START").Address(False, False) & ":" & Left(LetzteSpalte.Address(False, False), IIf(LetzteSpalte.Column > 26, 2, 1)) & Range("START").Row) benutzt um bestimmten Zellbereich anzusprechen.
Das wäre der Bereich ab START-Zelle bis letzte benutzte Spalte der START-Zeile. Soweit in Ordnung.
Meiner Meinung kann man den fett markierten Bereich einfacher darstellen oder?
Gruß Dino
Anzeige