STRG + Punkt mit aktiver Zelle

Hallo,
ich hab hier schon viele Hilfreiche Beiträge gefunden, die mir immer sehr weitergeholfen habe. Jetzt hab ich über die Sucher aber nichts mehr gefunden.
Bei uns in der Firma laufen alle Protokolle fast ausschließlich über Excel. Der Eintrag kommt meist in eine einzelne Zelle. Wenn der Punkt die nachfolgende Woche wieder dran kommt, dann wird in die Zelle ergänzt.
Jetzt ist mein Vorgehen, dass ich immer bei einem Beitrag STRG + Punkt drücke um das aktuelle Datum einzufügen und dann dann gleich weiter mit dem Protokoll schreiben, da der Cursor in der Zelle noch aktiv ist. Macht es meiner Meinung nach sehr viel angenehmer. Manche Kollegen wünschen sich aber, dass die Kalenderwoche eingetragen wird. Gibt es hier auch was vergleichbares? Ich bekomm es leider nicht hin, dass ich über ein Makro nur bspw. "KW25" eintragen und dann die Zelle gleich noch aktiv ist, so dass ich weiterschreiben kann. Vorhandenes in der Zelle sollte auch nicht gelöscht werden.
Kann man das mit VBA umsetzen?
Schöne Grüße Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
=kalenderwoche(A23;21)
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim old As String Const Trenner = vbLf If Not Intersect(Target, Columns(1)) Is Nothing Then Cancel = True With Target old = .Value .Value = IIf(old "", old & Trenner, "") & "KW" & Format(Now(), "ww") & ": " End With SendKeys "{F2}" '--Cursor ans Ende setzen End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And IsDate(Target) Then Application.EnableEvents = False Target.Offset(0, 1) = WorksheetFunction.WeekNum(Target, 21) Application.EnableEvents = True End If End Sub

Sub KWein() Dim old As String Const Trenner = vbLf ' trägt in die aktive Zelle die Kalenderwoche ein ' Tastenkombination: Strg+q With ActiveCell old = .FormulaR1C1 .FormulaR1C1 = IIf(old "", old & Trenner, "") & "KW" & Format(Now(), "ww") & ": " End With End Sub

Sub KWein() Dim old As String Const Trenner = vbLf Wochentag = Weekday(Date) - 1 With ActiveCell old = .FormulaR1C1 .FormulaR1C1 = "KW" & Format(Now(), "ww") & "/" & Wochentag & ": " & vbCrLf & "---" & _ vbCrLf & IIf(old "", old & Trenner, "") End With End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

214 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

STRG + Punkt mit aktiver Zelle

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

214 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread