Suchwert in Tabelle finden und einfügen
17.02.2022 20:18:55
Ringkampf
ich bearbeite zur Zeit eine Maschinenwartungsliste, um diesen komfortabel zu bearbeiten, sollen Funktionen über Makros ablaufen.
In der Liste der fälligen Wartungsarbeiten (Tabelle2) soll das Datum der durchgeführten Wartung (Spalte 9), in Tabelle1 Spalte 7 eingefügt werden.
Dazu haben alle Wartungsarbeiten einen Datensatz (Zeile) mit eindeutiger ID in Tabelle1 und Tabelle2.
Die fälligen Wartungsarbeiten beginnen in Tabelle 2, Zeile 9.
Mein Problem ist, das Excel den Offset vom Fundort nicht machen will,
ich habe mir schon einige Beispiele zur Find-Funktion und Offset-Funkion angesehen und verstehe nicht, warum das nicht funktioniert.
Wer hat einen Rat für mich?
Hier ein Auszug aus dem Makro-Code:
Dim Fundort As Range
Dim Suchwert As String
Tabelle2.Cells(9, 9).Copy '###Wartungsdatum kopieren (Spalte 9)
Suchwert = Tabelle2.Cells(9, 1).Value '###Suchwert = ID vom Wartungsdatensatz (Spalte 1)
Set Fundort = Tabelle1.Range("A2:A9999").Find(What:=Suchwert, LookIn:=xlValues, LookAt:=xlWhole)
If Not Fundort Is Nothing Then
Fundort.Offset(0, 6).Select '###den Fundort des Suchwertes in Spalte7 verschieben
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ '###kopiertes Wartungsdatum einfügen
:=False, Transpose:=False
End If
End Sub
Danke, Gruß Frieder