Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: 3 Tabellen, wenn Datum heute Jahr um 1 erhöhe

VBA: 3 Tabellen, wenn Datum heute Jahr um 1 erhöhe
26.06.2018 09:12:27
Bernd
Hallo zusammen,
Komme leider bei einem Problem nicht weiter und bräuchte mal Hilfe.
Beim Öffnen der Datei 3 Tabellen überprüfen, ob in einer Spalte das Datum heute oder kleiner als heute, dann das Datum um ein Jahr erhöhen.
Dateiname: BKK
Folgende Tabelle sollen überprüft werden:
Tabelle1 Spalte L oder 12
Tabelle2 Spalte I oder 9
Tabelle3 Spalte Q oder 17
Für Eure Hilfe schon mal ein Danke im Voraus!!!
Userbild
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: 3 Tabellen, wenn Datum heute Jahr um 1 erhöhe
26.06.2018 09:35:39
UweD
Hallo Bernd
so?
gehört in DieseArbeitsmappe
Microsoft Excel Objekt DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Open() 
    Dim wb, TB, Sp As Integer, Zelle 
    Set wb = ThisWorkbook 
     
    'Durchlaufe alle Blätter 
    For Each TB In wb.Sheets 
         
        'entscheide ja nach Blattname welche Spalte verwendet werden soll 
        Select Case TB.Name 
            Case "Tabelle1" 
                Sp = 12 
            Case "Tabelle2" 
                Sp = 9 
            Case "Tabelle3" 
                Sp = 17 
        End Select 
         
        'sind überhaupt Zellen mit Zahlen enthalten 
        'Ein Datum ist auch eine Zahl 
        If WorksheetFunction.Count(TB.Columns(Sp)) > 0 Then 
             
            'Für jede Zelle mit einer Zahl 
            For Each Zelle In TB.Columns(Sp).SpecialCells(xlCellTypeConstants, 1) 
                 
                'Ist die Zahl ein Datum 
                If IsDate(Zelle) Then 
                     
                    'ist das Datum kleiner gleich heute 
                    If Zelle <= Date Then 
                         
                        'Jahr um eins erhöhen 
                        Zelle.Value = DateSerial(Year(Zelle) + 1, Month(Zelle), Day(Zelle)) 
                    End If 
                End If 
            Next 
        End If 
    Next 
End Sub

LG UweD
Anzeige
AW: VBA: 3 Tabellen, wenn Datum heute Jahr um 1 erhöhe
26.06.2018 09:58:19
Bernd
Hallo Uwe, hallo Chris,
Danke für Eure schnelle Hilfe. Beide Versionen funktionieren! Für Welche ich mich entschieden habe, lasse ich offen.
Userbild
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"
Danke (mit weiterem Text)
26.06.2018 11:57:32
UweD
Sind ja im Kern identisch
Bei wird vorher noch einiges an möglichen Fehlern abgefragt.
LG UweD
AW: VBA: 3 Tabellen, wenn Datum heute Jahr um 1 erhöhe
26.06.2018 09:36:01
ChrisL
Hi Bernd
Private Sub Workbook_Open()
Call EditDate("Tabelle1", 12)
Call EditDate("Tabelle2", 9)
Call EditDate("Tabelle3", 17)
End Sub


Private Sub EditDate(strTB As String, intSpalte As Integer)
Dim c As Range
Application.ScreenUpdating = False
With Worksheets(strTB)
For Each c In .Columns(intSpalte).SpecialCells(xlCellTypeConstants)
If c
cu
Chris
Anzeige

322 Forumthreads zu ähnlichen Themen

Automatische Werte befüllen wenn bestimmtes Datum
Heiderer

Hallo!
Ich habe folgendes Excel-Sheet:
In Spalte A soll mittels VBA ein Datum eingefügt werden, zb. 01.09.2008. In Spalte B soll ein Betrag zb. € 70,00 eingetragen werden. Bezüglich der Spalte B gibt es kein Problem. Es geht nur um die Spalte A.
Ich will nämlich, dass Excel autom...
03.09.2008 13:43:00
Thread-ID: 1007096
30 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Aufgabe an Outlook wenn Datum gleich heute
Lucia

Hallo zusammen,
Mit dem nachfolgenden Makro möchte ich die jeweiligen, nach Themen definierten Maßnahmen als Outlookaufgaben verteilen. Das klappt ganz gut. Was ich nicht hinbekomme, ist eine If Schleife, die prüft, ob das Datum in Aendd (Datum der letzten Änderung) dem heutigen entspricht...
26.11.2008 16:00:07
Thread-ID: 1028078
3 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
aktuelles Datum anzeigen
Philipp

Hallo liebe Herber-Gemeinde,
ich möchte gern, dass mir Excel das aktuelle Datum in einer Zelle anzeigt. Weiss leider nicht wie das geht.
Vielleicht kann mir zusätzlich noch jemand sagen, wie man das mit einer Formel verknüpft wenn ich die Datumzelle mit der Bezeichnung "heut" in eine Fo...
09.12.2008 08:53:21
Thread-ID: 1031245
3 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
29
5
6
11
2
1
2
12
2
4
3
3
1
8
2
3
2
8
7
4
2
3
3
5
1