Tauschen Der Spalten Funktioniert (MAKRO) Nicht ?!

Abend zusammen,
ich hab` heut` abend noch ein weiteres Problem - von meiner Freundin ganz zu schweigen (sie schlägt mich tot wenn sie erfährt was ich heute abend mache & sie wieder versetze) ... Doch bleiben wir bei der Sache ...
Ich hab soeben versucht ein MAKRO zum vetrauschen zu schreiben :
ICH MÖCHTE GERNE DIE 1. SPALTE MIT DER 32. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 2. SPALTE MIT DER 31. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 3. SPALTE MIT DER 30. SPALTE VERTAUSCHEN
...
...
...
ICH MÖCHTE GERNE DIE 30. SPALTE MIT DER 3. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 31. SPALTE MIT DER 2. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 32. SPALTE MIT DER 1. SPALTE VERTAUSCHEN


Sub Vertauschen()
Dim iSpalte   As Integer  ' For/Next Spaltenindex A - O
Dim lIndx     As Long     ' Index zum bearbeiten des Arrays
Dim lZeile    As Long     ' For/Next Zeilenindex 1 - 32
Application.ScreenUpdating = False ' Bildschirm Update unterbinden
For iSpalte = 1 To 15                       ' Spalte A bis O
lIndx = 0                               ' Array-Index auf 0 setzen
For lZeile = 32 To 1 Step -1            ' von Zeile 32 bis 1
aVar(lIndx) = Cells(lZeile, iSpalte) ' Array mit Daten einer Spalte füllen
lIndx = lIndx + 1                    ' Index um 1 erhöhen
Next lZeile                             ' nächste Zeile abwärts
For lZeile = 1 To 32                    ' von Zeile 1 bis 32
Cells(lZeile, iSpalte) = aVar(lZeile - 1) ' Spalte aus Array zurückholen
Next lZeile                             ' nächste Zeile
Next iSpalte                               ' nächste Spalte
Application.ScreenUpdating = True          ' Bildschirm Update freigeben
End Sub

Doch leider kommt immer die Fehlermeldung COMPILE ERROR !!! Schaut euch einfach mal die Datei an !!! Für einen EXCEL bzw. VBA Experten ist auch dieses Problem eigentlich keins !!! Doch für einen Rookie wie mich macht es nur phantomschmerzen bzw. einen heißen Kopf !!! Hier die Datei : https://www.herber.de/bbs/user/50943.xls
Dank Euch vielmals für Euren support !!!
MfG
Leo van der Haydn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Tausche() Dim anZ As Byte Dim MeinTab As Worksheet Set MeinTab = ActiveSheet ActiveSheet.Copy After:=Sheets(1) Application.ScreenUpdating = False With MeinTab For anZ = 1 To 15 Range(Cells(1, 16 - anZ), Cells(22, 16 - anZ)).Copy .Range(.Cells(1, 0 + anZ), .Cells(22, 0 + _ anZ)) Range(Cells(1, 0 + anZ), Cells(22, 0 + anZ)).Copy .Range(.Cells(1, 16 - anZ), .Cells(22, 16 - _ anZ)) Next anZ End With Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Verdammt !!!
Ich stehe hier unter starkstrom !!! Ein Atomreaktor ist nichts dagegen 8)
Ihr habt beide recht !!! Hab` mich im eifer des gefechts falsch ausgedrückt !!!
Aber dank euch trotzdem für den bisherigen support !!! Vielleicht kann ich ja das MAKRO SPALTEN Vertauschen irgendwann malk nutzen !!! Danke ...
ICH MÖCHTE GERNE DIE 1. ZEILE MIT DER 32. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 2. ZEILE MIT DER 31. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 3. ZEILE MIT DER 30. SPALTE VERTAUSCHEN
...
...
...
ICH MÖCHTE GERNE DIE 30. ZEILE MIT DER 3. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 31. ZEILE MIT DER 2. SPALTE VERTAUSCHEN
ICH MÖCHTE GERNE DIE 32. ZEILE MIT DER 1. SPALTE VERTAUSCHEN
Ich bekomm` die Daten von `nem Kumpel - und der bekommt Sie eben immer nur so aus seiner Software entpackt !!! Weshalb ich mich eben selber um das vertauschen (der historischen Daten) heute Nacht halt` noch kümmern muss - sonst pflippt mein Onkel demnächst aus 8)
Wie dem auch sei - ich würd` mich wahnsinnig freuen, wenn ihr mir noch kurz das MAKRO für das VERTAUSCHEN DER ZELLEN 1-32 bzw. A-0 noch einmal formulieren könntet !!! Ich kriegs heut nicht mehr gebacken !!! Muss was essen sonst explodiere ich hier wie ein Vulkan !!!
MfG
Leo van der Haydn

Sub Tausche() Dim anZ As Byte Dim MeinTab As Worksheet Set MeinTab = ActiveSheet 'Merke aktuelle Tabelle ActiveSheet.Copy After:=Sheets(1) 'dupliziere diese Tabelle Application.ScreenUpdating = False 'Bildschirmaktualisierung aus With MeinTab 'um den Code etwas kürzer zu machen For anZ = 1 To 15 'Schleife für 15 Spalten 'kopiere Spalte 16 nach Spalte 1 in Org. Tabelle usw. Range(Cells(1, 16 - anZ), Cells(33, 16 - anZ)) _ .Copy .Range(.Cells(1, 0 + anZ), .Cells(33, 0 + anZ)) Next anZ End With Application.DisplayAlerts = False 'Excel Meldung aus ActiveSheet.Delete 'Tabelle löschen Application.DisplayAlerts = True 'Excel Meldung an Application.ScreenUpdating = True End Sub

Sub Sortiere_Verschieb() Application.ScreenUpdating = False Range(Range("A2:Q2"), Range("A2:Q2").End(xlDown)).Sort Key1:=Range("A2"), _ Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Rows("1:1").Copy Rows(Range("A65000").End(xlUp).Offset(1, 0).Row).PasteSpecial Rows("1:1").Clear Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Tauschen Der Spalten Funktioniert (MAKRO) Nicht ?!

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tauschen Der Spalten Funktioniert (MAKRO) Nicht ?!

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread