Zellbezüge von Textfeldern verschieben

Hey,
Ich hatte vor ein paar Tagen schon ein ähnliches Problem gepostet, wofür ich hier eine super Lösung erhalten habe.
Es ging darum, die Zellbezüge von vielen Textfeldern zugleich auf ein neues Tabellenblatt zu beziehen.
Dafür wurde dieser Code verwendet:


Sub aaa()
Dim s As Shape, t
Application.ScreenUpdating = False
For Each s In ActiveSheet.Shapes
If s.Type = msoTextBox Then
With s.DrawingObject
If Len(.Formula) Then
t = Split(.Formula, "!")
.Formula = "='Haupttabellenblatt'!" & t(UBound(t))
End If
End With
End If
Next
End Sub

Nun geht es darum, dass ich all diese Textfelder duplizieren muss (Copy and Paste) und sämtliche Zellbezüge für diese um einen bestimmten Betrag verschieben muss (konkret: um eins nach rechts, sprich aus $F$17 mach $G$17), weshalb ich einen neuen Thread dafür eröffnet habe. In diesem speziellen Fall würde es sogar reichen, alle "Fxx" Zellbezüge zu "Gxx" Zellbezügen zu verändern, da sich alle Textfelder auf die F-Spalte beziehen und auf G verschoben werden sollen. Falls es möglich ist, wäre es aber wohl für zukünftige Zwecke und andere Leute, welche diesen Thread entdecken hilfreicher, möglichst allgemein zu halten.
Gibt es auch hierfür eine Lösung das für alle Textfelder zu machen?
Freue mich über alle Antworten!
Danke schon im Voraus! :)
LG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aa() Dim s As Shape Application.ScreenUpdating = False For Each s In ActiveSheet.Shapes If s.Type = msoTextBox Then s.Copy ActiveSheet.Paste With Selection .Left = s.Left + s.TopLeftCell.Width .Top = s.Top .Formula = Replace(s.DrawingObject.Formula, "$F$", "$G$") End With End If Next End Sub

Sub aaa() Dim s As Shape, t Application.ScreenUpdating = False For Each s In ActiveSheet.Shapes If s.Type = msoTextBox Then With s.DrawingObject If Len(.Formula) Then t = Split(.Formula, "!") .Formula = "='Haupttabellenblatt'!" & Trim(t(UBound(t))) End If End With End If Next End Sub

Hi
in der Regel ist die Formel (.Formula) eines Objektes ein Text, der folgendem Schema entspricht:
Tabellenblattname - Ausrufezeichen - Zellbezug
dh konkret beispielsweise; "Tabelle1!A1"
Split zerlegt einen Textstring am angegebenen Trennzeichen in ein Array, dh aus "tabelle1!A1" wird dann
t(0) = "Tabelle1"
t(1) = "A1"
alternativ hätte man die Zeile

.Formula = "='Haupttabellenblatt'!" & Trim(t(UBound(t)))

auch so schreiben können:

.Formula = "='Haupttabellenblatt'" & mid(.Formula, InstrRev(.Formula, "!"))

das


If Len(.Formula) Then

prüft einfach nur, ob überhaupt eine Formel vorhanden ist, wenn nein ist die Länge des Formeltextes = 0 und die Zahl 0 wird als FALSCH interpretiert wenn sie als Boolscher Wert verwendet wird (und jede andere Zahl als WAHR)
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zellbezüge von Textfeldern verschieben

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellbezüge von Textfeldern verschieben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread