Thema Datum  Von Nutzer Rating
Antwort
11.01.2008 14:48:11 johannes
NotSolved
Blau Aw:suchfunktion in allen sheets
 14.01.2008 10:25:20 Holger
NotSolved
14.01.2008 14:08:16 Johannes
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
14.01.2008 10:25:20		 Views:
967		 Rating:
     
Antwort:
  Ja
Thema:
Aw:suchfunktion in allen sheets
Hallo Johannes,
ich gehe davon aus, dass du deine Tabellenblätter mit "Januar", "Februar", "März" usw. benannt und die gesuchte Kalenderwoche mit der Variablen Zahl kennzeichnest, die du irgendwie anders festgelegt hast (z.B. UserForm oder Programm), und die Kalenderwochen z.B. KW5 oder KW12 heißen, also ohne Leerstelle.
Dann sucht dir folgendes Makro die erste Nennung der KW in deinem Workbook. Falls diese monatsübergreifend mehrfach auftritt, könntest du das Makro ändern und die Tabelle z.B. aus dem Datum bestimmen (z.B. anstelle der For-Next-i-Schleife: Worksheets(MonthName(val(Month(Date))))

Dim Zelle As Range
fertig = False
For i = 1 To 12
Worksheets(MonthName(i)).Activate
For Each Zelle In Range("a2:BA2")
If Zelle.Value = "KW" + CStr(Zahl) Then
Zelle.Select
fertig = True
Exit For
End If
Next
If fertig = True Then Exit For
Next i

Viel Erfolg


johannes schrieb am 11.01.2008 14:48:11:

hallo ich habe eine mappe mit einem kalender.
jeder Monat hat ein eigenes Tabellenblatt.
ich such nach einer kalenderwoche die in zeile 2 stehen.
mit
KW = Range("E2:BA2").Find("KW" & Zahl).Address
range(KW).select
KW = ActiveCell.Column
ActiveWindow.ScrollColumn = KW

kann ich zu dieser zelle springen!
die geht nur wenn ich garade in diesem Tabellenblatt bin in dem sich die Kalenderwoche befindet.
gibt es ein möglichkeit alles Sheets auf einmal zu durchsuchen ohne das ich 12 schleifen mache mit
wenn in workshett "januar" vorhanden dann eintragen, wenn nicht aktiviere februar
gibts da was eleganteres.
das aufnehmen der excel suchfunktion mit einem makro funktioniert irgendwie nicht!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.01.2008 14:48:11 johannes
NotSolved
Blau Aw:suchfunktion in allen sheets
 14.01.2008 10:25:20 Holger
NotSolved
14.01.2008 14:08:16 Johannes
NotSolved