Office: Überschrift suchen und spalte nach vorne verschieben

Hallo,

also ich möchte gerne folgendes Makro schreiben:
Ich habe verschiedene Tabellen, die die gleichen Überschriften haben aber in verschiedenen Spalten. Nun möchte ich ein Makro machen, welches die Überschriften (in den Spalten A1, B1, C1...) durchsucht und mir die gewünschte Spalte mit der gesuchten Überschrift, z. B. die Spalte mit der Überschrift "Test", in die erste Spalte (A1) verschiebt. Danach soll das Makro eine weitere Überschrift suchen und diese dann in die erste Spalte setzen, sodass die vorherige gesuchte Spalte dann in die zweite verschoben wird.
Die Überschriften sind immer glecih und müssen nie geändert werden.

Ich bedanke mich für jede Hilfe.

Gruß Nepo

:)

 

Moin, Nepo,

hast Du es schon einmal über das Aufzeichnen eines Makrpos mit dem gewünschten Ablauf versucht? Dort muss dann zwar noch nachgebessert werden, weil im Makro absolute Zellangaben soeie Blattangaben ge,acht werden, aber ein Grundstock ist gelegt. Die vielen Selects und Activates können der Bearbeitung auch gerne zum Opfer fallen - dies funktioniert dann auf dem Blatt, solange es den gesuchten Begriff in Zeile 1 gibt (sonst eine Fehlerbehandlung einbauen):

Code:

 

Erst einmal danke für die Hilfe... Das hat schon mal funktioniert.
Jetzt wollte ich das ganze doch noch ein bisschen abändern.
Kann man das Makro so umschreiben das es fest vorgegeben ist das z.B. Test1 immer Spalte A, Test2 immer Spalte B...... usw. und die Spalten dann so verschoben werden ohne das der Benutzer gefragt wird?

Gruß Nepo

 

Moin, Nepo,

dazu würde sich die Verwendung einer Select Case-Anweisung anbieten, in der je nach Begriff einer weiteren Variablen die Zeilspalte zugewiesen und statt der festen Anweisung Columns("A:A").Insert Shift:=xlToRight z.B. Columns(intTargetColumn).Insert Shift:=xlToRight verwendet wird, wenn intTargetColumn die neue Variable ist...

Aber in den Fall der sich nicht ändernden Überschriften solltest Du eventuell die Nutzung einer UserForm und einer Combo-/Listenbox erwägen - dies vermeidet Tippfehler bei der Eingabe und Laufzeitfehler im Code wegen nicht verfügbarer Texte... *wink.gif*

 

Also wie erwähnt habe ich mehrere Tabellen die irgendwo die gleichen Überschriften haben, nur nicht immer an der gleichen stelle. Jetzt müssen aber immer sechs bestimmte Spalten, in einer bestimmten folge vorne stehen.

Ich weiß nicht wie du das mit der case Anweisung meinst. Ich habe nicht so viel Erfahrung im Programmieren.
Bitte um Hilfe...

Gruß Nepo

 

Moin, Nepo,

entweder einen Blick in die VBE-Hilfe werfen zu Select Case *wink.gif* oder folgenden Code versuchen und anpassen:

Code:

 

Super vielen Dank. Das kommt der ganzen Sache schon sehr nahe, jetzt versuche ich nur noch das Eingabefenster zu entfernen und das der das alles automatisch macht, also er soll sofort nach den Spalten suchen und nicht das ich ihm die erst nennnen mussl. bekomme es aber nicht hin *rolleyes.gif*
Über ein bisschen hilfe würde ich mich sehr freuen.

 

Moin, Nepo,

das Worksheet_Activate-Ereignis der Tabelle nehmen, welches beim Auswählen der Tabelle auslöst. Dann sollten die Namen in umgekehrter Reihenfolge in ein Array geschrieben werden und in einer Schleife von LBound bis UBound jeweils in Spalte 1 umgeschrieben werden. Eingabe: Rechtsklick auf Tabellenreiter und Code anzeigen wählen:

Code:

 

Super *Smilie

So habe ich mir das vorgestellt. Danke für deine Hilfe und Gedult mit mir...