Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code Zeile für Zeile durchlaufen

Forumthread: Code Zeile für Zeile durchlaufen

Code Zeile für Zeile durchlaufen
23.07.2020 11:08:04
Eisi
Hallo zusammen,
ich brauche bitte eure Hilfe.
Ab der Zelle B5 möchte ich einen Code bis zur letzten befüllten Zeile durchlaufen lassen.
Ich habe mir etwas zusammen gebastelt, denke aber, das in der IF-Anweisung die Zelle B5 so nicht passt, damit der Code auch weiterlaufen kann.
Was fehlt hier noch?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LetzteZeile As Long
Dim i As Integer
LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To LetzteZeile
If Not Application.Intersect(Target, Range("B5")) Is Nothing Then
Range("C5") = ""
End If
Next i
End Sub
Vielen Dank für die Hilfe :-)
VG Eisi :-)
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code Zeile für Zeile durchlaufen
23.07.2020 11:33:59
onur
Es war bestimmt nicht deine Absicht, dass:
1) Der Code bei JEDER Änderung irgende´einer Zelle des Blattes läuft
2) Dass dein Code in diesem Falle sogar Excel abstürzen lässt
oder ?
Warum hast du dir denn ausgerechnet das Change-Ereignis ausgesucht?
AW: Code Zeile für Zeile durchlaufen
23.07.2020 12:58:11
Eisi
https://www.herber.de/bbs/user/139238.xlsm
Ups, da habe ich wohl zur sehr rumgebastelt. Sorry.
Ich hänge doch mal die Datei an, dann erkennt man mein Anliegen besser.
Im Moment ist es ja so, wenn die Auswahl in B5 nicht zu C5 passt, wird die Zelle C5 auf leer gesetzt.
So möchte ich für jede Zeile das Ganze überprüfen lassen. Wenn die Zelle leer ist, erkennt der User besser was neu ausgewählt werden muss.
Anzeige
AW: Code Zeile für Zeile durchlaufen
23.07.2020 14:11:13
Eisi
Lieber onur,
vielen Dank für Deine Hilfe. Die Lösung führt ans Ziel, wobei ich lieber ohne Button das umsetzen möchte.
Darum habe ich mich für den Code von peterk entschieden. Trotzdem herzlichen Dank für Deine Hilfe.
LG Eisi :-)
Anzeige
AW: Code Zeile für Zeile durchlaufen
23.07.2020 13:50:56
peterk
Hallo

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myNamedRange As String
If Not Application.Intersect(Target, Range("B5:B1000")) Is Nothing Then
myNamedRange = Target.Text
If IsError(Application.Match(Target.Offset(0, 1).Value, _
Worksheets("Produkte_Quelle").ListObjects(myNamedRange).DataBodyRange, 0)) Then
Target.Offset(0, 1).Value = ""
End If
End If
End Sub

Anzeige
AW: Code Zeile für Zeile durchlaufen
23.07.2020 14:07:54
Eisi
Hallo lieber peterk,
das ist die Code der genial funktioniert. Den hätte ich noch nicht mal im Ansatz umsetzen können.
Darum, vielen herzlichen Dank. Sehr hilfreich.
LG Eisi :-)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige