nur eine Combobox

Question

Hallo Allseits,

Wie immer habe ich Probleme einen VBA-Code nach meinen Erfordernissen anzupassen.

Folgender Code (im Beispiel) ermöglicht es mit nur einer Combobox (UserForm) die Daten von Tabelle1 A1 bis B3 je nach Auswahl des Inhaltes von A1 bis A3 samt B1 bis B3 jeweils nach Tabelle2 A1 und B1 zu übertragen.

Mir geht es darum, dass z.B. bei Auswahl von A1 > B1:F1 nach Tabelle2 mitübertragen werden.

Die im Code vorhandene Währungsformatierung brauche ich nicht, es soll jedoch möglich sein, dass Zahlen als Zahlen und Texte als Texte übernommen werden.

Beispiel

Für Hinweise, Tipps, Links oder eventuell Lösung bedanke ich mich im Voraus.

Gruß

Paul1

Answer 1

Hi Paul,
[code]Private Sub ComboBox1_Change()
   If ComboBox1.ListIndex > -1 Then
      Range(Cells(ComboBox1.ListIndex + 1, 1), Cells(ComboBox1.ListIndex + 1, 6)).Copy _
         Tabelle2.Range("A1")
      ComboBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 0) & "       " & _
         Format(ComboBox1.List(ComboBox1.ListIndex, 1), " #.#0 €")
   End If
End Sub[/code]
Bis später,
karin

Answer 2

Guten Morgen Karin,

herzlichen Dank, klappt bestens!


schönen Sonntag
mit Gruß

Paul1