Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.01.2019 23:34:22 |
Bernd |
|
|
Probleme beim Durcharbeiten mehrerer Tabellenblätter |
26.01.2019 00:47:35 |
Gast10188 |
|
|
|
26.01.2019 23:31:47 |
Gast58078 |
|
|
|
26.01.2019 23:55:41 |
Gast10188 |
|
|
|
27.01.2019 21:24:04 |
Bernd |
|
|
Von:
Gast10188 |
Datum:
26.01.2019 00:47:35 |
Views:
467 |
Rating:
|
Antwort:
|
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Probleme beim Durcharbeiten mehrerer Tabellenblätter |
26.01.2019 00:47:35 |
Gast10188 |
|
|
|
26.01.2019 23:31:47 |
Gast58078 |
|
|
|
26.01.2019 23:55:41 |
Gast10188 |
|
|
|
27.01.2019 21:24:04 |
Bernd |
|
|