Datenübergabe von Eingabemaske in Tabellenblatt

Hallo ich habe folgendes Problem,
und würd mich freuen, wenn ihr mir helfen könntet.
Und zwar habe ich in meiner Excelliste in einem Tabellenblatt "Bemerkungen", das wie folgt aussieht:
| A | B | C | D |
1 | XXXX | Datum | Anzahl | Bemerkung |
2 | =B*C | 09.01.2008 | 1 | adfadf D |
3 | =B*C | 09.01.2008 | 2 | asdfwerwer |
4 | =B*C | 10.01.2008 | 1 | qewrqwetqwe |
daneben habe ich mir eine Eingabemaske generiert, die sich auf einem anderen Tabellenblatt öffnet um in das obige Tabellenblatt täglich zwischen 1 und 6 Einträge aufzunehmen.
Nun habe ich allerdings das Problem, dass ich kaum Ahnung von VBA habe und ich mir aber sicher bin, dass ich VBA brauche um dieses Problem zu lösen.
Ich würde euch nun bitten mir die notwendigen Befehle für folgende Operation in VBA aufzulisten (eine Bsp. Grafik bekomme ich leider nicht hochgeladen - es heißt ständig falsche Dateiname oder Dateiformat ungültig, trotz *.gif oder *.jpeg)
1.) erste Leere Zeile in Tabellenblatt "Bemerkungen" suchen und die Zeilennummer in Variable "a" schreiben
2.) Daten aus "Textbox1" - die das Datum enthalten soll - im format "tt.mm.jjjj" in Tabellenblatt "Bemerkungen" in Spalte B in Zeile "a" schreiben
3.) In Spalte "C" udn Zeile "a" eine "1" eintragen
4.) Bemerkungstext aus "Textbox2" der Maske in Spalte D in Zeiile "a" von Tabellenblatt "Bemerkungen" schreiben
5.) Im Tabellenblatt "Bemerkungen" in Spalte A in Zeile "a" das Produkt aus Datum (Excel behandelt dieses ja als Dezimalwert) und Ziffer in Spalte C schreiben
Das ganze soll jeweils gemacht werden, wenn die "Textbox2" oder im folgdenden "Textbox3" bis "Textbox6" - es sollen bis zu 5 Bemerkungen übernommen werden - einen Text enthalten. Wenn Sie leer sind, dann nicht. Für jede weitere Bemerkung zwischen 1 und 5 muss die Zeile "a" ergänzt werden, sodass jede Bemerkung in die nächste Zeile geschrieben wird und es zu keinen Überschreibungen kommt.
Danke schonmal für eure Hilfe,
Gruß Manuel
p.s. Leider kann ich das file nicht hochladen, das es für meinen Arbeitgeber ist

Hallo Manuel,
ich gehe davon aus, dass du in einem UserForm(ular) erfasst, dann sollte es (ungetestet) so gehen:

Public Sub Uebertragen()
Dim lZeile  As Long
Dim iIndex  As Integer
Dim iLfdNr  As Integer
   With Worksheets("Bemerkungen")
      For iIndex = 1 To 5
         If Controls("TextBox" & iIndex).Value <> "" Then
            lZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            If textbox1.Value <> "" Then
               If IsDate(textbox1.Value) Then
                  .Range("B" & lZeile).Value = Format(textbox1.Value, "dd.mm.yyyy")
                Else
                  MsgBox "In der TextBox1 steht kein Datum - Abbruch.", _
                     48, "   Hinweis für " & Application.UserName
                  Exit Sub
               End If
             Else
               MsgBox "Die TextBox1 ist leer - Abbruch.", _
                  48, "   Hinweis für " & Application.UserName
               Exit Sub
            End If
         End If
         iLfdNr = iLfdNr + 1
         .Range("A" & lZeile).Value = iLfdNr
         .Range("B" & lZeile).Value = CInt(Range("B" & lZeile).Value) * iLfdNr
         .Range("C" & lZeile).Value = 1
         .Range("D" & lZeile).Value = textbox2.Value
      Next iIndex
   End With
End Sub

Gruß Peter

Datenübergabe von Eingabemaske in Tabellenblatt

Forumthread: Datenübergabe von Eingabemaske in Tabellenblatt

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial