ActiveCell.Row Select XlDown
27.11.2020 11:55:35
Julian
Ich habe folgende Frage an euch:
Was ist die Idee:
Ich Suche nach dem QR Code und möchte in den spalten rechts weitere Daten wie: Datum Ergebnis etc. eintragen.
Dafür habe ich ein Makro wo die Daten erfasst werden.
Im Excel liegt die Liste mit den QR-Codes.:
QR1; Zeit-Stempel; Testresultat
QR2; Zeit-Stempel; Testresultat
usw...
Nun Frage ich im Makro nach dem QR Code ab und vergleiche diesen. Sobald ich diesen gefunden habe, springe ich auf der gleichen Reihe zur Zelle welche einen Zeit-Stempel erhalten soll.
Wenn diese jedoch bereits befüllt ist, möchte ich die ganze Reihe markieren kopieren und oben einfügen.
Leider werden zurzeit in alle neu eingefügten Zellen (der neuen Reihe) die Daten von Zelle B eingefügt.
Heisst wenn in Zelle B 1234 steht stehen in allen nachfolgenden Zellen 1234
Hier noch den Abschnitt:
If Not Cells.Find(QRcode, LookAt:=xlWhole) Is Nothing Then
Cells.Find(QRcode, LookIn:=xlValues).Activate
ActiveCell.Offset(0, 12).Activate
If ActiveCell "" Then
Range("B" & ActiveCell.Row).Resize(, 84).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(0, 12).Activate
End If
Danke für die Hilfe.
Julian