Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
676to680
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
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle mit akt. KW und select

Zelle mit akt. KW und select
06.10.2005 17:08:30
Heribert
Hallo Excellaner,
ich würde gerne folgendes realiesieren:
In Zelle I2 habe ich die aktuelle KW stehen.
In meiner Tabelle habe ich 52 (für 52KWs) Bereiche angelegt.
In Spalte A steht für den jeweiligen Bereich die KW
mit der formel
=KÜRZEN((B5-WOCHENTAG(B5;2)-DATUM(JAHR(B5+4-WOCHENTAG(B5;2));1;-10))/7)
Wenn ich nun auf Zelle I2 klicke, mit der akt KW
soll die akt. KW in der Tabelle mit select angezeigt werden.
(Oder evtl. über einen Button ausgelöst.)
Wäre super wenn mir jemand helfen kann.
Gruss Klaus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle mit akt. KW und select
06.10.2005 20:11:38
Hilbman
Hallo Heribert und/oder Klaus,
kopiere folgenden Code in die Tabelle in der Du diesen Ablauf wünscht.
Wenn du die Zelle I2 anclickst , so wird die entsprechende KW in Spalte A oder die gesamte Zeile selectiert. Du mußt nur die entsprechende Programmzeile aktivieren.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row = 2 And Target.Column = 9 Then
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = Cells(2, 9) Then
'               Cells(i, 1).Select    'Selectiert nur die Zelle in Spalte A
'               oder
Rows(i).Select         'Selectiert die ganze Zeile
Exit For
End If
Next
End If
End Sub

Gruß Hilbman
Anzeige
Worksheet_SelectionChange gibt KW aus
06.10.2005 20:35:04
Beate
Hallo Klaus,
dann füge ins Codefenster der Tabelle folgendes Makro ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$I$2" Then Exit Sub
    Range("I2") = [TRUNC((TODAY()-WEEKDAY(TODAY(),2)-DATE(YEAR(TODAY()+4-WEEKDAY(TODAY(),2)),1,-10))/7)]
End Sub



Gruß,
Beate
Anzeige
Worksheet_BeforeDoubleClick springt zur akt. KW
06.10.2005 20:47:49
Beate
Hallo Klaus,
ich hatte deine Frage wohl falsch verstanden. Ich würde das, was du möchtest, per Doppelclickmakro machen, da du sonst den Zellinhalt vor dem Sprung gar nicht ändern kannst. Auch dieses Makro gehört ins Codefenster der Tabelle:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address <> "$I$2" Then Exit Sub
    Dim rng As Range
    Set rng = Range("$A:$A").Find(What:=Target.Cells, LookIn:=xlValues, LookAt:=xlWhole)
    If rng Is Nothing Then
        MsgBox "Wert wurde nicht gefunden."
    Else
        Application.Goto rng, True
    End If
End Sub



Gruß,
Beate
Anzeige
AW: Worksheet_BeforeDoubleClick springt zur akt. KW
08.10.2005 19:12:35
Klaus
Hallo an euch beide,
konnten erst heute wieder online gehen.
Das Makro von Beate haben wir schon ausprobiert, klappt einwandfrei.
Jaja, wir haben mit 2 Mann an unserem Excelproblem gesessen,
und ich war so mutig hier mal diese frage zu stellen.
Also vielen dank und bis zum nächsten mal
Klaus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige