|
Hallo
Ich habe das Makro aus einem anderen Forum erhalten verstehe aber nicht wie ich es umschreiben kann dass es mir 4 Zellen aus meinem Eingabe Datenblatt in das Aufträge Datenblatt einfügt.
In diesem Forum wurde ich böse angegangen da ich mich mit Excel und VBA nicht so gut auskenne und einige Fehler in mein Excel eingebaut habe, und halt mit dem Makrorekorder etwas zu erreichen.
Bitte nur antworten wenn Sie mir helfen möchten.
Hier mein Makro
Sub Letzt_Zeile_Befuellen()
Dim B_Kopf As Range, NeueZeile As Range, Projekt As String
Set B_Kopf = Sheets("Aufträge").Range("b4")
Set NeueZeile = B_Kopf.End(xlDown).Offset(1, 0)
Projekt = Sheets("Eingabe").Range("E8").Value
NeueZeile = Projekt
End Sub
Meine Zellen im Eingabeformular sind E8,E10,E12,und E14
Meine Zellen im Aufträge Datenblatt wo die Daten hin kopiert werden sollen sind b4,c4,d4 und g4
Mit dem Makro oben wird die Zelle E8 in B4 kopiert
Bin dankbar für jede Hilfe
Gruß Fränki
|