Daten aus Userform in Tabellenblatt übertragen

Forumthread: Daten aus Userform in Tabellenblatt übertragen

07.02.2013 18:13:18

Peter

Hallo Leute,
kurz Tabellenerklärung
Tabelle 5 Spalten 10 Zeilen
Spalte A = Format
Spalte B = Buche
Spalte C = Birke
Spalte D = Grau
Spalte E = Sonder
Zeile 1 Spalte A = Leer
Zeile 1 Spalte B-E = Datum
ich möchte im Userform durch drücken des CommandButton1 die Daten aus Textbox1 in eine Tabelle eintragen. Dies soll aber nach Kriterien geschehen.

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
End Sub

Vielen Dank
Peter

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten aus Userform in Tabellenblatt übertragen

09.02.2013 02:01:30

fcs

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

Beliebteste Forumthreads (12 Monate)

Daten aus Userform in Tabellenblatt übertragen

Forumthread: Daten aus Userform in Tabellenblatt übertragen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread