Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
204to208
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
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Each......Next

For Each......Next
17.01.2003 20:34:22
andreas
Hallo Leute,

wie schaffe ich es mit einer For Each..Next Schleife auf allen Tabellen eine bestimmte Zellenformatierung durchzufuehren?
Habe es folgendermassen versucht aber es klappt nicht.
Keine Ahnung wieso.

Public Sub test()

Dim wks As Worksheet

For Each wks In Worksheets

With Worksheets
Range("E21:H21, E22:H22").Borders.Color = RGB(0, 0, 0)
Range("E21:H21, E22:H22").Interior.ColorIndex = 2
Range("E21:H21, E22:H22").Font.Size = 8
End With

Next wks

End Sub

Danke schon mal im Voraus!

Gruss
Andreas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: For Each......Next
17.01.2003 20:38:19
Nepumuk
Hallo Andreas,
du warst schon nah dran.

For Each wks In ThisWorkbook.Sheets

Gruß
Nepumuk

Re: For Each......Next
17.01.2003 20:38:47
Georg_Zi
Hallo Andreas

erster Versuch, ergänze vor Range ein Punkt

Gruß Georg

Re: For Each......Next
17.01.2003 20:39:28
PeterW
Hallo Andreas,

mach es mal so:

Gruß
Peter

Nachtrag
17.01.2003 20:40:25
Nepumuk
und danach heist es natürlich:

With wks

Schönen Abend noch
Nepumuk

Re: For Each......Next
17.01.2003 20:42:51
andreas
Hi Nepumuk,

Danke, aber es klappt immer noch nicht. Die Zellen werden immer nur auf der ersten Tabelle formatiert und sonst nicht.

Gruss
Andreas

Re: For Each......Next
17.01.2003 20:45:29
Georg_Zi
Hallo Andreas

oder andere Variante


Option Explicit

	

Public Sub test()

	Dim InI As Integer

	For InI = 1 To Worksheets.Count

		With Worksheets(InI)

			.Range("E21:H21, E22:H22").Borders.Color = RGB(0, 0, 0)

			.Range("E21:H21, E22:H22").Interior.ColorIndex = 2

			.Range("E21:H21, E22:H22").Font.Size = 8

		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ß Georg

Anzeige
Re: For Each......Next
17.01.2003 22:24:55
DANKE!!
Danke!!!
Re: For Each......Next
17.01.2003 22:27:47
DANK an alle!!
Gruss
Andreas

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige