Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Problem - Datum wird umgestellt

Forumthread: VBA Problem - Datum wird umgestellt

VBA Problem - Datum wird umgestellt
03.06.2005 09:18:58
Matthias
Hallo Leute,
ich habe ein Marko um Daten aus mehreren Tabellenblätter in ein Hilfstabelle ("Zusammenfassung") zu schreiben:

Sub Zusammenfassung()
a = 1
For i = 2 To ActiveWorkbook.Sheets.Count
For j = 1 To ActiveWorkbook.Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.Sheets("Zusammenfassung").Rows(a).Value = _
ActiveWorkbook.Sheets(i).Rows(j).Value
a = a + 1
Next j
Next i
End Sub

Allerdings sind im Tabellenblatt Zusammenfassung die Datumswerte verändert (Monat und Tag vertauscht): aus 03.06.2005 wird z.B 06.03.2005! Auch die Zahl, die sich hinter einem Datumswert verbirgt ist eine andere!
Wie kann ich das lösen?
Danke,
Matthias
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Problem - Datum wird umgestellt
03.06.2005 10:51:25
GerdZ
Hallo Matthias,
versuchs mal mit kopieren und einfügen:

Sub Zusammenfassung()
a = 1
For i = 2 To ActiveWorkbook.Sheets.Count
For j = 1 To ActiveWorkbook.Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.Sheets(i).Rows(j).Copy
ActiveWorkbook.Sheets("Zusammenfassung").Rows(a).EntireRow.Insert
a = a + 1
Next j
Next i
End Sub

Gruß
Gerd
Anzeige
AW: VBA Problem - Datum wird umgestellt
03.06.2005 11:57:14
Matthias
O.k. danke, das mit den Datumswerten klappt jetzt!
Allerdings bleiben im Tabellenblatt Zusammenfassung auch die alten Werte (von der letzten, vorletzten usw. Ausführung des Markos) enthalten!
a) Wie kann ich das ändern! Gibt es einen Befehl den ich am Anfang dieser Funktion setzten kann der erstmal alle Werte im Tabellenbatt Zusammenfassung löscht?
b) Außerdem wäre es praktisch wenn das Marko immer beim Auswählen des Tabellenblattes automatisch ausgeführt wird! Wie müsste man das machen?
Danke!
Matthias
Anzeige
AW: VBA Problem - Datum wird umgestellt
03.06.2005 12:17:55
GerdZ
Hallo Matthias,
zu a)
ActiveWorkbook.Sheets("Zusammenfassung").Cells.Clear
ActiveWorkbook.Sheets("Zusammenfassung").UsedRange
Die erste Zeile löscht den kompletten Tabelleninhalt, die zweite passt den benutzten Bereich an.
zu b)
Im Tabellenblattmodul der Tabelle "Zusammenfassung" kannst Du das Activate-Ereignis benutzen:

Private Sub Worksheet_Activate()
Call Zusammenfassung
End Sub

Hier wird das Makro Zusammenfassung bei jeder Auswahl des Blattes aufgerufen.
Gruß
Gerd
Anzeige
AW: VBA Problem - Datum wird umgestellt
03.06.2005 12:56:38
Matthias
Danke - super!
zu b) Und wenn die Funktion beim Auswählen eines anderen Tabellenblattes ausgeführt werden soll, wie wird das gemacht?
Danke,
Matthias
AW: VBA Problem - Datum wird umgestellt
03.06.2005 13:44:35
GerdZ
Hallo Matthias,
jedes Tabellenblatt hat sein eigenes Modul mit seinen eigenen Ereignisprozeduren.
Du müßtest die Activate-Prozedur im entsprechenden Tabellenblattmodul eingeben.
Gruß
Gerd
Anzeige
;

Forumthreads zu verwandten Themen

prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Anzeige
Abfrage, ob Array mind. einen Wert enthält
Martin

Hallo liebe Excelfreunde,
Gibt es eine einfache Möglichkeit abzufragen, ob ein Array leer ist oder bereits mindestens einen Wert enthält?
Viele Grüße
Martin
17.10.2010 16:14:50
Thread-ID: 1182791
3 Beiträge
Prüfen ob erste Zahl im Textbox eine 0
urmila

Hallo zusammen,
ich bitte um eure Hilfe.
Es soll in einer TextBox geprüft werden, ob die erste Zahl eine Null (0) ist, wenn nein, soll eine 0 und dann die restlichen Zahle eingefügt werden.
z.B gebe ich eine "7" ein, so soll automatisch die 0 hinzugefügt werden....also dann "07"
...
11.11.2010 13:39:15
Thread-ID: 1186288
4 Beiträge
Prüfen ob in Zelle "/"
Andreas

Hallo zusammen,
ich habe in einer Zelle zB. 1/grün/Apfel zu stehen und teile ihn per Splitfunktion in die einzelnen Arrayteile auf und schreibe sie in eine neue Tabelle. Das funktioniert einwandfrei. Allerdings könnte auch der Fall eintreten: 1 grün Apfel. an dieser Stelle soll mit mein Mak...
31.05.2013 17:53:21
Thread-ID: 1315767
4 Beiträge
Wenn Zelle 'NV' enthält, dann führe Befehl nochmal
Peter

Hallo zusammen,
nächster Schritt.
ich lasse meine Daten per Webaktualisierung einlesen.
Nun kann es vorkommen, daß die Daten nicht richtig oder vollständig eingelesen werden. Dann taucht in beispielsweise Zelle s2 ein Fehler "#NV" auf.
Ich möchte nun, daß für diesen Fall, die Da...
08.08.2014 12:31:16
Thread-ID: 1375253
6 Beiträge
Wenn Zelle best. Datum enthält, dann
Excel

Hallo,
bei mir ist ist ein Datum gegeben in Spalte B im Format TT.MM.JJJJ und ich suche eine Formel, die mir das Datum nach Monaten ordnet.
Ein Beispiel wäre:
14.04.2015 Umwandlung in Apr 15.
kann mir da jemand weiterhelfen?
17.03.2015 12:01:31
Thread-ID: 1415446
7 Beiträge
Userform Spalte A prüfen ob Datum der 1 Tag ist
Andi

Hallo,
ich möchter in einer Userform bei speichern der Daten prüfen ob in Splate A "Datum"
der erste eines Monats ist, wenn Ja dan die ganze Zeile fett Formatieren.
Die Zellen sollen bei neuem Datensatz mit Rahmenlinien formatiert werden.
Vielen Dank im voraus
Gruß
Andi<...
03.08.2015 12:09:50
Thread-ID: 1440006
3 Beiträge
Prüfen, ob Autoform bereits in Zelle vorhanden ist
timo_100

Hallo zusammen,
Ich verwende ein Makro, das bei bestimmter Auswahl aus einer Drop-Down-Liste eine Raute in die Zelle hinzufügt. Problem ist bisher jedoch, dass die Raute bei erneuter Makroausführung nochmals eingefügt wird und die bestehende dann überlagert. Hab es dann mal mit "If Nothing"...
08.08.2015 18:19:23
Thread-ID: 1441195
13 Beiträge
Anzeige
Formel prüfen ob Datum heute & Bereich nicht leer
Chris

Hallo Mitglieder,
ich habe ein Excel Sheet in dem in der Zeile 2 die Datumswerte für dieses Jahr stehen. In der Zeile 3 ist vermerkt ob man im Urlaub ist. Ist es möglich anhand einer Formel eine Prüfung durchzuführen ob im heutigen Datum ein Wert vermerkt ist? Wenn ja wie müsste die Formel...
18.01.2016 06:53:51
Thread-ID: 1469444
4 Beiträge
Wie kann ich in VBA prüfen ob eine Zelle ein ListO
Lukas

Hi, wie kann ich in VBA prüfen, ob eine Zelle ein Listobject ist oder nicht? Danke für die Antworten schon im Voraus!
14.05.2016 15:55:28
Thread-ID: 1493315
8 Beiträge
Prüfen, ob Datei bestimmtes Datum enthält
Vic

Hallo zusammen!
Ich möchte prüfen, ob das aktuelle Verzeichnis eine Datei enthält, deren Dateinamen mit dem Datum aus A2 beginnt. Mein bisheriger Versuch mit:
Sub Vorhanden_Datei() Dim p, n As String p = ActiveWorkbook.Path n = ActiveWorkbook.Name nd = Left(n, 8) If Dir(p & "\" &...
30.05.2016 14:47:47
Thread-ID: 1495933
3 Beiträge
Anzeige
prüfen ob Datum in Bereich vorhanden
Peter

Hallo guten Morgen Ihr Excelspezialisten,
von einem Kollegen von Euch habe ich folgenden Code erhalten bezüglich Datum:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row >= 4 And Target.Row Application.RoundUp(Month( _ _ Target) / 3, 0) Then App...
06.01.2017 09:10:37
Thread-ID: 1533427
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige