In ScrollArea einen Eintrag

Forumthread: In ScrollArea einen Eintrag
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: In ScrollArea einen Eintrag

02.05.2007 18:24:00

Josef

Hallo und Guten Tag
möchte in Tabelle1, ausser der Zelle A5, alles sperren bzw. nicht edittierbar machen. Habe im Projektexplorer unter Eigenschaften/ SrollArea $A$5 eingegeben, funktioniert auch, aber wenn ich die Datei speichere und neu starte, ist die ScrollArea aber wieder leer, warum?
Kann mir bitte jemand einen Tip oder Lösung nennen, was ich für einen Fehler gemacht habe?
Vielen Dank schon mal
Gruß Josef

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Makro...

02.05.2007 18:43:00

Walter
AW: Makro...

02.05.2007 19:16:11

Josef
AW: In ScrollArea einen Eintrag

02.05.2007 18:46:00

Erich
AW: In ScrollArea einen Eintrag

02.05.2007 19:24:16

Josef
Danke für Rückmeldung - freut mich! (oT)

02.05.2007 20:24:38

Erich

Makro...

02.05.2007 18:43:00

Walter

Hallo Josef,
habe diese Makro, bitte in das Tabellenblatt kopieren:
'--------- sobald man die Mappe anklickt, wird ausgeführt ---------


Private Sub Worksheet_Activate()
'        Range("A1").Select
Worksheets("Eingang").ScrollArea = "A1:A35"                   'Zeilen von A1 : A35  sperren
End Sub

Oder
in das "Arbeitsblatt" anstatt:


Private Sub Worksheet_Activate() diese Zeile, wird beim öffnen dann durchgeführt:


Private Sub workbook_open()
mfg Walter

AW: Makro...

02.05.2007 19:16:11

Josef

Hallo Walter,
Vielen Dank für das Makro. Habe es folgendermaßen abgeändert und in "Diese Arbeitsmappe" installiert.


Private Sub workbook_open()
Sheets("Buchhaltung").ScrollArea = "$A$5"
End Sub

Jetzt funktioniert alles einwandfrei!
Danke nochmal und schönen Tag noch
Gruß Josef

AW: In ScrollArea einen Eintrag

02.05.2007 18:46:00

Erich

Hallo Josef,
da machst du nichts falsch - die ScrollArea-Eigenschaft eines Blattes wird nicht gespeichert.
Du kannst sie aber für die jeweilige(n) Tabelle(n) im Workbook_Open festlegen:


Option Explicit
Private Sub Workbook_Open()
Sheets("Tabelle1").ScrollArea = "$A$5"
End Sub

Such doch mal oben zwischen "Die Online-Recherchen:" und "Archiv" nach
ScrollArea gespeichert
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: In ScrollArea einen Eintrag

02.05.2007 19:24:16

Josef

Hallo Erich,
genau so habe ich es eingegeben und alles funktioniert bestens.
(Aus Kamp-Lintfort kommen eigentlich immer gute Lösungen.)
Vielen Dank Erich und schönen Tag noch.
Gruß aus Köln
Josef

Danke für Rückmeldung - freut mich! (oT)

02.05.2007 20:24:38

Erich