Datum aus einer Userform in einer Tabelle finden

[Björn.412]

Hallo Uwe,



danke für Deine Antwort, aber die funktioniert leider nicht.



Es kommt der Fehler: Fehler beim Kompilieren. Unzulässiger oder nicht definierter Verweis.

Im Code bleibt er beim ersten ".Cells..... stehen".





Und selbst wenn ich dei beiden Zeilen ":Cells ... " als Text markiere, passiert nichts, auch keine MsgBox.



Hast Du noch eine andere Lösung?

[Kuwer]

Hallo Björn,

Im Code bleibt er beim ersten ".Cells..... stehen".

lösche jeweils den Punkt vor dem Cells.

Gruß Uwe

[Björn.412]

Hallo Uwe,
mal wieder danke für Deine schnelle Antwort.

Die Daten aus der Userform werden jetzt in die richtigen Spalten übernommen, nur vier Zeilen zu hoch.

Also das zu suchende Datum "01.01.2022" steht in der 5. Zeile und das Makro schreibt die Daten für den "01.01.2022" in die Zeile 1.

[Kuwer]

Hallo Björn,

schwierige Sache. 

Aber vielleicht könnte man es z.B. so korrigieren: 

Cells(varRow + 4, ...

Gruß Uwe

[Björn.412]

Moin Uwe,
das kenne ich auch und funktioniert auch, aber nicht das eigentliche Ziel.
Es muss ja einen Grund geben, warum er vier Zeilen höher schreibt.

[Kuwer]

Es muss ja einen Grund geben, warum er vier Zeilen höher schreibt.

Gibt es : Die Suche beginnt bei Zeile 5, also mit einem Versatz von 4 Zeilen.

[Björn.412]

Moin Uwe,
ok!
Mir war nicht klar, dass wenn man ab einer bestimmten Zelle sucht "Range(Cells(5, 3), es mit im weiteren mit ", Cells(Rows.Count, 3)), 0)" zu einem Zeilenversatz führt.

Danke für Deine Hilfe.

---

Der funktionierende Code:

Private Sub CommandButton1_Click()

Dim varRow As Variant               
  If IsDate(TextBox1) Then
    varRow = Application.Match(CLng(CDate(TextBox1.Value)), Range(Cells(5, 3), Cells(Rows.Count, 3)), 0)
    If IsNumeric(varRow) Then
      Cells(varRow + 4, 5).Value = TextBox2.Value
      Cells(varRow + 4, 6).Value = TextBox3.Value
    Else
      MsgBox "Datum nicht gefunden!"
    End If
  Else
    MsgBox "Kein Datum in der TextBox!"
  End If
End Sub

[ralf_b]

wenn man ab einer bestimmten Zelle sucht ...

Naja, so allgemein kann man das nicht sagen.  Es lieg an der Suchmethode. 

match sucht innerhalb des gegebenen Bereiches und liefert dort die Zeilennummer in diesem Bereich. Ist der Bereich nicht Deckungsgleich mit dem Tabellenblatt , also  1. Zeile Suchbereich ist nicht Zeile 1 des Blattes, muß ein rechnerischer Ausgleich geschaffen werden um auf die Zelladresse des Blattes zu kommen. 

Arbeitest du nur in dem Bereich und referenzierst deine Bezüge entsprechend, wird kein Ausgleich benötigt.