---

Hallo
Programmiere grad kurz ein paar Makros in Excel, dabei werden Spalten bzw. Zeilen ein und ausgeblendet,
weis jemand wie ich die aktuelle Zellposition vor Ausführung des Makros abfragen kann um nach Ausführung dahin zurück zu springen?
Gruß
Jens

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jens,
ActiveCell.Address

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,
als kleine Ergänzung:
-ActiveCell.Address liefert z.B. "$A$1"
-ActiveCell.Address(0, 0) liefert z.B. "A1" mit (RowAbsolute, ColumnAbsolute, [...]) und ein paar weitere Optionen, die im Editor bei der Eingabe vorgeschlagen werden. Und dann gibt es da noch
-Selection.Address mit ähnlichen Möglichkeiten wie oben, nur halt für ´nen Bereich.

Dieser

Code:

---

dim aktZelle 'Variable deklarieren...
aktZelle = ActiveCell.Address '... und belegen
... 'Makro-mach-was
Range(aktZelle).Activate 'Zurückspringen

---

gilt nur für EIN Arbeitsblatt; kommt auch darauf an, was Deine Makros so mit der Mappe anstellen Wenn Du wild zwischen den Registern ´rumspringst, sollte noch ein 'ActiveSheet.' vor 'ActiveCell' gesetzt werden.
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jens,

wenn du ohne Select und Activate arbeitest, ist das ganze unnötig, da die Zelle nicht verlassen wird. Mir sind nur zwei Fälle bekannt, bei der ich selektieren muss. Der eine ist beim PasteSpecial, da dabei der Einfügebereich automatisch aktiv wird, der zweite beim optimalen Zoom auf einen bestimmten Tabellenbereich.

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nepomuk,

danke für die Info, aber ich muß nja die Zeilen oder spalten definieren, die ich ein oder ausblenden möchte.
Ich machs halt über Makro aufzeichnen und dann ein bischen umprogrammieren, so die riesen Ahnung von VB hab ich leider nicht.

Gruß
Jens

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jens,
auch dafür mußt Du die Zelle nicht selektieren:

Code:

---

Public Sub Ausblenden()
    Tabelle1.Rows(1).RowHeight = 0
    Tabelle1.Columns(1).ColumnWidth = 0
End Sub

---

Du kannst also direkt zuweisen. Der Rekorder selektiert halt gerne. Lies doch dazu auch mal hier nach: http://www.online-excel.de/excel/singsel_vba.php?f=78

[e] URL [/e]

------------------
Gruß,
runkelruebe                      Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

