Supportnet / Forum / Tabellenkalkulation

Hallo, hat jemand eine Idee, wie ich eine Zelle, die beim Öffnen der Excel-Arbeitsmappe angesteuert werden soll (und damit einen bestimmten Ausschnitt zeigen soll), vorherbestimmen kann? Es handelt sich um eine variable Zelle, die durch eine Formel belegt ist und aufgrund des Ergebnisses als die Gewünschte erkannt werden soll. Zusätzliches Problem: Sie kann sich in verschiedenen Arbeitsblättern befinden, soll aber dennoch gefunden und vor allem immer automatisch angesteuert werden. Ich hoffe ihr könnt mir helfen und ich bedanke mich vorab schonmal herzlich für die Mühe! Maduschka

Hi,

laufe mit einer Schleife durch alle Tabellen und suche nach der Zelle mittels Find. Anschließend kannst du mit GotoReference diese Zelle in die linke obere Ecke des Bildschirms transportieren.

Bis später,
Karin

Danke!
Werd ich versuchen. :-)

Gruß
Maduschka

Hallo Beverly,
hallo Ihr´s

Ich hoffe ihr könnt mir noch nen Stück weiter helfen, denn ich stehe vor einem riesigen Problem.

Ich kenn mich mit Makros und der Programierung überhaupt nicht aus. Es reicht gerade mal dazu, dass ich weiß, wo man Makros eingibt, jedoch hab ich keinen Plan, was ich reinschreiben soll.

Mein Problem im Detail:

Ich suche eine Möglichkeit, dass in einer Datei mit 12 Tabellen eine bestimmte Zelle (siehe unten) gesucht wird, egal in welchem Arbeitsblatt sie steht.
Die Zelle genau darüber soll angesteuert und oben in die linke Ecke des Sichtfensters gestellt werden.
Dies soll automatisch beim Öffnen der Datei und bei einer gewissen Tastenkombination erfolgen.
(Das wär doch dann nen Makro?)


Die Such-Zelle ist mit einer Formel belegt: (=WENN((VORZEICHEN((HEUTE()-B4)))=0;">> Heute <<";" "))
Ich suche die einzige Zelle, bei der =0 stimmt, also ">> Heute <<" ausgegeben wird.

Diese zu durchsuchenden Zellen sind immer in Spalte A und schräg unter der jeweiligen B Zelle in der Formel. (Bei B4 also A5, bei B28 auf A29, usw.)

B4 ist hierbei variabel, jedoch festgelegt immer + 24, also B4, B28, B52, B76, B100, usw. bis B724.


Ich hoffe ihr könnt mir, bitte, bitte mit einem kleinen fertigen Makro helfen, denn ich versuche seit vorgestern das Problem allein über die Funktionen zu lösen und auch meine Versuche eine Schleife zu basteln (wie von Beverly vorgeschlagen) klappen aber nicht.


Gruß
Maduschka

Hi,

Sub zellinhalt_suchen()
    Dim raZelle As Range
    Dim loTabelle As Long
    For loTabelle = 1 To Worksheets.Count
        Set raZelle = Worksheets(loTabelle).Columns(1).Find(">>Heute<<") 
        If raZelle Is Nothing Then
            MsgBox "Suchbegriff wurde in" & vbCrLf & vbCrLf & Worksheets(loTabelle).Name & vbCrLf & "nicht gefunden!"
        Else
            Application.Goto Reference:=Worksheets(loTabelle).Range(raZelle.Address), scroll:=True
            Exit Sub
        End If
    Next loTabelle
End Sub

Bis später,
Karin

Hallo Karin,

wenn ich das so ins Makro übernehme gibt er mir ne Fehlermeldung aus:

10 Find ">> Heute <<"

Du kannst mir auch direkt schreiben: info(at)typotype(punkt)de

Danke für deine Mühe!!!
Maduschka

Hi,

schau dir mal meine Zeile mit .Find an und deine - bei dir fehlt die öffnende und die schließende Klammer. Dieser Teil gehört zum .Find-Befehl

Bis später,
Karin

Hallo Karin,

vielen Dank für deine Hilfe! Nach längerem Tüfteln klappt es jetzt!

Gruß
Maduschka

• Abfragen in Excel
• Formel-Bezug
• Werte einer Tabelle vergleichen und in einer anderen Tabelle zusammenfügen
• t-online 5.0 trennt nicht automatisch nach vorgegebener Zeit von 15 Minuten
• Vergleichen von Listewerten, wie wird´s gemacht?