Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus Userform in Tabellenblatt übertragen

Daten aus Userform in Tabellenblatt übertragen
09.02.2013 18:36:34
Peter
Hallo Leute,
erstmal Danke an Franz, der mir bei der erstellung des Codes geholfen hat, ich kann auf seine Antwaort leider nicht antworten, eventuell kann mir ja jemand einen Tip geben wie ich das beim nächsten mal tun kann. danke
Nun zu meinem Code!
Ich habe den Code mal so ausprobiert, aber er funktioniert noch nicht richtig!
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 DatumBestellung und Datum in der Zeile 1 stimmt über ein
' 2. Format aus FormatBestellung und Format aus  in der Spalte A stimmt überein
' 3. Farbe aus FarbeBestellung 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.DatumBestellung.ListIndex  -1 Then
MsgBox "Es wurde kein Datum ausgewählt."
bolWertFehlt = True
End If
If Me.FormatBestellung.ListIndex  -1 Then
MsgBox "Es wurde kein Format ausgewählt."
bolWertFehlt = True
End If
If Me.FarbeBestellung.ListIndex  -1 Then
MsgBox "Es wurde keine Farbe ausgewählt."
bolWertFehlt = True
End If
If Not IsNumeric(Me.AnzahlBestellung.Value) Then
MsgBox "Feld für Anzahl enthält keinen nummerischen Wert"
bolWertFehlt = True
End If
If bolWertFehlt = False Then
datDatum = CDate(Me.DatumBestellung.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 lngZeile = 3 To 42
'Format mit Wert in Spalte A vergleichen
If Me.FormatBestellung.Value = .Cells(lngZeile, 1).Value Then
'Farbe mit Wert in Zeile 2 vergleichen
If Me.FarbeBestellung.Value = .Cells(lngZeile, 2).Value Then
.Cells(lngZeile, lngSpalte).Value = CDbl(Me.AnzahlBestellung.Value)
ElseIf lngSpalte = 5 Then
.Cells(lngZeile, lngSpalte).Value = Me.AnzahlBestellung.Value & "  " & Me. _
FarbeBestellung. _
Value
End If
End If
Next
End If
Next
End With
End If
End Sub
Jetz führt er den Code ordnungsgemäß durch, aber es steht dann kein Ergebnis in der Zelle wo es sollte.
Kann mir jemand helfen?
https://www.herber.de/bbs/user/83826.xlsm
Vielen Dank
Peter Stange

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vielleicht der Punkt nach With
09.02.2013 19:04:19
Matthias
Hallo
Vorab ich habs nicht getestet
Aber evtl fehlen da die Punkte wegen With (sonst machts ja keinen Sinn)

Dim z As Integer
With Sheets("Daten")
z = .Range("A65565").End(xlUp).Row + 1
.Cells(z, 1) = TextBox1
End With
Gruß Matthias
Anzeige

341 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige