VBA mit variablem Eingabewert

[pfann]

Hallo zusammen,

ich habe ein Makro, dass per sendkeys ein anderes Programm steuert.

In diesem Programm muss in an einer Stelle einen Wert eintragen, den ich, bevor ich das Makro starte, gerne auswählen würde.

Ich möchte in Excel vorab eine Auswahl per Auswahlkästchen (Optionsfeld) erstellen, diese Auswahl soll dann einen Wert in die Makro-Formel schreiben bzw. an der richtigen Stelle dann per sendkeys in das externe Programm.
Besonderheit hierbei ist noch, dass, sofern zwei oder mehrere Auswahlen getroffen werden, jede Auswahl durch ein "Komma" getrennt werden.


Falls ich noch irgendetwas liefern soll, sagt bitte bescheid.

Code:

Optionsfeld

Rot
Blau
Grün
Lila

Code:

SendKeys "rot", Wait:=True
SendKeys "{TAB}", Wait:=True

[schauan]

Hallo,

so bekommst Du die Inhalte ausgewählter (selektierter) Zellen in einen Text, denn Du in Deinem Makro verwenden könntest.

Code:

Option Explicit

Sub test()
'Variablendeklaration
Dim Zellen As Range, strText As String
'Schleife ueber alle gewaehlten Zellen
For Each Zellen In Selection
 'Text uebernehmen und Komma setzen
 strText = Zellen.Value & ","
'Ende Schleife ueber alle gewaehlten Zellen
Next
'Letztes Komma entfernen
strText = Left(strText, Len(strText) - 1)
End Sub

[pfann]

vielen Dank. Ich habe es mittlerweile gelöst!

[WillWissen]

vielen Dank. Ich habe es mittlerweile gelöst!

Moin,

nachfolgende Leser wären bestimmt dankbar, wenn sie an deiner Lösung teilhaben könnten.

[pfann]

ja natürlich, sorry.

In Excel habe ich eine Dropdown-Auswahlliste erstellt und per sendkeys range ("A1") auf dieses Feld verwiesen.