[Diese Nachricht wurde von runkelruebe am 20. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Runkelrübe,

danke für die Info,da kann man das mit den Makros mal kapieren.
ich mach es jetzt so:

Code:

---

Sub Ausblenden()
' Ausblenden der Zeilen
    ActiveSheet.Unprotect
    Rows("33:60").EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub Einblenden()
' Einblenden der Zeilen
    ActiveSheet.Unprotect
    Range("33:33,35:37,39:41,43:45,47:49,51:53,55:57,59:60").EntireRow.Hidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

---

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Runkelrübe,

ich versuche das ganze nun über einen Toggle-Button, jedoch bekomme ich immer die Fehlermeldung:
"die Hidden-Eigenschaft des Range Objekts kann nicht festgelegt werden"
sowie "die Unprotect-Methode des Worksheet Objects ist fehlerhaft"

Wenn ich das ganze über zwei Schaltflächen schalte, funktioniert es

siehe Code

Code:

---

Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
    ActiveSheet.Unprotect
    Rows("33:60").EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    ActiveSheet.Unprotect
    Range("33:33,35:37,39:41,43:45,47:49,51:53,55:57,59:60").EntireRow.Hidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

---

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jens,
ganz kleine Syntax-fehler:
Vorschlag2: Namen definieren: Zeilen: 33:33,35:37,39:41,43:45,47:49,51:53,55:57,59:60 = "AUSBLENDEN"
-> code:

Code:

---

Sub ToggleButton1_Click()
'Namen definiert: Zeilen: 33:33,35:37,39:41,43:45,47:49,51:53,55:57,59:60 = AUSBLENDEN

If ToggleButton1 = False Then
    ActiveSheet.Unprotect
    'ActiveSheet.Rows("33:60").EntireRow.Hidden = True
    ActiveSheet.Range("AUSBLENDEN").EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    ActiveSheet.Unprotect
    'ActiveSheet.Rows("33:60").EntireRow.Hidden = False
    ActiveSheet.Range("AUSBLENDEN").EntireRow.Hidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

---

aber es gibt auch die Möglickeit, das direkt über Excel-Funktionen zu machen, dann sind so kleine PLUS-Zeichen im linken Rand: nur den Namen dieser Funktion finde ich mal wieder nicht...den such ich übrigens jedesmal, wenn ich den brauche, irgendwas mit Daten? Gültigkeit? ach was weiß denn ich, mir fällt's noch ein 

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nicole,
meinst Du Daten->Gruppierung und Gliederung?

[Edit]Ohne die Sache (aus Zeitmangel) vollständig nachzuvollziehen - Stimmen die Bereiche (1&2) von runkelruebe mit denen von Jens überein? [/Edit]

  Frederik

[Diese Nachricht wurde von Paulchen am 20. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nicole oder Runkelrübe?

das hab ich grad mal probiert, aber es kommt wieder die Fehlermeldung
"die Hidden-Eigenschaft des Range Objekts kann nicht festgelegt werden"

Ich hab den Namen definiert usw. aber

Achso. mit Gruppierung und Gliederung, dass ist auch schön, nur nimmt es wieder Platz weg am Rand, was ich nicht wollte.

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jens,

hast Du das Teil mal schrittweise durchlaufen lassen? Also in VBA den Cursor irgenwo in den Code setzen und F8 drücken... Am besten das VBA-Fenster etwas kleiner machen, damit Du siehts, was er in xls macht.

Wann / Wo (in welcher ZEILE des Quellcodes) taucht der Fehler auf? Bei beiden Stellungen des ToggleButton?
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmm, sorry, kann ich nicht nachvollziehen...
Meine Vorgehensweise:
im Sheet die gewünschten Zeilen markieren
Menü -> Namen -> definieren -> "AUSBLENDEN"
meine code komplett in "Tabelle1" einfügen
Toggelbutton drücken
Zeilen blenden sich ein und aus, wie gewünscht..

@Paulchen: Jaaa, danke, das meinte ich : )
------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

[Diese Nachricht wurde von runkelruebe am 20. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ausblenden-Makro.gif

Hallo Ihr beiden,

nee bleibt immer hängen in folgender Zeile

Code:

---

ActiveSheet.Range("AUSBLENDEN").EntireRow.Hidden = True

---

- siehe auch Bild ..gif
Gruß
Jens

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Zitat:

---

von runkelruebe:
Menü -> Namen -> definieren -> "AUSBLENDEN"

---

sollte heißen:
Menü Einfügen-> Namen -> definieren -> "AUSBLENDEN", dann klappt´s auch bei mir wie beschrieben...
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dann mach mal aus ActiveSheet ein Tabelle1... bzw. ein Tabellewo auch immer Du den Togglebutton drin hast

Code:

---

Sub ToggleButton1_Click()
'Namen definiert: Zeilen: 33:33,35:37,39:41,43:45,47:49,51:53,55:57,59:60 = AUSBLENDEN

If ToggleButton1 = False Then
    Tabelle1.Unprotect
    'Tabelle1.Rows("33:60").EntireRow.Hidden = True
    Tabelle1.Range("AUSBLENDEN").EntireRow.Hidden = True
    Tabelle1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    Tabelle1.Unprotect
    'Tabelle1.Rows("33:60").EntireRow.Hidden = False
    Tabelle1.Range("AUSBLENDEN").EntireRow.Hidden = False
    Tabelle1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

---

geht's nu??

@Paulchen: jaja, Kleinigkeiten 

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ausblenden.gif

Ich wußte schon was Du meinst,
klappt trotzdem nicht, ich habe den Namen ganz normal definiert über Menü > Einfügen > Namen > Festlegen siehe Gif:

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... müßte laufen....

sorry, aber da hilft nur noch eins: Mappe uppen!!!

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nee das läuft auch nicht: "Laufzeitfehler 424 - Objekt erforderlich!"
das scheint komplett falsch zu sein
schade

was meinst Du mit

Zitat:

---

sorry, aber da hilft nur noch eins: Mappe uppen!!!

---

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Deine Datei von geheimen Dingen bereinigen und dann ab damit ins Forum: http://hilfe.cad.de/index.php?option=com_content&task=view&id=25&Itemid=56
denn anscheinend versagt meine Glaskugel...

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hm - wie Nicole schon sagt:

Zitat:

---

Dann mach mal aus ActiveSheet ein Tabelle1... bzw. ein Tabelle wo auch immer Du den Togglebutton drin hast...

---

Da MUSS dann bei Dir überall "Kalender" statt "Tabelle" im Code stehen. Und der Code auch unter "Kalender" im VBA-Editor. Ansonsten: Siehe Nicoles letzter Beitrag - Mappe hoch :-)!
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Projekte_200X.txt

OK ich up die mapp:

auf den Blättern ist kein Passwort drauf

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OK, nach kurzem Test: definier' mal den Namen neu:
da muß =Tabelle1!$33:$33;Tabelle1!$35:$35;Tabelle1!$35:$37;Tabelle1!$39:$41;Tabelle1!$43:$45;Tabelle1!$47:$49;Tabelle1!$51:$53;Tabelle1!$55:$57;Tabelle1!$59:$60
also mit diesen Dollarzeichen stehen, danach sollte es gehen.

[e] also bei Dir natürlich Kalender!$33:$33; usw... [/e]
------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

[Diese Nachricht wurde von runkelruebe am 20. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach,
habe auch nochmal rumgespielt. Bei mir (Office 2000) springt er zur Zeile 65515 - diese (und weitere) werden korrekt ein- und ausgeblendet.
Mit Nicoles Vorschlag sollte es klappen...

[Edit]Das steht bei mir unter "Range("AUSBLENDEN")": 65515:65515,65517:65519,65521:65523,65525:65527,65529:65531,65533:65535,1:3,5:6,7:8   [/Edit]
Frederik

[Diese Nachricht wurde von Paulchen am 20. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, habe auch nochmal probiert, vorher Kalender in Tabelle1 umgetauft
jetzt kommt folgende Meldung
Laufzeitfehler '1004!
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen

------------------
Gruß Jens
Achso ich hab Excel 97

[Diese Nachricht wurde von jveith.cad.de am 20. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Projekte_200X.xls.txt

So, ob das unter Excel97 läuft, weiß ich nicht.. unter 2003 tut's das im Anhang.

Wenn nich geht, müssen wir uns wohl was anderes überlegen... z.B. alle Reihen einzeln ansprechen, aber bevor wir das tun, versuch's bitte erstmal mit angehängter Mappe.

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jo Nicole,
Bestätigung: Läuft bei mir auch. Auf die Sache mit "Sheets("Kalender")"... bin ich auch gekommen - zum banalen, aber wirkungsvollen, vorangestellten "On Error..." hat´s bei mir nicht gereicht :-(
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
habs probiert, Knopf lässt sich ein und ausdrücken und es passiert nichts, wenn ich

"On Error Resume Next" al Kommentar setze kommt wieder der Laufzeitfehler 1004

Hidden Eigenschaft des Range Objects kann nicht festgelegt werden

liegt vieleicht an der Excel97 Version?!

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry, Excel97, da bin ich raus.
Vielleicht hat wer anders ne Idee?
Hab jetzt auch keine Zeit, das umzubasteln. Vielleicht heute Abend nochmal. Wenn bis dahin nix gescheites aufgetaucht ist, melde ich mich wieder.

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo ,
erst mal vielen Dank für Eure Hilfe, kostet ne Menge Zeit, sollten ein ander mal weitermachen, vieleicht morgen

------------------
Gruß Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jens,

ich kann das nicht nachvollziehen, läuft einwandfrei (ich kanns aber nur mit xl2003 testen). Dein Code mal auf das notwendige eingedampft:

Code:

---

Public Sub ToggleButton1_Click()
    With Tabelle1
        .Protect DrawingObjects:=True, Contents:=True, _
            Scenarios:=True, UserInterfaceOnly:=True
        .Rows("33:60").Hidden = Not ToggleButton1.Value
    End With
End Sub

---

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP