SpaltenTauschen
Günter
zum Thema Spalten tauschen habe ich eine geniales Macro gefunden (siehe unten).
Über einen Spinbutton kann man wunderbar Spalten verschieben.
Nun ist es so, dass nur die g a n z e Spalte in diesem Makro verschoben werden kann.
Wer könnte mir bitte das Makro so umschreiben, dass die ganze Spalte
verschoben werden kann o d e r ab der Kursorposition verschoben werden kann?
Echt Supermakro, mit dem fehlenden Etwas....
Schönen Gruß
Günter
https://www.herber.de/bbs/user/63193.xls
Option Explicit
Sub SpaltenTauschen(RechtsLauf As Boolean)
Dim rng As Range
Dim rngR As Range
Dim rngL As Range
Dim arr As Variant
Dim intBeginnSpalte As Integer
Dim intEndeSpalte As Integer
Dim sngSpaltenBreite1 As Single
Dim sngSpaltenBreite2 As Single
Application.ScreenUpdating = False
On Error GoTo fehler
intBeginnSpalte = 1 'SpalteA
intEndeSpalte = 20 'SpalteH
Set rng = ActiveSheet.UsedRange.Columns(ActiveCell.Column)
If RechtsLauf Then
If ActiveCell.Column intBeginnSpalte Then
Set rngL = ActiveSheet.UsedRange.Columns(ActiveCell.Offset(0, -1).Column)
ActiveCell.Offset(0, -1).Activate
sngSpaltenBreite1 = rng.ColumnWidth
sngSpaltenBreite2 = rngL.ColumnWidth
arr = rng
rng.Value = rngL.Value
rngL.Value = arr
rng.ColumnWidth = sngSpaltenBreite2
rngL.ColumnWidth = sngSpaltenBreite1
End If
End If
Application.ScreenUpdating = True
Exit Sub
fehler:
MsgBox "Spalten-Index nicht existent!", , "Fahler!"
Application.ScreenUpdating = True
End Sub