ich möchte gerne eine Tabelle mit Zellbezügen transponieren. Leider zerschießt es mir die Zellbezüge. Gibt es eine Möglichkeit trotzdem zu transponieren ohne manuell hand anzulegen?
Vielen Dank für Eure Rückmeldung.
Gruß Gabi
Sub F_raus()
Dim zelle As Range
For Each zelle In Selection
' MsgBox zelle.Formula
If Left(zelle.Formula, 1) = "=" Then
zelle.Formula = "=""" & Right(zelle.Formula, Len(zelle.Formula) - 1) & """"
End If
Next zelle
End Sub
Sub F_rein()
Dim zelle As Range
For Each zelle In Selection
' MsgBox zelle.Formula
If Left(zelle.Formula, 2) = "=""" Then
zelle.Formula = "=" & Mid(zelle.Formula, 3, Len(zelle.Formula) - 3)
End If
Next zelle
End Sub