Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Statisches Datum in Excel Via Formel oder Makro

Frage Microsoft Microsoft Office

Mitglied: TheFalcon

TheFalcon (Level 1) - Jetzt verbinden

01.11.2014, aktualisiert 17:28 Uhr, 2573 Aufrufe, 12 Kommentare, 1 Danke

Hallo zusammen,

ich habe mal eine Frage und zwar:

Ich habe eine Tabelle, in Spalte B wird via Formel =WENN(D8<>"";HEUTE();" ") das aktuelle Datum und in Spalte C die aktuelle Uhrzeit automatisch eingetragen. Sobald ich jetzt etwas in der Zeile verändere springt die Uhrzeit und das Datum auf das aktuelle. Wie kann ich jetzt sagen das die Werte Fix bleiben?

1460d68e231ea07eb5bbe519f9c5f9fb - Klicke auf das Bild, um es zu vergrößern

Gruß

Alexander
Mitglied: rubberman
LÖSUNG 01.11.2014, aktualisiert um 17:28 Uhr
Hallo Alexander,

mit einer Formel wird das nicht funktionieren, per Makro schon.
Öffne den VBEditor mit Alt+F11. Doppelklicke links auf die entsprechende Tabelle und füge rechts folgenden Code ein:
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    If Target.Cells.Count = 1 And Target.Column = 4 Then 
03.
        If Not IsEmpty(Target) And IsEmpty(Cells(Target.Row, 2)) And IsEmpty(Cells(Target.Row, 3)) Then 
04.
            Cells(Target.Row, 2) = Date 
05.
            Cells(Target.Row, 3) = Time 
06.
        End If 
07.
    End If 
08.
End Sub
Stelle sicher, dass die Zellen in den Spalten B und C wirklich leer sind (keine Formeln oder ähnliches).

Grüße
rubberman
Bitte warten ..
Mitglied: TheFalcon
01.11.2014, aktualisiert um 18:05 Uhr
Perfekt Danke!!!!!


Kann ich das auch noch erweitern auf Spalte 12? Quasi wenn ich in Spalte 13 etwas eintrage soll die Spalte davor (12) das aktuelle Datum ausgeben

Gruss

Alexander
Bitte warten ..
Mitglied: rubberman
01.11.2014 um 18:35 Uhr
Hallo Alexander,

natürlich kann man das.
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    If Target.Cells.Count = 1 And Not IsEmpty(Target) Then 
03.
        If Target.Column = 4 _ 
04.
            And IsEmpty(Cells(Target.Row, 2)) _ 
05.
            And IsEmpty(Cells(Target.Row, 3)) _ 
06.
        Then 
07.
            Cells(Target.Row, 2) = Date 
08.
            Cells(Target.Row, 3) = Time 
09.
        ElseIf Target.Column = 13 _ 
10.
            And IsEmpty(Cells(Target.Row, 12)) _ 
11.
        Then 
12.
            Cells(Target.Row, 12) = Date 
13.
        End If 
14.
    End If 
15.
End Sub
Grüße
rubberman
Bitte warten ..
Mitglied: TheFalcon
02.11.2014 um 09:25 Uhr
Hallo Rubberman,

irgendwie übernimmt er bei mir das nicht. Spalte 2 und drei funktionieren perfekt, aber wenn ich spalte 13 fülle macht er irgendwie nichts ...

Gruss

Alexander
Bitte warten ..
Mitglied: rubberman
02.11.2014 um 12:06 Uhr
Hallo Alexander,

ich hatte es getestet. Funktioniert bei mir völlig problemlos.

Auch hier gilt dass die Zellen in Spalte 12 vorher leer sein müssen, bitte noch mal prüfen. Auch ein nicht sichtbares Leerzeichen ist ein Zelleninhalt.
Kann auch sein dass du Spalten ausgeblendet hast. Das wird vom Makro nicht berücksichtigt. Spalte 12 ist immer "L" und Spalte 13 immer "M".

Grüße
rubberman
Bitte warten ..
Mitglied: TheFalcon
02.11.2014 um 16:41 Uhr
Hallo rubberman,

jetzt weiss ich wo der Fehler liegt bei mir ist Spalte 13 schon P, besten Dank!!!

Gruss

Alexander
Bitte warten ..
Mitglied: rubberman
02.11.2014 um 16:52 Uhr
Hallo Alexander,

dann ist es einfach. In Zeile 9 die 13 zu 16 machen und (falls die ausgeblendeten Spalten nicht dazwischen liegen) in Zeile 10 und 12 die 12 zu 15.

Grüße
rubberman
Bitte warten ..
Mitglied: TheFalcon
05.11.2014 um 11:46 Uhr
Hallo Rubberman,

habe noch ein kleines Anliegen

01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    If Target.Cells.Count = 1 And Not IsEmpty(Target) Then 
03.
        If Target.Column = 4 _ 
04.
            And IsEmpty(Cells(Target.Row, 2)) _ 
05.
            And IsEmpty(Cells(Target.Row, 3)) _ 
06.
        Then 
07.
            Cells(Target.Row, 2) = Date 
08.
            Cells(Target.Row, 3) = Time 
09.
        ElseIf Target.Column = 13 _ 
10.
            And IsEmpty(Cells(Target.Row, 12)) _ 
11.
        Then 
12.
            Cells(Target.Row, 12) = Date 
13.
            Cells(Target.Row, 8) = "-" 
14.
            Cells(Target.Row, 11) = " " 
15.
            Cells(Target.Row, 6) = " " 
16.
        End If 
17.
    End If 
18.
End Sub
Er soll Punkt 13-15 nur so ausfüllen, wenn sie leer sind ansonsten soll der Inhalt drin bleiben. Komme aber nicht auf die Formel

Gruss

Alexander
Bitte warten ..
Mitglied: rubberman
05.11.2014 um 19:08 Uhr
Hallo Alexander,

hast du dich mal gefragt was die IsEmpty() Funktion macht?
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    If Target.Cells.Count = 1 And Not IsEmpty(Target) Then 
03.
        If Target.Column = 4 _ 
04.
            And IsEmpty(Cells(Target.Row, 2)) _ 
05.
            And IsEmpty(Cells(Target.Row, 3)) _ 
06.
        Then 
07.
            Cells(Target.Row, 2) = Date 
08.
            Cells(Target.Row, 3) = Time 
09.
        ElseIf Target.Column = 13 _ 
10.
            And IsEmpty(Cells(Target.Row, 12)) _ 
11.
        Then 
12.
            Cells(Target.Row, 12) = Date 
13.
            If IsEmpty(Target.Row, 8) Then Cells(Target.Row, 8) = "-" 
14.
            If IsEmpty(Target.Row, 11) Then Cells(Target.Row, 11) = " " 
15.
            If IsEmpty(Target.Row, 6) Then Cells(Target.Row, 6) = " " 
16.
        End If 
17.
    End If 
18.
End Sub
Grüße
rubberman
Bitte warten ..
Mitglied: TheFalcon
06.11.2014, aktualisiert um 06:15 Uhr
Hallo Rubberman,

Die sagt doch aus: Wenn die Zeile leer ist soll er sie ausfüllen. ich wusste nicht wie ich das mit einfüge. Aber so klappt es leider auch nicht.

Gruß

Alexander
Bitte warten ..
Mitglied: rubberman
LÖSUNG 07.11.2014, aktualisiert um 07:59 Uhr
Hallo Alexander.

IsEmpty() gibt "Wahr" zurück, wenn die Zelle leer ist, anderenfalls "Falsch".

Aber so klappt es leider auch nicht.
Dann erkläre noch einmal genau, wie es funktionieren soll.
Im Moment:
  • Wenn die Zelle in Spalte M leer ist dann
    • Datum in Spalte L schreiben
    • Wenn die Zelle in Spalte H leer ist dann
      • in Spalte H ein - schreiben
    • Wenn die Zelle in Spalte K leer ist dann
      • in Spalte K ein Leerzeichen schreiben
    • Wenn die Zelle in Spalte F leer ist dann
      • in Spalte F ein Leerzeichen schreiben

    Betrachte die Einrückungen als Hierarchie bei der Abarbeitung.

    Grüße rubberman
Bitte warten ..
Mitglied: TheFalcon
07.11.2014 um 08:02 Uhr
Hallo Rubberman,

habe es hinbekommen. Danke noch mal für die Tipps!!

01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    If Target.Cells.Count = 1 And Not IsEmpty(Target) Then 
03.
        If Target.Column = 4 _ 
04.
            And IsEmpty(Cells(Target.Row, 2)) _ 
05.
            And IsEmpty(Cells(Target.Row, 3)) _ 
06.
        Then 
07.
            Cells(Target.Row, 2) = Date 
08.
            Cells(Target.Row, 3) = Time 
09.
        ElseIf Target.Column = 13 _ 
10.
            And IsEmpty(Cells(Target.Row, 12)) _ 
11.
        Then 
12.
            Cells(Target.Row, 12) = Date 
13.
            If Cells(Target.Row, 8) = "" Then Cells(Target.Row, 8) = "-" 
14.
            If Cells(Target.Row, 11) = "" Then Cells(Target.Row, 11) = " " 
15.
            If Cells(Target.Row, 6) = "" Then Cells(Target.Row, 6) = " " 
16.
        End If 
17.
    End If 
18.
End Sub

Gruss

Alexander
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
In Excel das Datum aus einer Registerlasche in einer Formel verwenden
gelöst Frage von michael1306Microsoft Office7 Kommentare

Hallo zusammen, ich habe eine Excel Tabelle mit vielen Registerlaschen. Die Registerlaschen habe ich alle mit einem Datum versehen. ...

Microsoft Office
Excel Makro - Button "Springe zu Zeile mit heutigem Datum"
gelöst Frage von hannsgmaulwurfMicrosoft Office5 Kommentare

Hallo zusammen, heute wende ich mich mal mit einer Excel Frage an euch. Es geht um Excel 2010 auf ...

Microsoft Office
Excel Makro
Frage von maloh1984Microsoft Office4 Kommentare

Hallo Habe ein Problem, ein Kunde der hat Excellisten mit Makro die lassen sich öffnen aber die Buttons reagieren ...

Microsoft Office
Excel-Makro
gelöst Frage von yuki13Microsoft Office7 Kommentare

Hallo Zusammen!! :-) Ich bin nicht so fit in Excel Makros und wollte mich hier erkundigen, ob mir jemand ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 106 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 2 TagenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless8 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Router & Routing
Fritzbox Gastnetz - exposed Host - zur Sophos IPTV
Frage von medikopterRouter & Routing7 Kommentare

Hallo zusammen, ich habe eine Frage bezüglich des Fritz box Gastzugangs an einer Sophos UTM Home. An liebsten wäre ...