Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppeltes Datum nur in Spalte A und B löschen

Doppeltes Datum nur in Spalte A und B löschen
Maris
Hi leibe VBA Cracks,
ich habe eine Tabelle die aus mehreren Spalten besteht mit meheren Werten... In Spalte A sind Datumswerte angegeben und in Spalte B ein Wert. Ich suche ein Makro das immer den ersten DAtumswert aus Spalte A löscht und den dazugehörigen Wert in Spalte B. Die zeilen sollen dann nach oben verschoben werden, sodass keine leerzeien entstehen. Anbei das Beispielsfile:
Danke und Gruß
Maris
https://www.herber.de/bbs/user/70543.xls
AW: Doppeltes Datum nur in Spalte A und B löschen
12.07.2010 08:41:04
Beverly
Hi Maris, 
Sub Loeschen()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = 122 To 2 Step -2
Range(Cells(lngZeile, 1), Cells(lngZeile, 2)).Delete
Next lngZeile
Application.ScreenUpdating = True
End Sub


AW: Doppeltes Datum nur in Spalte A und B löschen
12.07.2010 09:19:38
Maris
Hi Karin,
vielen Dank für deinen Code er funktioniert auch soweit, jedoch löscht er immer den zweiten Wert und vergleich nicht das Datum, wenn ich diesen Code mehrmal ausführe werden mir immer die 2ten Zeilen glöscht... Da diese Tabelle fortlaufend ist hänge ich immer die neusten Werte unten an. Die Prüfung sollte nach Möglichkeit ab Zeile 5 beginnen und sich nur auf Spalte A und B beim löschen beziehen. Trotzdem herzlichen Dank für deine Hilfe :-)!!!!
Gruß
Maris
Anzeige
AW: Doppeltes Datum nur in Spalte A und B löschen
12.07.2010 10:19:18
Beverly
Hi Maris,
mein Code macht genau das was du in deinem ersten Beitrag geschrieben hast und was man aus der hochlgeladenen Arbeitsmappe interpretieren musste: es wird ab Zeile 122 aufwärts bis Zeile 2 jeweils der 1. der doppelten Werte in den Spalten A und B, und nur in diesen beiden Spalten! gelöscht und die Zellen nach oben verschoben.
Deine jetzige Aufgabenstellung ist eine andere, denn in deinem Beitrag stand nicht, dass du den Code mehrfach ausführen willst und dass die Tabelle fortgeführt werden soll. Es stand auch nicht, dass der Code erst ab Zeile 5 ausgeführt werden soll. Man kann eine Antwort immer nur so genau schreiben wie die Frage formuliert ist.
Stehen die Datumswerte immer unmittelbar untereinander?

Anzeige
AW: Doppeltes Datum nur in Spalte A und B löschen
12.07.2010 10:27:37
Maris
Da geb ich dir recht... bin ja auch sehr dankbar für deine Hilfe. Hätte mich präzisier ausdrücken sollen ;-). Vielen Dank also nochmals! Genau die Datumswerte stehen immer untereinander.
Gruß,
Maris
AW: Doppeltes Datum nur in Spalte A und B löschen
12.07.2010 10:40:07
Beverly
Hi Maris, 
Sub DoppelteLoeschen()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) To 5 Step -1
If DateValue(Cells(lngZeile, 1)) = DateValue(Cells(lngZeile - 1, 1)) Then Range(Cells( _
lngZeile - 1, 1), Cells(lngZeile - 1, 2)).Delete
Next lngZeile
Application.ScreenUpdating = True
End Sub


Anzeige
AW: Doppeltes Datum nur in Spalte A und B löschen
12.07.2010 12:55:17
Maris
So Code funtioniert nun wunderbar :-D!!! Es kommt aber die Fehlermeldung "Laufzeitfehler 13" Typenunverträglich... ? Ein Ahnung warum?
AW: Doppeltes Datum nur in Spalte A und B löschen
12.07.2010 13:22:06
Beverly
Hi Maris,
Zitat Maris: Ein Ahnung warum?
Antwort: nein, denn bei mir (in deiner hochgeladenen Arbeitsmappe) kommt kein Fehler.

304 Forumthreads zu ähnlichen Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Anzeige
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Ergebnis auslesen und in andere Spalte übertragen
Alex

Hallo,
Kann mir jemand bei folgendem Problem helfen:
Ich habe drei Spalten A, B, C.
In Spalte A steht in wenigen Zellen etwas drin und sehr viele Zellen sind leer. In Spalte B wird die Anzahl leerer Zellen der Spalte A gezählt und jedes Mal wenn in A etwas drin steht, beginnt er mit...
17.03.2009 08:16:28
Thread-ID: 1060992
5 Beiträge
Spalte A und E aus allen Blätern zusammenkopieren
Mindjogger

Servus,
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils die Spalte A und E in eine neue Excel Datei auf ein Sheet kopieren.
Oder noch genauer:
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils ein Schlüsselwort (unique) als...
26.03.2009 17:01:20
Thread-ID: 1064329
4 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 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
12
5
5
4
12
4
4
3
2
5
8
1
2
1
4
1
5
3
2
6
5
3
4
20
5