Supportnet / Forum / Tabellenkalkulation

Hallo ich hab ein Problem und zwar: es ist sehr ähnlcih mit dem was ich hier drunter habe, nur dass dies mal nicht bestimmte Zeilen aussortiert sondern spalten aussortiert werden müssen. Dim i As Integer Range("F7").Select Do Until ActiveCell.Value = "" ActiveSheet.Shapes("TextBox1_Change").Select löscheLoop = Selection.Characters.Text If ActiveCell.Value <> "5401" And ActiveCell.Value <> "5402" Then ActiveCell.EntireRow.Delete i = i + 1 Else ActiveCell.Offset(1, 0).Select End If Loop Schilderung: in zeile 1 Stehen tabellenüberschriften dessen namen zur sortierung genommen werden sollten. diese spalten sind immer die gleichen und die namen auch also es werden immer die gleichen spalten benötigt. Diese stehen aber immer an einer anderen stelle. die sortierung muss nicht variabel sein. vielen dank für eure hilfe

hat sich erledigt

trotzdem danke

• Makro macht nur einen Schritt
• Nullen in Zellen und Spalten löschen !!!
• Exel spalten löschen und leere Spalten mit 0 füllen
• Spalten miteinander vergleichen und markieren
• Zahlen in Spalten mit Makro Hochdrehen