Office: (Office 2007) Button --> in Zelle mit aktueller KW springen

Machacha · 14. Januar 2015

Hallo ihr lieben,

leider bin ich an einer wohl ziemlich einfachen Aufgabe am verzweifeln.

Ich habe eine Tabelle in der in Spalte A irgendwo die einzelnen Kalenderwochen stehen in der Form "KW 3"

Nun hätte ich gerne einen Bottun, ganz oben im jeweiligen sheet, der mich dann direkt in die Zelle bringt, für die die aktuelle KW zutrift.

Also so etwas in der Art,

Springe in die Zelle, die folgenden Inhalt hat

KW&" "&KALENDERWOCHE(HEUTE())

Könnt ihr mir bitte helfen?

VG
Katrin

:)

R J · 16. Januar 2015

Hi Katrin,

also.... KW nach DIN? Dann So:
Code:

Public sub Button1_Click()
Dim KW$, woche%
woche = KW_DIN(Now)
KW = FindeKW("KW" & woche)
If KW = "" Then
MsgBox "KW" & woche & " nicht gefunden"
Else
Range(KW).Activate
End If

End Sub

Public Function KW_DIN(datum As Date) As Integer
' von Christoph Kremer, Aachen
' Berechnt die KW nach DIN 1355
Dim t&
t = DateSerial(Year(datum + (8 - Weekday(datum)) Mod 7 - 3), 1, 1)
KW_DIN = (datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

Function FindeKW(KW As String) As String
On Error GoTo Fehler
With ActiveSheet 'das auch nach Bedarf anpassen...
'Die 2 stehen hier für Spalte B, also.... anpassen
FindeKW = .Columns(2).Find(What:=KW, After:=.Cells(1, 2), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Address(0, 0)
End With
Exit Function
Fehler:
Err.Clear
FindeKW = ""
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Machacha · 16. Januar 2015

Hallo Ralf

vielen Dank für deine Antwort/Hilfe

Ich verstehe leider nicht ganz was du mit DIN meinst bzw. was das bedeutet *frown.gif*

Nur leider funktioniert es noch nicht richtig.
Wenn ich das Makro auf einen entsprechenden button lege und drauf klicke bekomme ich die messagebox "KW3" nicht gefunden.

Nun steht aber in Spalte A94 "KW3" drinnen. Die Zelle ist dabei als Standard formatiert, d.h. dabei handelt es sich um keine Datumsangabe.

Kannst du mir bitte nochmal helfen?

LG
Katrin

Machacha · 16. Januar 2015

Ich dummerchen.

Es funktioniert. Ich hab den Code nicht ausreichend angepasst gehabt.

vielen Dank Ralf *Smilie

Office: (Office 2007) Button --> in Zelle mit aktueller KW springen

Button --> in Zelle mit aktueller KW springen

Button --> in Zelle mit aktueller KW springen

Button --> in Zelle mit aktueller KW springen

Button --> in Zelle mit aktueller KW springen - Similar Threads - Button Zelle aktueller

Verbundene Zellen leeren mit Button

Wert in anderer Zelle autom. Speichern

Mit Command Button Link in Zelle öffnen

Kommando Button soll Zellen leeren

Zellen mittels comand button kopieren und in anderes Tabellenblatt einfügen

Datum in die erste leere Zelle in der Spalte per Button-Klick

Zelle per Button löschen