Thema Datum  Von Nutzer Rating
Antwort
03.03.2021 08:32:21 Tschisi
NotSolved
Blau vba Spalteninhalt mit Tabellenblattnamen vergleiche und kopieren
 03.03.2021 11:51:08 UweD
NotSolved
03.03.2021 13:21:41 Tschisi
NotSolved
03.03.2021 14:29:46 Werner
NotSolved
03.03.2021 15:15:32 Tschisi
NotSolved
03.03.2021 14:32:01 UweD
NotSolved
03.03.2021 15:08:47 Tschisi
NotSolved
03.03.2021 15:22:35 uweD
NotSolved
03.03.2021 15:51:19 Tschisi
NotSolved
03.03.2021 15:51:20 Tschisi
NotSolved
03.03.2021 17:11:56 UweD
NotSolved
04.03.2021 09:23:12 Tschisi
NotSolved
04.03.2021 09:33:53 UweD
NotSolved
04.03.2021 09:42:11 Tschisi
NotSolved
04.03.2021 10:00:40 UweD
NotSolved
04.03.2021 10:44:30 Tschisi
NotSolved
03.03.2021 15:25:31 Werner
NotSolved
03.03.2021 15:54:39 Tschisi
NotSolved
03.03.2021 16:03:16 Werner
*****
Solved
04.03.2021 09:32:38 Tschisi
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
03.03.2021 11:51:08		 Views:
505		 Rating:
     
Antwort:
  Ja
Thema:
vba Spalteninhalt mit Tabellenblattnamen vergleiche und kopieren

Hallo

 

versuch es mal so

Option Explicit

Sub suchen_kopieren_einfügen()
    Dim strSuchwort As String
    Dim wks1 As Worksheet
    Dim wks2 As Worksheet
    Dim i As Integer, Z1 As Integer, LR As Integer, SP As Integer
    
    Set wks1 = Worksheets("Importliste")
    Z1 = 2 'ab zeile 2
    SP = 5 'Daten in Spalte E
    
    With wks1
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
        
        For i = Z1 To LR
            strSuchwort = .Cells(i, SP)
                   
            'Blatt vorhanden?
            If IsError(Evaluate(strSuchwort & "!A1")) Then
                MsgBox "Blatt: '" & strSuchwort & "' existiert nicht"
                Exit For
            Else
                Set wks2 = Sheets(strSuchwort)
                
                .Rows(i).Copy wks2.Rows(wks2.Cells(wks2.Rows.Count, 1).End(xlUp).Row + 1)
            End If
        Next
    End With
End Sub

LG UweD

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
03.03.2021 08:32:21 Tschisi
NotSolved
Blau vba Spalteninhalt mit Tabellenblattnamen vergleiche und kopieren
 03.03.2021 11:51:08 UweD
NotSolved
03.03.2021 13:21:41 Tschisi
NotSolved
03.03.2021 14:29:46 Werner
NotSolved
03.03.2021 15:15:32 Tschisi
NotSolved
03.03.2021 14:32:01 UweD
NotSolved
03.03.2021 15:08:47 Tschisi
NotSolved
03.03.2021 15:22:35 uweD
NotSolved
03.03.2021 15:51:19 Tschisi
NotSolved
03.03.2021 15:51:20 Tschisi
NotSolved
03.03.2021 17:11:56 UweD
NotSolved
04.03.2021 09:23:12 Tschisi
NotSolved
04.03.2021 09:33:53 UweD
NotSolved
04.03.2021 09:42:11 Tschisi
NotSolved
04.03.2021 10:00:40 UweD
NotSolved
04.03.2021 10:44:30 Tschisi
NotSolved
03.03.2021 15:25:31 Werner
NotSolved
03.03.2021 15:54:39 Tschisi
NotSolved
03.03.2021 16:03:16 Werner
*****
Solved
04.03.2021 09:32:38 Tschisi
NotSolved