Thema Datum  Von Nutzer Rating
Antwort
19.12.2016 09:30:37 Üstek
NotSolved
Blau Excel Kopieren und Finden in 2. Tabelle einfügen Schleife
 22.12.2016 22:28:00 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
22.12.2016 22:28:00		 Views:
533		 Rating:
     
Antwort:
  Ja
Thema:
Excel Kopieren und Finden in 2. Tabelle einfügen Schleife

Hallo,

vielleicht ist dieser VBA-Code hilfreich:

Sub FindenUndKopieren01()
    Dim rng As Range ' variablen definition
    Dim loDeinWert As String
    Dim sFirstadress As String
    loDeinWert = "excel" ' gesuchtes Wort
    Set rng = Worksheets("Tabelle1").Range("A1:A189").Find(loDeinWert) ' Range eingabe
    If rng Is Nothing Then
        MsgBox "Wort " & loDeinWert & " nicht gefunden!" ' Falls es nicht gefunden wird
    Else
        sFirstadress = rng.Address ' Range Addressierung
        Do
            rng.EntireRow.Copy ' Kopieren von Inhalt
            'PROBLEM: Beim Ausführen wird die komplette Zelle überschrieben
            'Also werden die in den nächsten Spalten stehenden Werte gelöscht
            
            With Worksheets("Tabelle2")
                .Cells(.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteAll
            End With
            'Worksheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp) _
            '    .Offset(1, 0).PasteSpecial Paste:=xlPasteAll ' Einfuegen in die zweite Tabelle
            Columns(1).EntireColumn.AutoFit
            Set rng = Worksheets("Tabelle1").Range("A:B").FindNext(rng)
        Loop While Not rng Is Nothing And rng.Address <> sFirstadress ' Nichtgleich
    End If
End Sub

LG, BigBen

P.S.: Mit dem Internet Exlorer können keine Beiträge fehlerfrei erstellt werden. Verwende künftig einen anderen Browser. Dan werden auch die Beiträge korrekt übertragen.

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
19.12.2016 09:30:37 Üstek
NotSolved
Blau Excel Kopieren und Finden in 2. Tabelle einfügen Schleife
 22.12.2016 22:28:00 BigBen
NotSolved