Anzeige
Archiv - Navigation
1252to1256
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
Inhaltsverzeichnis

Zellen löschen wenn im Bereich eintrag gemacht wi

Zellen löschen wenn im Bereich eintrag gemacht wi
Matthias
Nabend @ All,
hier soll nun Im Blatt "Programm" die Zellen c4:c33 gelöscht werden,
wenn im Blatt Eingabe-Verbaut(active Blatt)im RABereich (oben defeniert)
ein "x" eingetragen wird.
müste doch diesen Code nur umbastel, leider weis ich nicht wie, bitte um Hilfe
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                     *
'* 13.10.11                                       *
'* erstellt von HajoZiplies@web.de                *
'* www.Hajo-Excel.de
Dim RaBereich As Range                 ' Variable Bereich
Dim RaZelle As Range                   ' Variable Zelle
Dim lngZ As Long                       ' Zeile der Zelle
' nur die Zellen prüfen die im überwachten Bereich liegen
Set RaBereich = Intersect(Range("H4:I33"), Target)
' falls nicht gefunden wird Sub verlassen
If Not RaBereich Is Nothing Then
' Reaktion auf Zellveränderung abschalten
Application.EnableEvents = False
' Schleife über die geänderten Zellen des überwachten Bereichs
For Each RaZelle In RaBereich
lngZ = RaZelle.Row
' Hier brauche ich den neue Code-schnipsel
' hier soll nun Im Blatt Programm Zellen c4:c33 gelöscht werden,
' wenn hier im Blatt Eingabe-Verbaut(active Blatt)im RABereich (oben defeniert)
' ein "x" eingetragen wird.
End If
Next RaZelle
' Reaktion auf Zellveränderung einschalten
Application.EnableEvents = True
End If
Set RaBereich = Nothing                 ' Variable leeren
End Sub
Gruß Matthias

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen löschen wenn im Bereich eintrag gemacht wi
26.02.2012 21:26:25
fcs
Hallo Mathias,
so sollte as Löschen funktionieren:
      For Each RaZelle In RaBereich
lngz = RaZelle.Row
If LCase(RaZelle.Value) = "x" Then
'in Spalte C (3) Eintrag löschen
Worksheets("Programm").Cells(lngz, 3).ClearContents
End If
Next RaZelle

Gruß
Franz
Leider kein Erfolg ...
26.02.2012 21:44:54
Matthias
Hallo Franz,
das Makro wird abgearbeitet, es wird aber kein Fehler angezeigt.
Im Blatt Programm bleiben die "Werte" in den Zellen stehen.
Noch eine Idee?
Matthias
ERLEDIGT!!! - Excel hat blöd gemacht...
26.02.2012 22:10:22
Matthias
Hallo Franz,
habe die Datei geschlossen und NICHT gespeichert....nach dem erneuten öffnen war "alles" OK.
was auch immer das war?...
THEMA erledigt...DANKE
Gruß Matthias
Anzeige

235 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige