18.03.2018, 16:17
Hallo VBA Profis,
ich bin neu in dem VBA Gebiet und brauche Eure Unterstützung!
Kann mir bitte jemand helfen einen Makro Code zu erstellen, habe eine Maske mit 7 Textfeldern und Command Button, aktuell kann ich von meiner Textfelder in die nächste freie Zeile (unten) schreiben, was ich aber immer in Zeile 5 übertragen möchte und danach soll in 5 eine neue freie Zeile eingefügt werden damit ich beim nächsten Eintrag eine Freie Zeile in 5 habe.
Die aktulle Einträge sollen immer oben sein, so dass die ausgefüllte Zeilen immer nach unter rutschen.
Aktuell sieht mein Makro so aus!
Private Sub Übertragen_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
(Neu soll immer in Zeile A5-G5 schreiben + neue Zeile in Zeile 5 einfügen und nicht nach unten)
ActiveSheet.Cells(last, 1).Value = Userform1.Textbox1.Value
ActiveSheet.Cells(last, 2).Value = Userform1.Textbox2.Value
ActiveSheet.Cells(last, 3).Value = Userform1.Textbox3.Value
ActiveSheet.Cells(last, 4).Value = Userform1.Textbox4.Value
ActiveSheet.Cells(last, 5).Value = Userform1.Textbox5.Value
ActiveSheet.Cells(last, 6).Value = Userform1.Textbox6.Value
ActiveSheet.Cells(last, 7).Value = Userform1.Textbox7.Value
End Sub
Danke für jede Unterstützung!
Gruß
ich bin neu in dem VBA Gebiet und brauche Eure Unterstützung!
Kann mir bitte jemand helfen einen Makro Code zu erstellen, habe eine Maske mit 7 Textfeldern und Command Button, aktuell kann ich von meiner Textfelder in die nächste freie Zeile (unten) schreiben, was ich aber immer in Zeile 5 übertragen möchte und danach soll in 5 eine neue freie Zeile eingefügt werden damit ich beim nächsten Eintrag eine Freie Zeile in 5 habe.
Die aktulle Einträge sollen immer oben sein, so dass die ausgefüllte Zeilen immer nach unter rutschen.
Aktuell sieht mein Makro so aus!
Private Sub Übertragen_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
(Neu soll immer in Zeile A5-G5 schreiben + neue Zeile in Zeile 5 einfügen und nicht nach unten)
ActiveSheet.Cells(last, 1).Value = Userform1.Textbox1.Value
ActiveSheet.Cells(last, 2).Value = Userform1.Textbox2.Value
ActiveSheet.Cells(last, 3).Value = Userform1.Textbox3.Value
ActiveSheet.Cells(last, 4).Value = Userform1.Textbox4.Value
ActiveSheet.Cells(last, 5).Value = Userform1.Textbox5.Value
ActiveSheet.Cells(last, 6).Value = Userform1.Textbox6.Value
ActiveSheet.Cells(last, 7).Value = Userform1.Textbox7.Value
End Sub
Danke für jede Unterstützung!
Gruß