|
Hallo zusammen,
ich versuche ein Makro zuschreiben, um gewisse daten automatisch einzugeben und zu drucken.
Bis jetzt klappt alles außer, dass ich den Wert von der ausgewählten Zelle ins Makro bekomme.
Ich bekomme sogar den Wert angezeigt den ich ausgewählt habe, aber dennoch klappt es nicht:
Am Anfang hat das Makro die Liste von oben nach unten bearbeitet, aber ab und an brauche ich einen Bestimmten Lagerplatz oder das Makro soll ab einen Bestimmten Platz starten und nicht immer vom Anfang der Liste.
Heute sind meine ersten Makro versuche, daher schaut es alles noch ein wenig "unsauber" oder "Planlos" aus :D
Ich arbeite mit der 365 Version
Sub One_Find()
Dim Lagerplatz As Range
Dim number As Long, i As Long
number = Range("N16").Value
For i = 1 To number
Range(ActiveCell).Copy
Range("N13").PasteSpecial Paste:=xlPasteValues
Set Lagerplatz = Worksheets("Lager").Range("A:A").Find(What:=Worksheets("Lager").Range("N13").Value, LookIn:=xlValues, LookAt:=xlWhole)
Lagerplatz.Offset(, 1).Value = Worksheets("Lager").Range("N7").Value
Lagerplatz.Offset(, 2).Value = Worksheets("Lager").Range("N8").Value
Lagerplatz.Offset(, 3).Value = Worksheets("Lager").Range("N9").Value
Lagerplatz.Offset(, 4).Value = Worksheets("Lager").Range("N4").Value
Lagerplatz.Offset(, 5).Value = Worksheets("Lager").Range("N11").Value
Lagerplatz.Offset(, 6).Value = Worksheets("Lager").Range("N5").Value
Range("N16").ClearContents
Worksheets("Platzkarte").Range("A1:G10").PrintPreview
Next i
End Sub
Vielleicht findet jemand den Fehler und kann mir weiterhelfen.
Vielen Dank im Voraus!
Viele Grüße,
Twice
|