Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
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
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nachbarzellen Inhalt löschen

Nachbarzellen Inhalt löschen
27.11.2019 08:55:54
Michael Handtke

Hallo Zusammen,
Heute benötige ich Eure Hilfe bei folgendem problem ( für mich als Anfänger)
Ich habe ein VBA Makro, welches den Inhalt einer bestimmten Zelle "J17" löscht,
wenn man den Buchstaben F in einer daneben stehenden Zelle "I17" eingibt.
-------------------------------------------------------------------------------------------------------- 

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I17").Value = "F" Then Range("J17").Value = ""
End Sub

------------------------------------------------------------------------------------------------------------
Dieses funktioniert auch super, jedoch nur für Zeile 17, aber ich möchte das dieses Makro bis Zeile 300 läuft.
Vielleicht kann da jemand mich unterstützen und mein Makro so abändern das es alle Zeilen bis 300 kontrolliert
und bei Eingabe eines F die nachbarzelle leert.
Vielen Dank für Eure Unterstützung im voraus ;-)
Micha

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nachbarzellen Inhalt löschen
27.11.2019 09:00:57
Torsten
Hallo Micha,
so: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
For i = 17 To 300
If Range("I" & i).value = "F" Then Range("J" & i).value = ""
Next
End Sub

Gruss Torsten
AW: Nachbarzellen Inhalt löschen
27.11.2019 09:07:16
Torsten
oder so: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I17:I300")) Is Nothing Then
If Target = "F" Then
Target.Offset(0, 1) = ""
End If
End If
End Sub

AW: Nachbarzellen Inhalt löschen
27.11.2019 09:22:55
Michael Handtke
Hallo Torsten,
rechtherzlichen Dank für deine schnelle Hilfe. Dein zweiter Code hat super geklappt.Bin Happy
und komme nun auch weiter.
Micha
Anzeige
AW: Nachbarzellen Inhalt löschen
27.11.2019 09:09:52
hary
Moin 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("I17:i300")) Is Nothing Then'--Aenderung in Range
If Target = "F" Then Target.Offset(, 1) = ""
End If
End Sub

gruss hary
AW: Nachbarzellen Inhalt löschen
27.11.2019 09:10:15
Hajo_Zi
Hallo Micha,
Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("I17:I300")          ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
Application.EnableEvents = False            ' Reaktion Eingabe aus
For Each RaZelle In RaBereich
If UCase(RaZelle) = "F" Then
RaZelle.Offset.ClearContents
End If
Next RaZelle
Application.EnableEvents = True             ' Reaktion Eingabe ein
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub
Diser Code hat den Vorteil er wird nbur komplette durchlaufen, wenn Zelle im Bereich und nur für die Zellen die geändert wurden.

Anzeige
AW: Nachbarzellen Inhalt löschen
27.11.2019 10:01:24
Torsten
Hallo Hajo,
mein zweiter code hat die selben Vorteile und ist zudem noch viel kuerzer: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I17:I300")) Is Nothing Then
If Target = "F" Then
Target.Offset(0, 1) = ""
End If
End If
End Sub

AW: Nachbarzellen Inhalt löschen
27.11.2019 10:29:21
Hajo_Zi
ja er hat aber den Nachteil falls I:17:I25 mit einmal ausgefüllt wird was Excel ja zulässt, kommt ein Fehler.
Aber mit diesem Fehler im Code kannst Du ja Leben.
Gruß Hajo

Anzeige

303 Forumthreads zu ähnlichen Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
5 Beiträge

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
3
2
4
2
8
4
5
9
5
4
6
20
12
1
6
2
6
1
4
2
1
11
7
15
3