Horizontale Bildlaufleiste Rätsel

Guten Tag
Ich stehe vor einem Rätsel. Ich habe eine Tabelle. Darin gibt es einen Datenbereich, der von Zelle B1:DH123 geht. Einige Spalten in diesem Datenbereich sind mittels Gruppierung ausgeblendet.
Wenn ich die mittels Gruppierung ausgeblendeten Spalten einblende, dann ist der Balken meiner horizontalen Bildlaufleiste relativ gross, d. h., dass ich dann bis zur Spalte DT scrollen kann. Wenn die Spalten aber mittels Gruppierung wieder ausgeblendet sind, dann wird der Balken meiner horizontalen Bildlaufleiste sehr klein und der Scrollbereich vergrössert sich dann bis zur Spalte EL. Ich hätte aber gerne, dass der Scrollbereich gleich bleibt.
Ich habe schon alle um den Datenbereich herumliegenden Zellen gelöscht. Auch Farbformatierungen habe ich aus sämtlichen umliegenden Zellen entfernt. Die Datei habe ich nach diesen Änderungen gespeichert, geschlossen und wieder neu geöffnet. Das hat leider alles keinen Erfolg gebracht. Ein Scrollbreich für diese Tabelle im Eigenschaftenfenster des VBA-Editors (Scroll Area) wurde auch nicht definiert.
Habt Ihr eine Idee?
Ich hoffe, dass ich mich verständlich ausgedrückt habe.
Besten Dank für Eure Antworten.
Lieber Gruss
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Natürlich kannst du die Datei hier hochladen. Wir sind ja unter uns. Aber wenn du uns nicht traust, hab ich einen Trick für dich:

Sub Klexys_Musterdatei_Anonymisierer()
' zu anonymisierende Zellen markieren und Makro laufen lassen
'!!! Zellen mit Formeln dürfen nicht anonymisiert werden !!!
'!!! Zellen mit eindeutigen Schlüsselwerten (Matchcode) dürfen anonymisiert werden
'    weil sie sonst alle gleich lauten und ihre Funktionalität einbüßen
'Zahlen
Selection.Replace What:="9", Replacement:="3", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="8", Replacement:="2", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="7", Replacement:="3", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="6", Replacement:="2", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="5", Replacement:="3", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="4", Replacement:="2", LookAt:=xlPart, MatchCase:=True
'Vokale klein
Selection.Replace What:="a", Replacement:="e", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="o", Replacement:="u", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="ä", Replacement:="e", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="ö", Replacement:="e", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="ü", Replacement:="e", LookAt:=xlPart, MatchCase:=True
'Vokale groß
Selection.Replace What:="A", Replacement:="E", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="O", Replacement:="U", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Ä", Replacement:="E", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Ö", Replacement:="E", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Ü", Replacement:="E", LookAt:=xlPart, MatchCase:=True
'Konsonanten klein
Selection.Replace What:="c", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="g", Replacement:="d", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="h", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="j", Replacement:="f", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="k", Replacement:="d", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="l", Replacement:="f", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="n", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="p", Replacement:="d", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="q", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="r", Replacement:="d", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="s", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="t", Replacement:="f", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="v", Replacement:="d", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="w", Replacement:="m", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="x", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="y", Replacement:="d", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="z", Replacement:="b", LookAt:=xlPart, MatchCase:=True
'Konsonanten groß
Selection.Replace What:="C", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="G", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="H", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="J", Replacement:="F", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="K", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="L", Replacement:="F", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="N", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="P", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Q", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="R", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="S", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="T", Replacement:="F", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="V", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="W", Replacement:="m", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="X", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Y", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Z", Replacement:="B", LookAt:=xlPart, MatchCase:=True
End Sub

Das sollte genügen.

Beliebteste Forumthreads (12 Monate)

Horizontale Bildlaufleiste Rätsel

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread