[EXCEL] Makro Kombinationsfeld

[c0mp4ct]

Hallo,

ich stehe vor einer schwere Aufgabe, welche ich hoffe mit eurer Hilfe lösen zu können.

Es geht um ein Kombinationsfeld, in dem soll Stufe1, Stufe2... Stufe5 stehen. Wenn ich jetzt Stufe1 auswähle soll Text (A1-A4) aus einem anderen Tabellenblatt eingefügt werden, welcher bei Zeilenende automatisch einen Zeilenumbruch in die untere Zeile macht. Klingt vll. sehr einfach für einen erfahrenen VB Programmierer, doch ich bekomme es nicht hin. Habe zwar Grundkenntnis in Programmierung, doch das übersteigt meine Kenntnisse.

Private Sub cbstufe()

' Beschriftung der Zeilen
.AddItem "Stufe1"
.AddItem "Stufe2"
.AddItem "Stufe3"
.AddItem "Stufe4"
.AddItem "Stufe5"

Sub Zeilenumbruch()
	Dim b As Integer
	Dim Ganzes As String
          b = Range("B2")
	  Ganzes = Range("A1") & " "
    If b < 20 Or b >= Len(Ganzes) Then
	  Range("A4") = Range("A1")
	Exit Sub
    End If
End Sub

End Sub

Es ist fast nichts, wahrscheinlich auch noch viel falsch, doch ich will das hinbekommen und hoffe ihr könnt mir helfen. Die Items sollen auswählbar sein und müssen mit dem passenden Text verknüft werden wenn es ausgewählt wurde. Dann muss der Text (umfasst mehrere Zeilen in denen auch noch Formeln vorhanden sind) aus einem anderen Tabellenblatt2 eingefügt werden und angepasst mit dem Befehl des Zeilenumbruchs. Ich erwarte nicht das ihr mir eine fertige Funktion gebt, nur Ansätze zu den Einzelnen Punkten das ich mich schneller hineinfinde.

Hoffe ihr helft mir dabei.

Danke
Gruß
Tim

 

[c0mp4ct]

*gelöst* kann gelöscht werden