Office: (Office 2016) VBA Daten in Tabellenblatt 1 Filtern und in Tabellenblatt 2 übertragen

Helfe beim Thema VBA Daten in Tabellenblatt 1 Filtern und in Tabellenblatt 2 übertragen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich habe mir bereits ein Makro gebaut mit dem ich nach bestimmten Daten in Tabelle 1 filtere/suche. Sind diese vorhanden, werden die... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von CharlotteK, 18. März 2021.

  1. CharlotteK Neuer User

    VBA Daten in Tabellenblatt 1 Filtern und in Tabellenblatt 2 übertragen


    Hallo zusammen,

    ich habe mir bereits ein Makro gebaut mit dem ich nach bestimmten Daten in Tabelle 1 filtere/suche. Sind diese vorhanden, werden die kompletten Zeilen in Tabelle 2 kopiert.
    Das klappt soweit schon echt super. Einziges Manko, es dauert echt lang. So ca. 2-3 Minuten.
    Vielleicht habt ihr einen Verbesserungsvorschlag für mich?

    Code:
    Sub Kunden_A_&_B()
    
    Dim i As Long, j As Long
    
    Dim lz As Integer
    
     j = 2
    
    Sheets("Gesamtliste Kunden").Select
    
    For i = 2 To Sheets("Gesamtliste Kunden").Cells(Rows.Count, "M").End(xlUp).Row
    
       If Sheets("Gesamtliste Kunden").Cells(i, "M") = "Kunde A" Then
    
         Range(Cells(i, "A"), Cells(i, "Q")).Copy _
    
           Destination:=Sheets("Kunden A & B").Range("A" & j)
    
         j = j + 1
    
       End If
    
    Next
    
    For i = 2 To Sheets("Gesamtliste Kunden").Cells(Rows.Count, "M").End(xlUp).Row
    
       If Sheets("Gesamtliste Kunden").Cells(i, "M") = "Kunde B" Then
    
         Range(Cells(i, "A"), Cells(i, "Q")).Copy _
    
           Destination:=Sheets("Kunden A & B").Range("A" & j)
    
         j = j + 1
    
       End If
    
    Next
    
    End Sub
    
    Vielen Dank schon mal
    Liebe Grüße
    Charlotte
     
    CharlotteK, 18. März 2021
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi Charlotte,

    wenn du keine sortierte Übertragung (also erst alle "Kunden A" und danach alle "Kunden B" benötigst) benötigst, kannst du mithilfe einer Select-Case-Anweisung gleichzeitig beide Bedingungen abfangen, also sowohl "Kunde A" als auch "Kunde B":
    Code:
    Dim i As Long, j As Long
    j = 2
    With Sheets("Gesamtliste Kunden")
        For i = 2 To .Cells(Rows.Count, "M").End(xlUp).Row
           Select Case .Cells(i, 13)
             Case "Kunde A", "Kunde B"
                .Range(.Cells(i, 1), .Cells(i, 17)).Copy Destination:=Sheets("Kunden A & B").Cells(j, 1)
                j = j + 1
           End Select
        Next
    End With
    
    Noch zwei allgemeine Hinweise:
    - nach Möglichkeit sollte man bei Zelladressen die Spaltenbezeichnung nicht als Buchstaben sondern als Zahl schreiben, weil Excel intern die Adressen bereits als Cells(Zeilennummer, Spaltennummer) speichert. Wenn man nun anstelle der Spaltennummer den Spaltenbuchstaben verwendet - was natürlich kein Fehler ist!! - muss Excel jedoch intern erst den Spaltenbuchstaben in die Spaltennummer umrechnen - das kostet aber Zeit.
    - man kann Code vereinfachen, indem man mit With-Anweisungen auf Objekte (im o.g. Code das Arbeitblatt) referenziert, die man dann im weiteren Verlauf des Codes nicht mehr benennen muss. Zu beachten ist dabei jedoch, dass allen Objekten innerhalb des referenzierten Objektes, wie hier die Zelladressen, ein Punkt (.) vorangestellt werden muss - das ist für Excel das Signal, dass sich dieses Objekt innerhalb des mit With festgelegten Objektes befindet.
    Außerdem kann man mit einer Wit-Anweisung auf den Select-Befehl verzichten, der ebenfalls den Code verlangsamt.



    VBA Daten in Tabellenblatt 1 Filtern und in Tabellenblatt 2 übertragen GrußformelVBA Daten in Tabellenblatt 1 Filtern und in Tabellenblatt 2 übertragen Beverly's Excel - Inn
     
    Beverly, 18. März 2021
    #2
    1 Person gefällt das.
  3. CharlotteK Neuer User
    Vielen lieben Dank, Beverly.
    Das hilft mir schon sehr. Es geht tatsächlich fixer.
    Auch für die beiden Hinweise. Die werde ich sehr gerne für die Zukunft berücksichtigen. :-)
     
    CharlotteK, 18. März 2021
    #3
