Hallo,
kann mir jemand bei folgendes helfen?
Ich möchte das per VBA ein Zellinhalt vervollständigt wird. In A1 soll an den Schluß ", " + der Inhalt von B1 + "entsch." angehängt werden. Es soll dann so aussehen, wie in A5. Das ganze soll per Klick auf einem Button ausgelöst werden. https://www.herber.de/bbs/user/66244.xls
Gruß
Karsten
AW: Zelle per Makro ausfüllen
werner
Hallo Karsten
Per VBA
Sub einfuegen()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=""xxxx,""& TEXT(RC[1],""Standard"")&"" entsch."""
End Sub
Per Formel
="xxxx,"& TEXT(B1;"Standard")&" entsch."
Tschüs Werner
AW: Zelle per Makro ausfüllen
Lena
Hallo Werner,
danke, aber ich meine es etwas anders.
Der Inhalt der akt. Zelle (in dem Fall A1) soll nicht überschrieben werden, allso bestehen bleiben. Es soll nur etwas hinten rangehängt werden.
Gruß
Karsten
Hallo Sepp,
danke, aber die Sache soll anders laufen. Siehe bitte meine Antwort auf Werner.
Gruß
Karsten
bei mir wird nichts überschrieben! o.T.
Josef
Gruß Sepp
AW: bei mir wird nichts überschrieben! o.T.
Lena
Hallo Sepp,
ok. Hab selbst etwasrumgedoktert. Das sollte rauskommen:
ActiveCell = ActiveCell & ", " & Range("B1") & " entsch."
Ohne deine Grundlage hätte ich es nicht gepackt.
Danke
Gruß
Karsten
PS. bitte nicht über "Lena" wundern. Das war irrtümlicherweise die Vorlage meiner Frau.
AW: bei mir wird nichts überschrieben! o.T.
Karsten
Hallo Sepp,
nun sehe ich, dass nicht immer mit etwas gefüllt ist. Für den Fall ist das " ," überflüssig.
Könntest du mir den Code nochmasl abändern?
Gruß
Karsten
AW: bei mir wird nichts überschrieben! o.T.
Josef
Hallo Karsten,
If Range("B1") <> "" Then
ActiveCell = ActiveCell & ", " & Range("B1") & " entsch."
Else
ActiveCell = ActiveCell & " entsch."
End If