in verschiedener Reihenfolge angeordnet sind,
in eine bestimmte Reihenfolge bringen.
Mit welchen Makro kann ich zu Beispiel die
komplette Spalte mit der Bezeichnung "Bernd"
in Feld F1 in Spalte B verschieben ?
Mit welchen Makro kann ich zu Beispiel die
komplette Spalte mit der Bezeichnung "Bernd"
in Feld F1 in Spalte B verschieben ?
Inzwischen wurde das Problem mit dem folgenden Makro gelöst:
Sub MachWas()
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
For x = 1 To Spaltenanzahl
If Cells(1, x) = "Bernd" Then
Spalte = Columns(x).Address(False, False)
Spalte = Left(Spalte, InStr(Spalte, ":") - 1)
Columns(Spalte & ":" & Spalte).Select
Selection.Cut
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Exit Sub
End If
Next x
End Sub
Trotzdem vielen Dank.
Oliver
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen