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:
516
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. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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