Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum aus aktiver Zelle übernehmen

Datum aus aktiver Zelle übernehmen
maluda
Hallo Gemeinde,
habe folgendes Problem:
habe mir ein Arbeitszeit-Tabellenblatt erstellt. In Spalte B ist fortlaufend das Datum enthalten.
Da meine Arbeitszeit flexibel ist ich aber trotzdem einen Stundensoll habe errechne ich mir über Nettoarbeitstage und Funktion Heute() den aktuellen Stand meiner Plus- oder Minusstunden. Die Funktion HEUTE() ist in Zelle GB1.
Nun möchte ich aber das wenn ich in Spalte B ein Datum anklicke (Zelle auswähle) der Datumswert in Zelle GB1 eingetragen wird. Somit könnte ich durch anklicken der verschiedenen Datumsangaben in Spalte B eine "Entwicklung" meiner Arbeitszeit errechnen lassen.
Ich hoffe mich halbwegs verständlich gemacht zu haben. Für Eure Tipps danke ich schon im vorraus,
Liebe Grüße aus der Oberlausitz ;-)

Anzeige

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

Betreff
Benutzer
Anzeige
AW: Datum aus aktiver Zelle übernehmen
16.09.2012 19:47:12
Josef

Hallo Maluda,
in das Modul der entsprechenden Tabelle.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 2 Then
    If Target(1, 1) <> "" And IsDate(Target(1, 1)) Then Range("GB1") = Target(1, 1)
  End If
End Sub



« Gruß Sepp »

Anzeige
AW: Datum aus aktiver Zelle übernehmen
16.09.2012 19:55:37
maluda
WAS IST DENN DAS !!!

So eine geil schnelle Reaktion, das ist man ja ... naja...
VIELEN DANK !
Funktioniert super!

AW: Datum aus aktiver Zelle übernehmen
16.09.2012 19:50:11
Hajo_Zi
unter die Tabelle
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Range("CB1") = Target
Application.EnableEvents = True
End If
End Sub

Anzeige
AW: Datum aus aktiver Zelle übernehmen
16.09.2012 19:58:23
maluda
Danke danke!
Der Josef war nur Sekunden schneller, trotzdem
geiles Forum
DANKE!

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige