Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrfache Zellinhalte in einer Spalte löschen

mehrfache Zellinhalte in einer Spalte löschen
10.08.2005 18:20:10
Rudi
Hallo zusammen,
ich bekomme aus einem Belegungsprogramm eine Tabelle in der in der Spalte A Wochentage, in Spalte B das Datum und Spalte C und D Anfangszeit und Endzeit stehen. Leider werden der Wochentag und das Datum mit jeder Belegungszeit angezeigt.
Tag Datum von bis
Dienstag 16.08.2005 08:15 09:30
Dienstag 16.08.2005 09:45 10:45
Dienstag 16.08.2005 11:45 13:00
Mittwoch 15.08.2005 08:15 09:30
Mittwoch 15.08.2005 09:45 10:45
Mittwoch 15.08.2005 11:15 12:30
Wie kann ich es mit VBA schaffen, dass in Spalte A nur einmal der Tag und in Spalte B nur einmal das Datum angezeigt wird? Für eure Hilfe wäre ich sehr dankbar.
Bis bald,
Rudi

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

Betreff
Datum
Anwender
Anzeige
AW: mehrfache Zellinhalte in einer Spalte löschen
10.08.2005 19:22:51
Reinhard
Hi Rudi,
Alt+F11, Einfügen Modul, Code reinkopieren , Editor schliessen, Extras--makro--tt()...

Sub tt()
Dim n As Long
For n = 2 To Range("A65536").End(xlUp).Row
If Cells(n, 1) = Cells(n - 1, 1) Then Range(Cells(n, 1), Cells(n, 2)).ClearContents
Next n
End Sub

Gruß
Reinhard
AW: mehrfache Zellinhalte in einer Spalte löschen
10.08.2005 19:48:34
ransi
hallo reinhard
hast du mal getestet?
ransi
AW: mehrfache Zellinhalte in einer Spalte löschen
11.08.2005 01:53:28
Rudi
Hallo Ransi,
auch dir vielen Dank!
Rudi
Klar habe ich getestet, jetzt :-)
10.08.2005 22:08:54
Reinhard
Hi Rudi,
so klappst besser:

Sub tt()
Dim n As Long, zei As Long
zei = 1
For n = 2 To Range("A65536").End(xlUp).Row
While Cells(n, 1) = Cells(zei, 1)
Range(Cells(n, 1), Cells(n, 2)).ClearContents
n = n + 1
Wend
zei = n
Next n
End Sub


Gruß
Reinhard
Anzeige
AW: Klar habe ich getestet, jetzt :-)
11.08.2005 01:49:37
Rudi
Hallo Reinhard,
vielen Dank für die schnelle Hilfe!!
Rudi

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige