Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1276to1280
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
Inhaltsverzeichnis

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 ;-)

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

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!
Anzeige

381 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige