Thema Datum  Von Nutzer Rating
Antwort
09.12.2021 15:19:43 Alex
Solved
Blau Kriterium im Bereich aller Tabellenblätter finden, Daten übernehmen
 10.12.2021 15:20:26 Gast58379
*****
Solved
13.12.2021 13:32:42 Gast2370
NotSolved

Ansicht des Beitrags:
Von:
Gast58379		 Datum:
10.12.2021 15:20:26		 Views:
563		 Rating:
     
Antwort:
 Nein
Thema:
Kriterium im Bereich aller Tabellenblätter finden, Daten übernehmen

z.B. so:

Option Explicit

Sub Test()
  
  Dim wks As Excel.Worksheet
  Dim rngTarget As Excel.Range
  Dim i As Long
  
  Set wks = Worksheets("Tabelle1")
  
  Set rngTarget = Worksheets("Übersicht").Range("A2")
  
  For i = 4 To 48
    
    If wks.Cells(i, "AE").Value = "offen" Then
      
      wks.Range("A" & i & ":AF" & i).Copy Destination:=rngTarget
      'ODER
      'wks.Range(wks.Cells(i, "A"), wks.Cells(i, "AF")).Copy
      
      Set rngTarget = rngTarget.Offset(1)
      
    End If
    
  Next
  
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
09.12.2021 15:19:43 Alex
Solved
Blau Kriterium im Bereich aller Tabellenblätter finden, Daten übernehmen
 10.12.2021 15:20:26 Gast58379
*****
Solved
13.12.2021 13:32:42 Gast2370
NotSolved