Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

364to368

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

If Zelle nicht ausgeblendet, dann ...

Forumthread: If Zelle nicht ausgeblendet, dann ...
7 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
Top 100 Forumthreads

21.01.2004 10:09:17

Stef

Hallo Forum,
kann mir jemand hierbei einen Tipp geben?
Ich will sagen:
- Nehme Range("A:CI")
- Schleife über jede Spalte dieses Range:
- Wenn Spalte nicht ausgeblendet ( ? Selecction.EntireColumn.Hidden = False ?)
- Dann Spaltenbreite = 10
Danke für Eure Hilfe, bin noch Anfänger...
# Stef

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: If Zelle nicht ausgeblendet, dann ...

21.01.2004 10:13:05

Matthias G
Laufzeitfehler bei Then-Statement

21.01.2004 10:24:33

Stef
AW: Sorry, ...

21.01.2004 10:28:29

Matthias G
Fehler...

21.01.2004 10:50:16

Stef
AW: Fehler: Lösung:

21.01.2004 10:55:49

Matthias G
Thanks - warst ne super Hilfe (o.T.)

21.01.2004 11:04:34

Stef
AW: Aber erst beim dritten Anlauf ;-) - oT

21.01.2004 11:09:15

Matthias G

AW: If Zelle nicht ausgeblendet, dann ...

21.01.2004 10:13:05

Matthias G

Hallo Stef,


Sub SpaltenBreite()
Dim z As Range
For Each z In Range("A1:CI1")
If z.EntireColumn.Hidden = False Then z.EntireColumn.Width = 10
Next
End Sub

Gruß,
Matthias

Laufzeitfehler bei Then-Statement

21.01.2004 10:24:33

Stef

Hey Matthias,
danke für die Hilfe, ich kriege beim Then-Statement aber immer einen Laufzeitfehler: Objekt erforderlich?!
Hab ich was wichtiges vergessen zu ergänzen?

Danke,
# Stef

AW: Sorry, ...

21.01.2004 10:28:29

Matthias G

... es muss heißen "ColumnWidth" statt "Width"
Gruß,
Matthias

Fehler...

21.01.2004 10:50:16

Stef

Hey Matthias,
also ich weiß jetzt nicht, ob ich Dich richtig verstanden habe, aber bei diesem Code:
Dim z As Range
For Each z In Range("A:CI")
If z.EntireColumn.Hidden = False Then
z.EntireColumn.ColumnWidth = 10
End If
Next
"überschlägt" sich Excel und stürzt ab...
Aber eigentlich erscheint der Code schon logisch.
# Stef

AW: Fehler: Lösung:

21.01.2004 10:55:49

Matthias G

Hallo Stef,
irgendwie bin ich heute unkonzentriert...
Excel überschlägt sich nicht es braucht nur etwas für die 5.701.632 Zellen in der Schleife...
es muss natürlich heissen:
For Each z In Range("A1:CI1")
So, jetzt müsste es aber klappen...
Viele Grüße,
Matthias

Thanks - warst ne super Hilfe (o.T.)

21.01.2004 11:04:34

Stef

AW: Aber erst beim dritten Anlauf ;-) - oT

21.01.2004 11:09:15

Matthias G