Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sprung zu anderem Blatt

Sprung zu anderem Blatt
24.02.2008 00:49:00
Dirk
Hallo an alle netten Helfer/-innen,
in Zelle U6 habe ich einen Datumswert (Format: MMMM).
Die anderen Blätter heißen aber z.B. Jan, Febr, März etc. - also keine "vollkommene Gleichheit".
Bezugnehmend auf die Zelle U6 möchte ich nun per CommandButton zum dazuhörigen Monatsbaltt springen.
Dabei sollte allerdings nur auf Übereinstimmung der ersten 3 Buchstaben geprüft werden.
Wie ist soetwas realisierbar ?
MfG Dirk

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sprung zu anderem Blatt
24.02.2008 01:00:00
Josef
Hallo Dirk,
wenn deine Blätter so benannt sind, "Jan, Feb, März, Apr, Mai, Jun, Jul, Aug, Sep, Okt, Nov, Dez", dann
geht's ZB. so.
Tabelle1

 TUVW
5    
6 FebruarLink 
7    

Formeln der Tabelle
ZelleFormel
V6=HYPERLINK("#'"&TEXT(U6;WENN(MONAT(U6)=3;"MMMM";"MMM"))&"'!A1";"Link")
Excel Tabellen im Web darstellen  Excel Jeanie HTML

Gruß Sepp



Anzeige
AW: Sprung zu anderem Blatt
24.02.2008 01:21:17
Dirk
Hallo Sepp,
danke für deine Antwort, allerdings habe ich 2 Problem damit:
1. Bei mir erscheint die Fehlermeldung "Bezug ist ungültig".
Ich habe in U6 die Formel: =Y6 und in Y6 die Formel: =DATUM($Y$6;MONAT($X$6)+1;0)
2. Eigentlich suche ich nach einer Lösung via CommandButton.
Hintergrund: Der Hyperlink erscheint beim Ausdrucken...
Kannst du dir das bitte nochmal anschauen ?
MfG Dirk

ein Beispiel mit Button
24.02.2008 09:26:26
Matthias
Hallo Dirk
probier mal, ob es so passt.
https://www.herber.de/bbs/user/50149.xls
Gruß Matthias

Anzeige
AW: ein Beispiel mit Button
24.02.2008 09:46:52
Nepumuk
Hallo Matthias,
ich hab mir deine Mappe nicht heruntergeladen, aber muss das sein, wegen 6 Zeilen Code eine Mappe hochzuladen? So kann man den Forumsserver auch zumüllen. Jetzt sag aber nich, du benötigst viel mehr Zeilen, und hast noch eine halbe DIN A4 Seite Kommentare drin. Sonst lade ich sie wirklich runter und schaus mir an.
Die Minimalvariante sieht nämlich so aus:
Private Sub CommandButton1_Click()
    Dim objSheet As Worksheet
    For Each objSheet In ThisWorkbook.Worksheets
        If Left$(objSheet.Name, 3) = Left$(MonthName(Month(Cells(6, 21).Value)), 3) Then objSheet.Select
    Next
End Sub

Und die Maximalvariante so:
Private Sub CommandButton1_Click()
    Dim objSheet As Worksheet
    If IsDate(Cells(6, 21).Value) Then
        For Each objSheet In ThisWorkbook.Worksheets
            If Left$(objSheet.Name, 3) = Left$(MonthName(Month(Cells(6, 21).Value)), 3) Then
                objSheet.Select
                Exit Sub
            End If
        Next
        MsgBox "Tabelle nicht gefunden.", vbCritical, "Fehler"
    Else
        MsgBox "Kein gültiges Datum in Zelle U6.", vbCritical, "Fehler"
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Sprung zu anderem Blatt
24.02.2008 09:34:06
Josef
Hallo Dirk,
dann so.
Private Sub CommandButton1_Click()
Dim strSheet As String
Dim objWs As Worksheet
strSheet = LCase(Left(Range("U6").Text, 3))
For Each objWs In ThisWorkbook.Worksheets
    If LCase(Left(objWs.Name, 3)) = strSheet Then
        objWs.Activate
        Exit For
    End If
Next
End Sub


Gruß Sepp



Anzeige
AW: Sprung zu anderem Blatt
24.02.2008 11:33:00
Dirk
Hallo Matthias, Sepp u. Nepumuk,
alle eure Vorschläge funktionieren PERFEKT - ich danke euch allen u. wünsche einen herrlichen Sonntag !
Besonders bedanke ich mich bei Matthias.
Entgegen der Meinung von Nepumuk (du siehst das Ganze von dem Standpunkt eines Fachmanns aus) würde ich die freundliche Hilfe eines anderen Users wohl nicht als "zumüllen" bezeichnen...
Einem EXCEL-DAO ( s. Levelangabe) wie mir hat diese Mappe jedenfalls sehr geholfen u. ersparte sicherlich einige Nachfragen.
Vertragt euch bitte wieder... Userbild
LG Dirk
Anzeige

302 Forumthreads zu ähnlichen Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Anzeige
Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo ,
erstmal vielen Dank für Eue Hilfen.
Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
https://www.herb...
02.10.2008 14:42:14
Thread-ID: 1013889
3 Beiträge
Anzeige
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Summenprodukt auf anderes Blatt beziehen
Reinhard

Hallo Wissende, diese Formel in einer bedingten Formatierung in Tabelle1 fuktioniert: =SUMMENPRODUKT(($C$1:$C$100=$A3)*($D$1:$D$100=$B3))>0 Vegebe ich aber z.B. für Tabelle2!$A:$A den Namen TabA Tabelle2!$B:$B den Namen TabB so tut sich nichts bei der bedingten Formatierung in Tabelle1 bei...
27.11.2008 11:02:50
Thread-ID: 1028275
3 Beiträge
Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge
Referenzieren auf Tabellenblatt???
Maris

Hallo,
komische Frage! Ich habe eine Datei A in die täglich Daten eingegeben werden, an jedem Tag wird ein neues Tabellenblatt erstellt der Name des Tabellenblatts ist immer das Datum des Tages im Format: tt.mm.yy.
In einer anderen Datei B möchte ich auf die Daten der Tabelle zugreifen...
29.01.2009 15:46:09
Thread-ID: 1045053
20 Beiträge
Zugriff auf Zellen in anderer Tabelle mit Indirekt
Florian

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiterkomme.
Ich möchte, dass man in die Tabelle die Adresse einer Zelle eingibt, und dann der Wert dieser Zelle übernommen wird.
Die Zelle, deren Wert übernommen werden soll, liegt aber in einer anderen Tabelle (gleiche Mappe...
06.03.2009 21:27:57
Thread-ID: 1057475
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
2
2
6
6
2
3
19
2
8
3
5
1
2
4
6
8
8
3
4
2
4
2
6