Hallo zusammen,
ich stehe vor dem Problem die Inhalte von zwei Tabellen tauschen zu müssen.
Da die Daten zum Teil aus Checkboxen besteht ist das nicht so einfach.
Meine Idee ist folgende: Ich möchte z.B. die Namen der Tabellenblätter 1.11 und 1.15 tauschen. Dazu muss ich der Tabelle 1.11 erst zur Tabelle "x" umbenennen und 1.15 zu "y" umbenenen. Anschließend bekommt Tabelle "x" die Bezeichnung 1.15 und Tabelle "y" die Bezeichnung 1.11.
Welche Tabellen ihre Bezeichnungen untereinander tauschen sollen steht in Zelle K1 und K2. In diesem Beispiel 1.11 und 1.15.
folgendes habe ich mir überlegt... nur funktioniert es nicht.
Sub test()
alterName = Range("K1")
neuerName = Range("K2")
zwischenName1 = "x"
zwischenName2 = "y"
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
If WsTabelle.Name = alterName Then
Sheets(alterName).Name = zwischenName1
If WsTabelle.Name = neuerName Then
Sheets(alterName).Name = zwischenName2
If WsTabelle.Name = zwischenName1 Then
Sheets(alterName).Name = neuerName
If WsTabelle.Name = zwischenName2 Then
Sheets(alterName).Name = alterName
Exit For
End If
Next WsTabelle
End Sub