Herbers Excel-Forum - das Archiv

Unlösbar für mich

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Unlösbar für mich
von: Günter

Geschrieben am: 14.02.2005 08:56:26
Wer kann mir weiterhelfen ???????

Hier findest du mein Problem...ich hoffe ich habe es genügend erklärt
Danke im Vorhinein für die Hilfe
https://www.herber.de/bbs/user/18018.xls
Bild

Betrifft: AW: Unlösbar für mich
von: Roland Hochhäuser

Geschrieben am: 14.02.2005 12:16:04
Hallo Günter,
hier mal ein Ansatz zum "Selber-weiter-lernen":
Option Explicit
Private Sub ComboBox1_Change()
Dim i As Integer, k As Integer
k = ComboBox1.ListIndex
For i = 1 To 6
Controls("TextBox" & i).Value = Cells(k + 3, i + 1)
Next
End Sub

Private Sub CommandButton1_Click()
Rows(ComboBox1.ListIndex + 3).Delete
ComboBox1.ListIndex = ComboBox1.ListIndex - 1
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub CommandButton4_Click()
'die Reihenfolge in der Übersicht stimm nicht mit der
'in den Stammdaten überein, daher Abweichung
Dim b As Byte
With Sheets("Übersicht")
.Range("A4") = ComboBox1.Text
For b = 1 To 5
.Cells(b + 3, 2) = Me.Controls("Label" & b).Caption
.Cells(b + 3, 3) = Me.Controls("Textbox" & b).Text
Next
End With
End Sub

Private Sub UserForm_Initialize()
Dim j As Integer
For j = 3 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Cells(j, 1)
Next
'TextBox1.MultiLine = True in den Eigenschaften setzen!
'die RowSource für die ComboBox löschen!!!
End Sub

Die Übernahme geht wie das Einlesen, nur rückwärts.
Gruß von Roland aus dem verschneiten Berlin
Bild

Betrifft: AW: Unlösbar für mich
von: günter
Geschrieben am: 14.02.2005 17:21:16
Komm leider auch nicht weiter damit.Hab eben keine Ahnung...shit
 Bild