Thema Datum  Von Nutzer Rating
Antwort
25.01.2019 23:34:22 Bernd
NotSolved
Blau Probleme beim Durcharbeiten mehrerer Tabellenblätter
 26.01.2019 00:47:35 Gast10188
NotSolved
26.01.2019 23:31:47 Gast58078
NotSolved
26.01.2019 23:55:41 Gast10188
NotSolved
27.01.2019 21:24:04 Bernd
NotSolved

Ansicht des Beitrags:
Von:
Gast10188		 Datum:
26.01.2019 00:47:35		 Views:
458		 Rating:
     
Antwort:
  Ja
Thema:
Probleme beim Durcharbeiten mehrerer Tabellenblätter

Mal angenomen in jedem Tabellenblatt steht in Zelle A1 ein Wert. Diese will man der Reihe nach für alle Tabellenblätter in einem Meldungsfenster ausgeben.

Allgemeine Vorgehensweise dafür:

Option Explicit 'erzwinge Variablendeklaration (beugt Tippfehler vor, bzw. macht darauf aufmerksam)

Sub Test()
  
  'Variablen deklarieren
  Dim wks As Excel.Worksheet
  Dim i As Long
  
  'durch Tabellenblätter mittels Index iterieren
  For i = 1 To ThisWorkbook.Worksheets.Count
    
    Set wks = ThisWorkbook.Worksheets(i)
    
    'Fenster anzeigen mit Inhalt von Zelle A1 des Tabellenblattes 'wks'
    MsgBox wks.Range("A1").Address(External:=True) & " = " & wks.Range("A1").Text
    
  Next
  
'  'ODER: durch Tabellenblätter mittels For-Each Schleife iterieren
'
'  For Each wks In ThisWorkbook.Worksheets
'
'    'Fenster anzeigen mit Inhalt von Zelle A1 des Tabellenblattes 'wks'
'    MsgBox wks.Range("A1").Address(External:=True) & " = " & wks.Range("A1").Text
'
'  Next
  
End Sub

Hoffe das hilft dir weiter.

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
25.01.2019 23:34:22 Bernd
NotSolved
Blau Probleme beim Durcharbeiten mehrerer Tabellenblätter
 26.01.2019 00:47:35 Gast10188
NotSolved
26.01.2019 23:31:47 Gast58078
NotSolved
26.01.2019 23:55:41 Gast10188
NotSolved
27.01.2019 21:24:04 Bernd
NotSolved