Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellbezügebezüge fixieren

Zellbezügebezüge fixieren
02.09.2005 14:44:45
Torsten
Hallo beisammen,
ich möchte die Bezüge in meinen Formeln über VBA fixieren. Händisch mache ich das ja über F2 und F4. Wenn ich das aufzeichne gelange ich zu "ActiveCell.FormulaR1C1 = "=R206C8". Das hilft mir nicht.
Wie muß der Code aussehen? Ich habe mal etwas von SendKeys gehört, mit denen Tastatureingaben simuliert werden können.
Könnt Ihr mir weiterhelfen?
Vielen Dank im voraus.
Gruß
Torsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellbezügebezüge fixieren
02.09.2005 14:54:10
Eule
Hi Torsten
test mal dieses:

Sub indirekt_in_direkte_Verküpfung()
'geht nur z.B. =A1  wird =$A$1
Dim c As Range
Dim X As String, x1 As String, x2 As String
Dim dlz As Byte
Application.ScreenUpdating = False
For Each c In Selection
If c.HasFormula = True Then
dlz = dlz + 1
X = c.Formula
If IsNumeric(Mid(X, 3, 1)) And Not IsNumeric(Mid(X, 2, 1)) Then
x1 = Mid(X, 2, 1)
x2 = Right(X, Len(X) - 2)
c.Formula = "=$" & x1 & "$" & x2
End If
If IsNumeric(Mid(X, 4, 1)) And Not IsNumeric(Mid(X, 3, 1)) Then
x1 = Mid(X, 2, 2)
x2 = Right(X, Len(X) - 3)
c.Formula = "=$" & x1 & "$" & x2
End If
End If
Next c
Application.ScreenUpdating = True
End Sub

Gruss Eule
Anzeige
AW: erledigt - mT
02.09.2005 15:12:15
Torsten
Hallo Eule,
vielen Dank für Deine Rückmeldung. Genau das, was ich brauche. :-))
Gruß
Torsten
AW: Zellbezügebezüge fixieren
02.09.2005 14:55:26
Fred
Hi,
schau dir mal ConvertFormula an.
mfg Fred
AW: erledigt - Danke für Rückmeldung - Gruß Torste
02.09.2005 15:13:10
Torsten

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige