Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Konvertierung Variable Z1S1 in R1C1

Konvertierung Variable Z1S1 in R1C1
01.10.2002 17:33:25
jochen
hi
VBA-Problem:
eine Variable mit alt="z1s1:z5s5" soll in eine Variable
neu="R1C1:R5C5" umkonvertiert werden.

Mit FormulaR1C1Local oder Application.ConvertFormula hab ich das so nicht hinbekommen.

Hat jemand ne Idee?



3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Suchen und Ersetzen ?
01.10.2002 17:47:12
andre
Hallo Jochen,
Suchen und Ersetzen?
gruss andre
Re: Konvertierung Variable Z1S1 in R1C1
01.10.2002 18:05:41
GerdZ
Für FormulaR1C1Local brauchst Du eine Zelle zum zwischenspeichern.
z.B.
FormelAlt = "=z1s1:z5s5"
ActiveCell.FormulaR1C1Local = FormelAlt
FormelNeu = ActiveCell.FormulaR1C1
MsgBox FormelNeu


Gruß
Gerd
Re: Suchen und Ersetzen ?
01.10.2002 18:25:32
Jochen
Ja so ähnlich hab ich es jetzt auch gelösst. Nicht sehr schön, aber was solls. Danke

Function format_wechsel_z1s1_a1(variable_z1s1 As String)

links = ""
rechts = variable_z1s1
If InStr(variable_z1s1, "!") Then
rechts = Right(rechts, Len(rechts) - InStr(rechts, "!"))
links = Left(variable_z1s1, InStr(variable_z1s1, "!"))
End If
rechts = WorksheetFunction.Substitute(WorksheetFunction.Substitute(rechts, "z", "r"), "s", "c")
format_wechsel_z1s1_a1 = links & Application.ConvertFormula( _
Formula:=rechts, _
FromReferenceStyle:=xlR1C1, _
ToReferenceStyle:=xlA1)
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige