Thema Datum  Von Nutzer Rating
Antwort
16.03.2021 18:56:08 Christian
NotSolved
Blau Auswahl nach Jahren in anderes Tabellenblatt
 17.03.2021 03:30:45 Nobody
*****
Solved
17.03.2021 11:45:34 Christian
NotSolved
17.03.2021 16:35:21 Gast78805
NotSolved
17.03.2021 10:15:03 Gast3906
NotSolved

Ansicht des Beitrags:
Von:
Nobody		 Datum:
17.03.2021 03:30:45		 Views:
538		 Rating:
     
Antwort:
 Nein
Thema:
Auswahl nach Jahren in anderes Tabellenblatt

Hallo

mit diesem Code sollte es funktionieren.  Du musst nur bei Set den richtigen Tabellen Namen einsetzen, zum testen steht dort "Tabelle2"

mfg Nobody


Option Explicit
Dim j As Long, lz1 As Long

Sub Daten_übertragen()
Dim Jahr As Variant  'Jahreszahl
Dim ZSht As Worksheet, zX As Long
Set ZSht = Worksheets("Tabelle2")

Jahr = InputBox("Bitte Jahr eingeben")
If Jahr = vbCancel Then Exit Sub

On Error GoTo Fehler
With Worksheets("Tabelle1")
     'LastZell in Tabelle1 und Zieltaelle suchen
     lz1 = .Cells(Rows.Count, 1).End(xlUp).Row
     zX = ZSht.Cells(Rows.Count, 1).End(xlUp).Row + 1
     
     'Schleife zum Daten übertragen
     For j = 2 To lz1
        If InStr(.Cells(j, 1), Jahr) Then
           .Rows(j).Cut ZSht.Rows(zX)
           zX = zX + 1
        End If
     Next j

     'Rückwaerts Schleife zum leerzeile löschen
     For j = lz1 To 2 Step -1
        If .Cells(j, 1) = Empty Then
           .Rows(j).Delete shift:=xlUp
        End If
     Next j
End With
Exit Sub
Fehler:  MsgBox "unerwarteter Gehler aufgetreten - Abbruch"
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
16.03.2021 18:56:08 Christian
NotSolved
Blau Auswahl nach Jahren in anderes Tabellenblatt
 17.03.2021 03:30:45 Nobody
*****
Solved
17.03.2021 11:45:34 Christian
NotSolved
17.03.2021 16:35:21 Gast78805
NotSolved
17.03.2021 10:15:03 Gast3906
NotSolved