VBA - Zellinhalt löschen,wenn in einer Zelle ein Datum steht :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

VBA - Zellinhalt löschen,wenn in einer Zelle ein Datum steht

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Mightymagic
Newbie
Newbie

Anmeldedatum: 06.10.2008
Beiträge: 3

Verfasst am: 06.10.2008, 22:06

Hallo,

ich habe eine Tabelle mit 10 Spalten. In Spalte 7 kann ein Datum geschrieben werden, oder dies kann leer sein. Wenn es leer ist, ist in Spalte 8 manuell das Wort "wartet" ausgefüllt worden. Wenn in Spalte 7 nun ein Datum geschrieben wird, soll das Wort "wartet", sprich der Zellinhalt, gelöscht werden. Dies soll aber ausschliesslich geschehen, wenn dieses Wort "wartet" in der Zelle steht, und nicht wenn ein anderes Wort, eine Zahl o.ä. darin ist.

Könnte mir jmd sagen wie ich das mittels VBA für meine Tabelle bewerkstelligen kann?! Ich möchte keine Formel oder so haben, da ich da die Sorge habe, dass mir diese jmd unbeabsichtigt überschreibt.

Danke.

Mightymagic

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 07.10.2008, 08:18

Hallo!

z.B so.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
Set bereich = Range("G1:G100")
For Each i In bereich
If IsDate(i.Value) And i.Offset(0, 1).Value = "Wartet" Then
i.Offset(0, 1).Value = ""
End If
Next i
End Sub

Dieser Code Überprüft wo in dem Bereich G1:G100 ein Datum steht. Sollte eine Spalte weiter rechts auch wartet stehen wird dieser Inhalt gelöscht.

_________________
_____________

Gruß Manuel

Mightymagic
Newbie
Newbie

Anmeldedatum: 06.10.2008
Beiträge: 3

Verfasst am: 07.10.2008, 12:50

Danke klappt wunderbar.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Bei Änderung Datum automatisch einfügen	annewill1234	Microsoft Excel Hilfe	0	19.11.2008, 17:26
	Bitte um Hilfe mit wenn dann Formel.	NeXi	Microsoft Excel Hilfe	2	19.11.2008, 15:55
	komplette Zeile ausblenden, wenn Tabe...	enzo	Microsoft Excel Hilfe	3	18.11.2008, 12:17
	Sehr komplexes Thema!! Verknüpfung d...	wowa	Microsoft Excel Hilfe	1	14.11.2008, 10:12
	[Access 2000]Datenbankeinträge löschen	Franzose	Microsoft Access Hilfe	2	14.11.2008, 09:13

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de