Microsoft Excel

Herbers Excel/VBA-Archiv

Horizontale Bildlaufleiste Rätsel

Betrifft: Horizontale Bildlaufleiste Rätsel von: Peter
Geschrieben am: 20.04.2015 15:38:33

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

  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Klexy
Geschrieben am: 20.04.2015 18:00:15

Wenn du Strg+Ende drückst. In welcher Zelle landest du dann?


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Peter
Geschrieben am: 21.04.2015 09:38:34

Hallo Klexy

Ich lande dann in der Zelle DH123.

LG

Peter


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Klexy
Geschrieben am: 21.04.2015 15:08:09

Dann hab ich keinen Tip.


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Peter
Geschrieben am: 21.04.2015 17:31:45

Hallo zusammen

Hat jemand noch eine Idee?

Ich wäre Euch wirklich sehr dankbar.

@Klexy
Vielen Dank, dass Du es versucht hast.

Liebe Grüsse

Peter


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Daniel
Geschrieben am: 21.04.2015 17:33:30

Hi
das ist ein unnormales Verhalten was du beschreibst.
kannst du die Datei mal hochladen?
Ist wie beim Arzt, wenn der Patient auf dem Tisch liegt, stellt sich die Diagnose leicher als am Telefon.
Gruß Daniel


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Peter
Geschrieben am: 21.04.2015 17:50:30

Hallo Daniel

Das kann ich leider nicht, da die Datei sehr viele vertrauliche Infos beinhaltet. Hast Du ev. eine Idee, woran es noch liegen könnte? Ansonsten muss ich mal schauen, ob ich die vertraulichen Infos rauslöschen und sie ev. hochladen kann.

Danke für Deine Hilfe.

Gruss

Peter


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Peter
Geschrieben am: 22.04.2015 08:16:20

Guten Morgen

Hat jemand ev. noch eine Idee?

Vielen Dank.

Lieber Gruss

Peter


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Klexy
Geschrieben am: 22.04.2015 09:53:40

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.


  

Betrifft: AW: Horizontale Bildlaufleiste Rätsel von: Peter
Geschrieben am: 22.04.2015 17:13:09

Hallo Klexy

Die Datei ist sehr komplex und beinhaltet auch viel VBA-Code. Ich kann sie nicht so umbauen, damit ich sie hochladen kann.

Dann werde ich mich wohl damit abfinden müssen ;-)

Ist kein Weltuntergang.

Danke für Deine Hilfe.

Lieber Gruss

Peter


 

Beiträge aus den Excel-Beispielen zum Thema "Horizontale Bildlaufleiste Rätsel"