Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jedes Blatt bearbeiten

Jedes Blatt bearbeiten
15.01.2003 11:20:28
Nino19
Hallo,
kann mir jemand sagen, wie man folgende Schleife am Besten anlegt?

Es soll eine bestimmte Befehlsfolge bei bestimmten Tabellenblättern durchgeführt werden. Und zwar, bei denen, die nicht "Summenblatt" heissen und in der Zelle AB35 nicht Null als Ergebnis stehen haben.

Schon der Anfang ist schwer: Die Anzahl der vorhandenen Blätter zu ermittlen, beim ersten Blatt beginnnen, den Wert der Zelle AB35 zu bekommen.

Für routinierte Fachmänner oder -frauen sicher ein Klacks.

Kann mir wer helfen?
Gruss, Nino.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Jedes Blatt bearbeiten
15.01.2003 11:26:25
Hajo_zi
Hallo Nino

so ganz ist mir Deine Frage nicht klar. Als ersten Ansatz

VBA: Wie ermittle ich die Anzahl der Blätter in der Mappe?
Sub test()
hugo = ThisWorkbook.Sheets.Count
End Sub

Gruß Hajo

Re: Jedes Blatt bearbeiten
15.01.2003 12:21:28
Nino19
Hallo Hajo

danke für Deinen Ansatz. Ich würde das Problem jetzt so formulieren:

Für jedes Blatt von 1 bis ThisWorkbook.Sheets.Count:

Wenn es nicht Summenblatt heisst
und
wenn AB35 nicht Null ist
dann
-bestimmte Befehlsfolge ausführen, die ich aber schon habe-


Diese Befehlsfolge wird als 3 Mal durchlaufen, wenn von den zehn Blättern eines "Summenblatt" heisst und in der Zelle AB35 von sechs Blättern Null steht.

LG, Nino.

Anzeige
Re: Jedes Blatt bearbeiten
15.01.2003 12:24:05
Hajo_zi
Hallo Nino

es kann nur ein Blatt geben das den Namen "Summenblatt" hat. Oder soll überprüft werden ob im Namen das Wort "Summenblatt" enthalten ist??

Gruß Hajo

Re: Jedes Blatt bearbeiten
15.01.2003 12:35:06
Nino19
Hallo Hajo,
ja, so ist es.
Es gibt ein Blatt, das Summenblatt heisst.
Und das soll von meiner Befehlsfolge nicht bearbeitet werden. Daher ist jedes Blatt auf diesen Namen und auf die Zelle AB35 zu prüfen.
LG Nino.
Re: Jedes Blatt bearbeiten
15.01.2003 12:45:33
Hajo_zi
Hallo Nino


Option Explicit

	

Public Sub Nino19()

	Dim InI As Integer

	For InI = 1 To Worksheets.Count

		With Worksheets(InI)

			If .Name = "Summenblatt" And .Range("AB35") <> 0 Then

				' Dein Markro

				' vergesse aber nicht vor Range, Cells usw den Punkt

			End If

		End With

	Next InI

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Anzeige
Danke, funktioniert.
15.01.2003 13:31:50
Nino19
Hallo Hajo,
danke, es funktioniert ausgezeichnet.
Gruss Nino.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige