Thema Datum  Von Nutzer Rating
Antwort
23.02.2022 09:28:31 Louis
NotSolved
Blau Zeilen Bereich kopieren und an bestimmter Stelle in anderer Tabelle einfügen
 23.02.2022 23:30:27 ralf_b
NotSolved
24.02.2022 15:59:13 Louis
NotSolved
25.02.2022 08:21:53 Louis
NotSolved
25.02.2022 17:08:10 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
23.02.2022 23:30:27		 Views:
328		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen Bereich kopieren und an bestimmter Stelle in anderer Tabelle einfügen

Sicherlich wäre es cool, wenn man erkennen würde, dass eine Position zweimal vergeben wurde. 

Erkläre das mal genauer. 


Public Sub CopyRows()
    Dim lRow   As Long
    Dim x      As Long

    Application.ScreenUpdating = False
    
    With Worksheets("Customer sheet")
        lRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        If lRow > 1 Then lRow = lRow + 1
    End With
    
    With Worksheets("Contact agent list")
        For x = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            If .Cells(x, 1).Value = "x" Then
                .Cells(x, 1).Value = lRow
                .Cells(x, 3).Resize(1, 9).Copy Worksheets("Customer sheet").Cells(lRow, 3)
                lRow = lRow + 1
            End If
        Next x
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Fertig"
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.02.2022 09:28:31 Louis
NotSolved
Blau Zeilen Bereich kopieren und an bestimmter Stelle in anderer Tabelle einfügen
 23.02.2022 23:30:27 ralf_b
NotSolved
24.02.2022 15:59:13 Louis
NotSolved
25.02.2022 08:21:53 Louis
NotSolved
25.02.2022 17:08:10 ralf_b
NotSolved