Hallo erstmal,
bin totaler Anfänger und könnte Unterstützung gebrauchen:
Kurzfassung:
Warum geht das nicht bzw. wie bekommt man das zum Laufen?:
Sub Liste_füllen()
Dim Start As Integer
Start = 1
ReiterNummer = """='" & Start & "'" & "!RC[0]"""
MsgBox ReiterNummer
Range("B1").Select
ActiveCell.FormulaR1C1 = "='ReiterNummer'!RC[0]"
End Sub
Längere Erklärung:
Mein Ziel ist: Den Inhalt von einer Zelle von vielen vorhandenen Reitern (1 -99) in einen Reiter zu kopieren und zwar in einer Spalte untereinander.
Im normalem Excel würde das so aussehen
Der Makro recorder erzeugt diesen VB Code:
Sub Wert_aus_anderem_Reiter_kopieren()
Range("B1").Select
ActiveCell.FormulaR1C1 = "='1'!RC[0]"
End Sub
Meine Idee war die ReiterNummern ('1') mittels eines Loops hoch zu zählen
Meine Vorbereitung dazu sieht so aus:
Sub Liste_füllen()
Dim Start As Integer
Start = 1
ReiterNummer = """='" & Start & "'" & "!RC[0]"""
MsgBox ReiterNummer
Range("B1").Select
ActiveCell.FormulaR1C1 = "='ReiterNummer'!RC[0]"
End Sub
Aber das geht wohl nicht!
Warum und wie geht es richtig?
Für Hilfe bin ich sehr dankbar.
Vor allem wenn ich Hintergrundwissen erlangen könnte.
Freundliche Grüße!
bin totaler Anfänger und könnte Unterstützung gebrauchen:
Kurzfassung:
Warum geht das nicht bzw. wie bekommt man das zum Laufen?:
Sub Liste_füllen()
Dim Start As Integer
Start = 1
ReiterNummer = """='" & Start & "'" & "!RC[0]"""
MsgBox ReiterNummer
Range("B1").Select
ActiveCell.FormulaR1C1 = "='ReiterNummer'!RC[0]"
End Sub
Längere Erklärung:
Mein Ziel ist: Den Inhalt von einer Zelle von vielen vorhandenen Reitern (1 -99) in einen Reiter zu kopieren und zwar in einer Spalte untereinander.
Im normalem Excel würde das so aussehen
Der Makro recorder erzeugt diesen VB Code:
Sub Wert_aus_anderem_Reiter_kopieren()
Range("B1").Select
ActiveCell.FormulaR1C1 = "='1'!RC[0]"
End Sub
Meine Idee war die ReiterNummern ('1') mittels eines Loops hoch zu zählen
Meine Vorbereitung dazu sieht so aus:
Sub Liste_füllen()
Dim Start As Integer
Start = 1
ReiterNummer = """='" & Start & "'" & "!RC[0]"""
MsgBox ReiterNummer
Range("B1").Select
ActiveCell.FormulaR1C1 = "='ReiterNummer'!RC[0]"
End Sub
Aber das geht wohl nicht!
Warum und wie geht es richtig?
Für Hilfe bin ich sehr dankbar.
Vor allem wenn ich Hintergrundwissen erlangen könnte.
Freundliche Grüße!