VBA markierten Bereich erweitern und Daten einfügen

Cassius1985

Captain
Registriert
Sep. 2004
Beiträge
3.579
Hey Zusammen,

jetzt hats es mich auch mal erwischt, komme bei einem kleinen Makro nicht weiter.

Folgende Ausgangssituation:

In einer Tabelle werden Daten abgespeichert und per Makro in die Zwischenablage kopiert.

Bsp: Bereich A2:D7

Schaut so aus:

Code:
Sub Kopieren()
Dim rowses As Integer
gewVariable = netuser

With Selection
        rowses = Selection.rows.Count
        Selection.Copy
End With
    
     
    Sheets("Tabelle2").Select
    Range("A2").Select
    ActiveSheet.Paste
    
    rowses = rowses + 1
    Range(Cells(1, 1), Cells(rowses, 4)).Select
    Selection.Copy
    
End Sub

Funktioniert auch bis hierhin.


Jetzt möchte ich noch sichergehen, dass niemand den Bereich 2x kopiert.
Also soll in Spalte E der Windows User "netuser" (die Funktion dazu funktioniert) und in Spalte F das Tagesdatum eingetragen werden :)

Was ich nicht hinbekomme, dass er abhänging von dem vorher kopierten Bereich die Spalte nebenan auswählt und die Daten einfügt.
Ergänzung ()

Glaube ich habs, auch wenn es nicht soo sauber ist :/

Code:
Sub Kopieren()
Dim rowses, counter1, counter2 As Integer
gewVariable = netuser
Dim lngZeile, lngSpalte As Long

With Selection
        rowses = Selection.rows.Count
        counter1 = Selection.rows.Count
        Selection.Copy
End With
    
     
    Sheets("Tabelle2").Select
    Range("A2").Select
    ActiveSheet.Paste
    
    rowses = rowses + 1
    Range(Cells(1, 1), Cells(rowses, 4)).Select
    Selection.Copy
    
    Sheets("Tabelle1").Select
       
    Do Until counter2 = counter1
    Cells(1, 5).End(xlDown).Offset(1, 0).Select
    Selection = netuser
    counter2 = counter2 + 1
    Loop
    
    
   
End Sub
 
Zurück
Oben