Thema Datum  Von Nutzer Rating
Antwort
18.01.2020 18:42:14 Jana
NotSolved
Blau Verschachtelte Schleifen
 18.01.2020 19:20:07 Mase
NotSolved
25.01.2020 19:07:52 Jana
NotSolved
25.01.2020 19:16:19 Mase
NotSolved
25.01.2020 19:49:53 Jana
NotSolved
25.01.2020 20:08:38 Mase
NotSolved
26.01.2020 13:52:16 Jana
NotSolved
19.01.2020 15:42:40 Jana
NotSolved
26.01.2020 12:46:15 Gast52795
*****
Solved
26.01.2020 12:58:20 Gast81966
Solved
26.01.2020 14:10:51 Jana
NotSolved
26.01.2020 16:48:44 Gast8113
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
18.01.2020 19:20:07		 Views:
696		 Rating:
     
Antwort:
  Ja
Thema:
Verschachtelte Schleifen

Hi,

Sub TestA()
    Dim wks As Worksheet
    Dim wksQuelle As Worksheet
    '
    Set wksQuelle = ThisWorkbook.Worksheets(1) 'Annahme: wksQuelle = erstes Blatt in dieser Arbeitsmappe
    For Each wks In ThisWorkbook.Worksheets
        If Not wks.Name = wksQuelle.Name Then 'wksQuelle wird hier ausgeschlossen
            'weitere Prüfungen, nachdem klar ist, das wks nicht wksQuelle ist
            
        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
18.01.2020 18:42:14 Jana
NotSolved
Blau Verschachtelte Schleifen
 18.01.2020 19:20:07 Mase
NotSolved
25.01.2020 19:07:52 Jana
NotSolved
25.01.2020 19:16:19 Mase
NotSolved
25.01.2020 19:49:53 Jana
NotSolved
25.01.2020 20:08:38 Mase
NotSolved
26.01.2020 13:52:16 Jana
NotSolved
19.01.2020 15:42:40 Jana
NotSolved
26.01.2020 12:46:15 Gast52795
*****
Solved
26.01.2020 12:58:20 Gast81966
Solved
26.01.2020 14:10:51 Jana
NotSolved
26.01.2020 16:48:44 Gast8113
NotSolved