Thema Datum  Von Nutzer Rating
Antwort
27.01.2018 11:54:09 TRX
NotSolved
27.01.2018 22:13:10 Werner
NotSolved
28.01.2018 12:11:26 TRX
NotSolved
Blau VBA Zeilen kopieren
 28.01.2018 13:59:52 Werner
NotSolved
28.01.2018 15:07:17 TRX
NotSolved
28.01.2018 15:28:50 Gast40188
NotSolved
28.01.2018 15:37:31 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
28.01.2018 13:59:52		 Views:
667		 Rating:
     
Antwort:
  Ja
Thema:
VBA Zeilen kopieren

Hallo,

meinst du so:

Public Sub aaa()
Dim loLetzte As Long, raFund As Range

Application.ScreenUpdating = False

With Worksheets("Tabelle1") 'Quellblatt (Name anpassen)
    loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 1 To loLetzte
        If .Cells(i, 2) = "ja" Then
            'Zielblatt (Name anpassen)
            Set raFund = Worksheets("Tabelle2").Columns("A:A").Find(what:=.Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole)
            If Not raFund Is Nothing Then
                'Kopierbeeich muss an deine Verhältnisse angepasst werden
                'derzeit von Spalte B (2) bis Spalte J (10)
                .Range(.Cells(i, 2), .Cells(i, 10)).Copy raFund.Offset(, 1)
            End If
        End If
    Next i
End With
   
Set raFund = Nothing
Application.ScreenUpdating = True
End Sub

 

Gruß Werner

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
27.01.2018 11:54:09 TRX
NotSolved
27.01.2018 22:13:10 Werner
NotSolved
28.01.2018 12:11:26 TRX
NotSolved
Blau VBA Zeilen kopieren
 28.01.2018 13:59:52 Werner
NotSolved
28.01.2018 15:07:17 TRX
NotSolved
28.01.2018 15:28:50 Gast40188
NotSolved
28.01.2018 15:37:31 Werner
NotSolved