Hallo zusammen !
Ich möchte den Text aus einer InputBox mit dem Inhalt einer Zelle in
einer neuen Zelle verknüpfen:
Dim Text As string
Text = InputBox ("Text", "Eingabe", "Artikelname")
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]& x " & Text ????
HIER HAB ICH MEINE SCWIERIGKEITEN !!!
In "E2" (RC[-1]) steht die Menge, Text ist die Artikelbezeichnung
und dies möchte ich gerne als Zeichenkette in Zelle "F2" einfügen:
Ergebnis-Beispiel : " 5 x Dichtung"
Nachher das Ganze runterkopieren und in Werte wandeln ist kein Problem.
Wer kann mir da helfen?
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
Versuche mal, die Zelle direkt anzusprechen.
Du benutzt den Umweg:
Range("F2").Select
ActiveCell.FormulaR1C1 =
Ohne Umweg wäre es:
Range("F2").FormulaR1C1 = "Dein Inhalt"
Vielleicht hilft das ja weiter.
Ich habe mal in alte Makros bei mir reingeschaut.
Ich glaube Deine Formel =RC[-1] ist falsch.
Die richtige Schreibweise ist =R[-1]C
In meinem Makro erstelle ich eine Jahrestabelle und setze ich in verschiedene Zellen eine Berechnungssumme ein, die dann später Werte ermitteln soll.
Cells(32, I + 1).FormulaR1C1 = "=240-SUM(R[-31]C:R[-1]C)"
Das fertige Ergebnis in so einer Zelle sieht dann so aus:
=240-SUMME(B1:B31)
In der nächsten Telle so:
=240-SUMME(D1:D31)
usw.