Thema:

VBA Daten in Tabellenblatt 1 Filtern und in Tabellenblatt 2 übertragen

Die Seite wird geladen...
  1. VBA Daten in Tabellenblatt 1 Filtern und in Tabellenblatt 2 übertragen - Similar Threads - VBA Daten Tabellenblatt

  2. Excel VBA aus einem Formular Daten in eine geschlossen Arbeitsmappe zu übertragen

    in Microsoft Excel Hilfe
    Excel VBA aus einem Formular Daten in eine geschlossen Arbeitsmappe zu übertragen: Hallo, ich bräuchte mal eure Hilfe Ich habe ein Solaranlage, wo ich jede Woche neu Daten bekomme, die ich in der Arbeitsmappe SolarStrom 2020_01_01 speichere. Die Daten werden in eine Formular...
  3. VBA-Daten aus HTML extrahieren, Skript unvollständig

    in Microsoft Excel Hilfe
    VBA-Daten aus HTML extrahieren, Skript unvollständig: Hi Zusammen, ich benötige ein Sript, welches mir aus Instagram folgende Daten rausholt und diese in ein Excelblatt schiebt. Dazu habe ich mir folgendes Skript zurecht geschustert. Es werden:...
  4. VBA Daten aus zwei Tabellen in eine dritte kopieren

    in Microsoft Access Hilfe
    VBA Daten aus zwei Tabellen in eine dritte kopieren: Hallo zusammen, ich möchte die ID aus meinem HF und die ID aus meinem UFO in eine dritte Tabelle kopieren. HF: tblSTD_Lag SubSTDAufID SubSTD_ID_f und tblfertSTD fertSTDID tblfertSTD und...
  5. Excel VBA Daten aus HTML Website laden ohne CreateObject("InternetExplorer.Applicatio

    in Microsoft Excel Hilfe
    Excel VBA Daten aus HTML Website laden ohne CreateObject("InternetExplorer.Applicatio: Hi, versuche Daten aus einer HTML Website zu laden. Leider kann ich diese nicht im Internet Explorer laden. Nun such ich ein Makro was die Daten ohne Internet Explorer laden kann....
  6. (Office 365) Excel VBA :: Date Picker

    in Microsoft Excel Hilfe
    (Office 365) Excel VBA :: Date Picker: Ich möchte einen Date Picker auf einer UserForm einbinden und habe über Extras --> Zusätzliche Steuerelemente das Control "Microsoft Date and Time Picker Control 6.0 (SP4)" getickt. Es ist...
  7. Excel-Daten an das SAP übertragen (mit VBA)

    in Microsoft Excel Hilfe
    Excel-Daten an das SAP übertragen (mit VBA): Hallo zusammen, ich habe folgendes Problem. Ziel ist, in einem Excel-File einen Bereich zu markieren und dann die Werte automatisch ins SAP zu übertragen. Die Speicherung der einzelnen Werte in...
  8. Verkettung von Daten aus Textbox mit Daten aus Tabellenblatt und danach in andere Box

    in Microsoft Excel Hilfe
    Verkettung von Daten aus Textbox mit Daten aus Tabellenblatt und danach in andere Box: Hallo, ich habe folgendes Problem: Ich bastel gerade an einer "Datenbank", wo mehrere Daten wie z.b. Artikelnummer, Preis, Gewicht und co vorhanden sind. Ich habe ebenfalls eine Userform mit...

Users found this page by searching for:

  1. vba tabellen filtern

  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden