AW: Daten aus Userform in Tabellenblatt übertragen
09.02.2013 02:01:30
fcs
Hallo Peter,
hier mal im Blindflug und ungetestet erstellt, wie es in etwa aussehen könnte.
Gruß
Franz
Private Sub CommandButton1_Click()
'wenn ich diesen Button drücke soll es mir die Daten aus Textbox1 in das Tabellenblatt " _
Berechnung" nach folgenden Kriterien eintragen
' 1. Datum aus ComboBox1 und Datum in der Zeile 1 stimmt über ein
' 2. Format aus ComboBox2 und Format aus in der Spalte A stimmt überein
' 3. Farbe aus ComboBox3 und Farbe in Zeile 2 stimmt überein
' 4. Sollte die Farbe weder Birke, Buche noch Grau sein, soll es die Anzahl aus Textbox1 _
und die Farbe aus ComboBox3 in die Spalte Sonder eintragen
Dim lngSpalte As Long, lngZeile As Long
Dim datDatum As Date, bolWertFehlt As Boolean
'Eingaben prüfen
bolWertFehlt = False
If Me.Combox1.ListIndex -1 Then
MsgBox "Es wurde kein Datum ausgewählt."
bolWertFehlt = True
End If
If Me.Combox2.ListIndex -1 Then
MsgBox "Es wurde kein Format ausgewählt."
bolWertFehlt = True
End If
If Me.Combox3.ListIndex -1 Then
MsgBox "Es wurde keine Farbe ausgewählt."
bolWertFehlt = True
End If
If Not IsNumeric(Me.Textbox1.Value) Then
MsgBox "Textbox1 für ANzahl enthält keinen nummerishcne Wert"
bolWertFehlt = True
End If
If bolWertFehlt = False Then
datDatum = CDate(Me.Combobox1.Value)
With Worksheets("Berechnung")
'Spalten B bis E abarbeiten
For lngSpalte = 2 To 5
'Datum mit Wert in Zeile 1 vergleichen
If datDatum = .Cells(1, lngSpalte).Value = datDatum Then
For Zeile = 3 To 10
'Format mit Wert in Spalte A vergleichen
If Me.Combobox2.Value = .Cells(lngZeile, 1).Value Then
'Farbe mit Wert in Zeile 2 vergleichen
If Me.ComboBox3.Value = .Cells(lngZeile, 2).Value Then
.Cells(lngZeile, lngSpalte).Value = CDbl(Me.Textbox1.Value)
ElseIf lngSpalte = 5 Then
.Cells(lngZeile, lngSpalte).Value = Me.Textbox1.Value & " " & Me.ComboBox3. _
Value
End If
End If
Next
End If
Next
End With
End If
End Sub