Office: (Office 2019) Eingabemaske mit Bearbeitung an bestimmter Stelle

Hallo,
Leider bin ich noch ziemlich neu im VBA Bereich und ich sitze gerade an einer Eingabemaske für meine Datenbank. Ich glaube es ist etwas ambitionierter, aber selbst Anreize
Dabei ist der Grobe Plan:
D13: Hier wird der "Key" eingegeben(nachdem in der bestehenden Tabelle "Gesamtdaten" gesucht wird) --> Dieser bestimmt dann die Zeile in die Werte Eingegeben werden.
Da entsteht mein Haupt Problem, wie finde ich die richtige Zeile in der ich die Daten eintragen möchte.
Danach möchte ich das der Wert den ich in H17 eintragen habe in der Tabelle "Gesamtdaten" in der Spalte Q und der ermittelten Zeile eingefügt wird
Das gleiche für den Wert aus H20 in R und der ermittelnden Zeile

Tabellenblatt 1 heißt dabei Dashboard

 

Hallo,
das kannst du mit der Methode .Find machen. Diese ist eine Range und kann die Zeilennummer mit .Row ausgeben.

Gruß Uwe

 

Vielen Dank für die Antwort.
Habe leider aber immer noch das folgende Problem, das er mir sagt die Typen währen unverträglich
Das ist dann hoffentlich das letzte Problem
Code:

Dim Zeile As Range
Set Zeile = Range("A:A").Find(What:=Range("D13").Value, LookIn:=xlValues, lookat:=xlWhole).Row


With tb_Eingabeformular

'Datenbank befüllen
tbl.DataBodyRange(Zeile, 17).Value = .Range("H17").Vlaue

 

Hallo,

du hast die Variable "Zeile" als Range deklariert. Mit der Row-Eigenschaft von "Find" weist du aber der Variable "Zeile" eine Long-Integer-Zahl (Row ist hier die Zeilennummer und nicht ein Zeilenbereich) zu. Der Code muss richtigerweise lauten:

Dim Zeile As Long
Let Zeile = Range("A:A").Find(What:=Range("D13").Value, LookIn:=xlValues, lookat:=xlWhole).Row

wobei man das "Let" auch weglassen kann (normalerweise) - auf alle Fälle darf dort keinesfalls "Set" stehen.

 

Hallo miteinander,
@ Anton: Kann man machen, aber wenn kein Wert gefunden wird, läuft es in einen Fehler.
@ Hubert: Besser so:

Code:

    Dim Zeile As Range, i As Long
    Set Zeile = Range("A:A").Find(What:=Range("D13").Value, LookIn:=xlValues, lookat:=xlWhole)
    
    If Not Zeile Is Nothing Then
        i = Zeile.Row
    End If
    ' und dann verwendest du in deinem weiteren Code i als Zeilennummer

Gruß Uwe

 

Danke für die Antwort, jetzt bleibt es leider so das er das in die Überschrift einfügt und nicht in die gewünschte Zelle
Tut mir leid für die vielen Umstände, arbeite michh aber erst so richtig in das Thema rein und bin noch ganz am Anfang. Ich kopiere jetzt hier mal meinen gesamten Code hin:

Code:
Option Explicit


Sub Daten_change()
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)

Dim Zeile As Range, i As Long
Set Zeile = Range("A:A").Find(What:=Range("D13").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Zeile Is Nothing Then
i = Zeile.Row
End If



With tb_Eingabeformular
tbl.DataBodyRange(i, 17).Value = .Range("H17").Value
tbl.DataBodyRange(i, 18).Value = .Range("H20").Value
tbl.DataBodyRange(i, 22).Value = .Range("H23").Value
tbl.DataBodyRange(i, 24).Value = .Range("H26").Value
tbl.DataBodyRange(i, 30).Value = .Range("H29").Value
tbl.DataBodyRange(i, 21).Value = .Range("P17").Value
tbl.DataBodyRange(i, 20).Value = .Range("P20").Value
tbl.DataBodyRange(i, 23).Value = .Range("P23").Value
tbl.DataBodyRange(i, 25).Value = .Range("P26").Value
tbl.DataBodyRange(i, 27).Value = .Range("P29").Value


'Spalten leeren
.Range("H17").ClearContents
.Range("H20").ClearContents
.Range("H23").ClearContents
.Range("H26").ClearContents
.Range("H29").ClearContents

.Range("P17").ClearContents
.Range("P20").ClearContents
.Range("P23").ClearContents
.Range("P26").ClearContents
.Range("P29").ClearContents

End With

End Sub

 

Hallo,

Lade bitte mal die Datei anonymisiert mit ein paar verwertbaren Daten hoch. Du hast ja eine/mehrere dynamische Tabelle(n) drin (ListObject). Da kann man das anders/besser angehen.

Gruß Uwe

 

Ich danke so viel für die Mühen

 

Hallo,

ich habe dein Makro in der beiliegenden Datei modifiziert wie folgt:

Code:

Option Explicit

Sub Daten_change()
   Dim tbZeile As Range
   Dim Zelle As Range, i As Long
   Dim D13val As Variant
 
   With tb_Datenbank.ListObjects(1)
 
      D13val = tb_Eingabeformular.Range("D13").Value
      Set Zelle = .ListColumns("Datums_ID").DataBodyRange.Find(What:=D13val, LookIn:=xlValues, lookat:=xlWhole)
      If Zelle Is Nothing Then
          MsgBox Prompt:="'" & D13val & "' wurde in 'Gesamtdaten!$A:$A' nicht gefunden.", _
                 Title:="Erfolglose Suche - Abbruch"
          Exit Sub
      Else
          i = .HeaderRowRange.Row                      'Arbeitsblatt-ZeilenNr. der ListObject-Kopfzeile
          Set tbZeile = .ListRows(Zelle.Row - i).Range 'Zeilenbereich der gesuchten ListObject-Zeile
      End If
 
   End With
 
   With tb_Eingabeformular
 
       tbZeile(17).Value = .Range("H17").Value
       tbZeile(18).Value = .Range("H20").Value
       tbZeile(22).Value = .Range("H23").Value
       tbZeile(24).Value = .Range("H26").Value
       tbZeile(30).Value = .Range("H29").Value
   
       tbZeile(21).Value = .Range("P17").Value
       tbZeile(20).Value = .Range("P20").Value
       tbZeile(23).Value = .Range("P23").Value
       tbZeile(25).Value = .Range("P26").Value
       tbZeile(27).Value = .Range("P29").Value
   
       'Spalten leeren
       .Range("H17").ClearContents
       .Range("H20").ClearContents
       .Range("H23").ClearContents
       .Range("H26").ClearContents
       .Range("H29").ClearContents
   
       .Range("P17").ClearContents
       .Range("P20").ClearContents
       .Range("P23").ClearContents
       .Range("P26").ClearContents
       .Range("P29").ClearContents
   
   End With
 
End Sub

 

Vielen vielen Dank!