florian86
Goto Top

Excel Tabellenblatt finden und Zeile kopieren

Hallo,

ich möchte anhand von Buttons einen Zugang bzw. einen Abgang auf bestimmte Tabellenblätter kopieren.

a97a00a21030ba7586a0589856d2d494

Die Tabellenblätter entsprechen der jeweiligen anzugebenen Artikelnummer siehe Bild.
Das Makro soll dann also schauen und die eingetragene Artikelnummer mit den Tabellenblättern vergleichen und
die restlichen Werte dann immer in die nächste freie Zeile des jeweiligen Tabellenblattes(= der angegebenen Artikelnummer ) kopieren.

Mit freundlichen Grüßen

Florian86

Content-Key: 286808

Url: https://administrator.de/contentid/286808

Ausgedruckt am: 19.03.2024 um 09:03 Uhr

Mitglied: 114757
Lösung 114757 27.10.2015, aktualisiert am 30.10.2015 um 07:12:25 Uhr
Goto Top
Sub ZugangBuchen()
    Dim target As Worksheet, rngFree As Range
    Set target = Sheets(ActiveSheet.Range("B6").Value)  
    With target
        Set rngFree = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
        rngFree.Resize(1, 5).Value = ActiveSheet.Range("C6:G6").Value  
    End With
End Sub
Gruß jodel32
Mitglied: Florian86
Florian86 06.11.2015 um 08:50:32 Uhr
Goto Top
Hallo Jodel32,

kann ich hier auch noch sagen das er erst ab einer bestimmten Zeile Anfangen soll.
Jetzt zählt er ja von oben durch.

MfG

Florian86
Mitglied: 114757
Lösung 114757 06.11.2015 aktualisiert um 10:41:43 Uhr
Goto Top
Zitat von @Florian86:

Hallo Jodel32,

kann ich hier auch noch sagen das er erst ab einer bestimmten Zeile Anfangen soll.
Jetzt zählt er ja von oben durch.
Einfach oberhalb der Zeile in Spalte A, in der er anfangen soll eine Überschrift setzen

Oder so, wenn z.B. ab A5 begonnen werden soll.
Sub ZugangBuchen()
    Dim target As Worksheet, rngFree As Range
    Set target = Sheets(ActiveSheet.Range("B6").Value)  
    With target
        Set rngFree = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
        If rngFree.Row < 5 then 
            Set rngFree = .Range("A5")  
        End if
        rngFree.Resize(1, 5).Value = ActiveSheet.Range("C6:G6").Value  
    End With
End Sub