Office: Makro kopieren

Hallo zusammen,

ich habe zwei Tabellen, wo ich aktuell über 2 Makro Buttons folgende Funktionen erfülle :
z.B.
Button 1 - Ausgewählten Text in Tabelle 1 Spalte "B" kopieren nach Tabelle 2 Spalte "B" Reihe 4 fortl.
Button 2 - Ausgewählten Text in Tabelle 1 Spalte "C" kopieren nach Tabelle 2 Spalte "C" Reihe 4 forl.


Mein Wunsch wäre es hier, dass wenn ich quasi in Tabelle 1 den Text in z.B. Spalte B4 markiere und das Makro ausführe, direkt auch C4 mit kopiert wird und in Tabelle2 in C4 gesetzt wird. Fortlaufend dann natürlich, sodass quasi wenn B4;C4 voll sind die nächste Reihe genutzt wird.

( vielleicht wäre es sogar möglich, ein Fenster aufploppen zulassen in welchem man eine Stückzahl angeben kann welche dann in Tabelle2 A4 fortlaufend gesetzt wird ? )

Hintergrund ist, dass ich hier eine Liste mit Artikelbeschreibungen habe & dahinter Bestellnummern, diese sollen über die Funktion quasi mit einem Button/Tastenkombination direkt in das Bestellformular eingefügt werden.


Der Code für die aktuellen zwei Makros sieht wie folgt aus :

Code:

Sub Text_kopieren()
'
Dim lngLetzteZeile As Long
If ActiveSheet.Name = "Mechanik" Then
lngLetzteZeile = Worksheets("Entnahmeschein").Cells(Rows.Count, 2).End(xlUp).Row + 1
ActiveCell.Copy Destination:=Worksheets("Entnahmeschein").Cells(lngLetzteZeile, 2)
End If
End Sub

Sub SAP_kopieren()
'
Dim lngLetzteZeile As Long
If ActiveSheet.Name = "Mechanik" Then
lngLetzteZeile = Worksheets("Entnahmeschein").Cells(Rows.Count, 3).End(xlUp).Row + 1
ActiveCell.Copy Destination:=Worksheets("Entnahmeschein").Cells(lngLetzteZeile, 3)
End If
End Sub

Mit freundlichen Grüßen

 

Hallo Meta107,

stell doch einfach mal eine Beispieldatei inkl. Code ins Forum.

Zur schnellen Hilfe kannst Du folgenden Code probieren:

Code:

Sub Text_kopieren()
'
Dim lngLetzteZeile As Long
If ActiveSheet.Name = "Mechanik" Then
lngLetzteZeile = Worksheets("Entnahmeschein").Cells(Rows.Count, 2).End(xlUp).Row + 1
ActiveCell.Resize(, 2).Copy Destination:=Worksheets("Entnahmeschein").Cells(lngLetzteZeile, 2)
End If
End Sub

Code ist nicht getestet.

Dieser Code kopiert die aktive Zelle und die rechts daneben in das andere Blatt.
Um die Anzahl an Kopien zu ändern, schau dir mal die InputBox-Methode an. Da kannst Du einen Wert eingeben und anschließend deinen Code so häufig durchlaufen alssen.

gruß,
Lutz