VBA: In berechnete Zielzelle schreiben

[hellidor]

Guten Morgen Excel-Freunde,

Zur Zeit stehe ich an einem kleinen VBA-Problem das ich kurz im allgemeinen beschreiben möchte (Die genauen Zellangaben sind erst mal belanglos)


In einer bestimmten Zelle wird mittels der Verketten-Funktion eine Zielzelle angezeigt.
Beispiel: in C1 steht eine von mir vorgegebene Spaltennummer (nehmen wir mal A), in C2 steht eine Zahl die durch ein Listenfeld erzeugt wird. In C3 steht die Verkettenfunktion aus den Zellen C1 und C2.
Nun soll durch einen Button in die in C3 ermittelte Zielzelle ein Wert hineingeschreiben werden, der im Makro hinterlegt ist.

Wie kann ich das realisieren, oder wie könnte der Code dafür aussehen?

Eine genaue Zelldefinition brauche ich wie gesagt nicht, weil ich diese dann selbst anpassen kann, nur die Codeumsetzung für das Zellenschreiben aus einer vorgegeben Zielzelle fällt mir schwer.

[Crazy Tom]

Moinmoin

eine Möglichkeit

Code:

Sub test()
   Dim strSpalte As String
   Dim lngZeile As Long
   strSpalte = Range("C1")
   lngZeile = Range("C2")
   Range(strSpalte & lngZeile).Value = 12345
End Sub

MfG Tom

[IchBinIch]

Hi,

nehmen wir an Deine Verkettung steht in C1 dann so

Code:

Range(Cells(1, 3)).Value = 100

Gruß
Ich

Hatte mich verschrieben. Das sollte natürlich C1 heißen. Jetzt korrigiert. Sorry.

[hellidor]

Vielen Dank an euch beiden, eure Vorschläge funktionieren einwandfrei.