Spaltenauflistung

Hallo,

ich scheitere an der korrekten Schreibweise für Spaltenbreiten.

acivesheeet.columns(„AR, AT“).columnwidth = 20
acivesheeet.columns(„AR“, „AT“).columnwidth = 20
acivesheeet.columns(„AR:AR, AT:AT“).columnwidth = 20

die Codes gehen alle nicht.
Wie muß es richtig heißen ?

Gruß Manne

ich scheitere an der korrekten Schreibweise für
Spaltenbreiten.

acivesheeet.columns(„AR, AT“).columnwidth = 20
acivesheeet.columns(„AR“, „AT“).columnwidth = 20
acivesheeet.columns(„AR:AR, AT:AT“).columnwidth = 20

die Codes gehen alle nicht.

Hallo Manne,

was soll acivesheeet sein? Es heißt ActiveSheet!

Probiers mal so:

Sub tt()
ActiveSheet.Columns(44).ColumnWidth = 20
ActiveSheet.Columns(46).ColumnWidth = 20
End Sub

Vielleicht geht es auch einzeilig *Schulterzuck*

Gruß
Reinhard

Hallo Reinhard

was soll acivesheeet sein ?

man kann noch so viele Fehler machen und man wird trotzdem
verstanden!

Es ist lästig für jeden Spalte eine Befehlszeile zu schreiben und jede Spalte einzeln abzuzählen, um die Spaltennummer herauszubekommen. Schlechter Scherz von Bills Mannen (und bestimmt nicht der Einzigste).

Und ich habe es so gemacht, wie Du geraten. Aber was wäre, wenn 100 nicht zusammenhängende Spalten zu löschen, sperren oder auszublenden sind?

Gruß Manne

Hallo Manne,

was soll acivesheeet sein ?

man kann noch so viele Fehler machen und man wird trotzdem
verstanden!

das geht nur bis zu bis zu einem gewissen Grad gut.

Irgednwann lernst du dann die vielen Antwortern sehr vertraute Regel kennen, „Investiere nie mehr Zeit in die Antwort als sich der Fragesteller bei der Anfrage Mühe gab“.

Die Folge für dich ist, es gibt maximal kurze Hinweisantworten was noch zu tun wäre damit jemand antworten oder halt gbadenlose Nichtreaktion.

Du sagst der Code funktioniert nicht, so wie du ihn gepostet hast hast du ihn sicher nicht getestet, da hätte der Debugger ganz schön gemeckert usw.

Ergo, teste den Code, kopiere dann eine möglichst eigenständig laufende prozedur und keinen Codeschnipsel hier rein.

Es ist lästig für jeden Spalte eine Befehlszeile zu schreiben
und jede Spalte einzeln abzuzählen, um die Spaltennummer
herauszubekommen. Schlechter Scherz von Bills Mannen (und
bestimmt nicht der Einzigste).

Ich muß die Spalten nicht abzählen um herauszubekommen welche Spaltennummer AR hat.

Dein Beispiel handelte von 2 Spalten, okay dafür habe ich einen Zweizeiler gebastelt. Das geht in Ordnung *find*

Und ich habe es so gemacht, wie Du geraten.

Mich interessieren Rückmeldungen in der Art: Hat geklappt, hat nicht geklappt weil…
Bei deiner Antwort kann ich nur mutmaßen.

Aber was wäre,
wenn 100 nicht zusammenhängende Spalten zu löschen, sperren
oder auszublenden sind?

Das wäre eine neue Herausforderung :smile:
Welche Spalten sind es?

Gruß
Reinhard

Hallo Reinhard,

verstanden: Kurze Frage => kurze Antwort.

Die Mehrzeilenlösung war für mich eine Notlösung. Deine Antwort „Schulterzucken“ hat mir gereicht. Dadurch sparte ich Zeit, um nach anderen Lösungen zu suchen.

Die Folge für dich ist, es gibt maximal kurze Hinweisantworten

Ich sag mir immer:„In der Kürze liegt die Würze.“ Kein langes Geschwafel.

hast hast du ihn sicher nicht getestet, da hätte der Debugger
ganz schön gemeckert

Ich habe lange getestet und probiert. Auch sinnlose Kombinationen angewendet. „acivesheet“ war nur ein Schreibfehler beim Posten.

Ich muß die Spalten nicht abzählen um herauszubekommen welche
Spaltennummer AR hat.

Ich arbeite ungern mit CELLS. Nur in der größten Not, da mir das Spaltenabzählen zu blöd ist. Bei vielen Spalten setze ich dann ARRAY mit einer Listenanweisung ein. In der Liste kann man wieder die A1-Schreibweise einsetzen. Man muß nur beachten, daß man bei Zellen alle Zellen der verbundenen Zellen angibt. Z.B.: „A1:C4“ bei locked

Und ich habe es so gemacht, wie Du geraten.

Rückmeldungen: Hat geklappt,

Bei deiner Antwort kann ich nur mutmaßen.

Wenn Du einen Rat gibst, ist der doch richtig. Und dann wende ich ihn auch an.

Aber was wäre,wenn 100 nicht zusammenhängende Spalten zu löschen,
sperren oder auszublenden sind?

Das wäre eine neue Herausforderung :smile:
Welche Spalten sind es?

Nicht nötig, da ich für sowas ein ARRAY einsetze. Nur die Syntax dafür hat mich interessiert. Es gibt anscheinend keine in der Art wie bei Range(„A1, C3:C5, … ,X256“). Schade. Nicht zu änderern.
Es ist gut zu wissen, was nicht geht!

Gruß und Danke
Manne

Hallo Manne,

Das wäre eine neue Herausforderung :smile:
Welche Spalten sind es?

Nicht nötig, da ich für sowas ein ARRAY einsetze. Nur die
Syntax dafür hat mich interessiert. Es gibt anscheinend keine
in der Art wie bei Range(„A1, C3:C5, … ,X256“). Schade.
Nicht zu änderern.
Es ist gut zu wissen, was nicht geht!

mein erster Gedanke war/ist genau wie du auch dafür ein Array einzusetzen.
Und beim Array kann man sicher auch sowas einsetzen
=Array(„A1, C3:C5, … ,X256“)
Und wenn das klappt, warum soll ich mir Gedanken machen ob es mit
Range(„A1, C3:C5, … ,X256“)
auch irgendwie klappt.

Okay, gelogen, gelegentlich teste ich mich an sowas mit allem was mir einfällt :smile: Aber das entscheidet mein Bauch ob ich dazu Bock habe.

Gruß
Reinhard