Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VLookup mit Worksheet_Change über 2 Palten

VLookup mit Worksheet_Change über 2 Palten
Paulo
Hallo Freunde,
Brauche mal wieder eure Hilfe.
Ich benutze folgenden Code um auf 2 spalten ( spalte 5 und 7 ) die Eingabe zu kontrollieren wo es dann mit VLookup weitere werte sucht und in die Spalten 1,33 und 32 ) einträgt.
Die Überwachung der Spalte 5 funktioniert einwandfrei nur mit der spalte 7 will er nichts tun.
Wer kann mir weiterhelfen?
Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC As Variant
If Target.Column  5 Or Target.Row  7 Or Target.Row

Danke im voraus
Paulo
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 11:34:34
Rudi
Hallo,
kein Wunder. Du verlässt ja auch die Sub, wenn die Spalte 5 ist.
If Target.Column 5 Or Target.Row 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC As Variant
If Target.Row

Gruß
Rudi
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 12:50:05
Paulo
Danke dir Rudi für die Hilfe,
Ich habe noch ein anderes Problem und zwar in spalte 7
Wenn ich ein wert (spalte 7) eingebe, sucht und findet es auch den wert und fügt es in Spalte 32 ein.
Wenn ich aber den wert in spalte wieder lösche gibt er mir die Fehlermeldung in Spalte 7 "#NV".
Wie kann ich die Fehlermeldung Nicht vorhanden abschalten ?
Danke
Paulo
Anzeige
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 12:58:55
Rudi
Hallo,
dann prüfe ob die Zelle ="" ist 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC
If Target.Row

Gruß
Rudi
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 13:19:22
Paulo
Hallo Rudi,
Es ist schon ganz so,
nur funktioniert es immer nur 100% wenn ich 1 eine Zeile ändere,
wenn ich aber ein wert in der Spalte runterkopiere oder lösche ändert es mir immer nur in der ersten oder bzw die aktive Zelle. Wie kann ich mehrere Zeilen gleichzeitig verarbeiten?
Gruß
Paulo
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 14:29:14
Rudi
Hallo,
Wie kann ich mehrere Zeilen gleichzeitig verarbeiten?
Indem du es tust ;-)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC
Dim rngC As Range
If Target.Row

Anzeige
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 16:48:25
Paulo
Hallo Rudi
Mit der schleife scheint es nicht zu funktionieren. Es ändert den wert beim kopieren oder löschen nicht, erst nach dem erneuten aktivieren der Zelle werden die werte eingetragen.
Aus einen anderen Forum hat man mir gesagt: 
wenn du mehrere Werte z.B. durch Kopieren in den TargetBereich veränderst, kommt du um die  _
verwendung von Formeleingabe m.E. nicht herum
with ....
.formular1c1 = .....
.value =.value
end with
Wie ändere ich den Code um mit dieseralternative?
Gruß
Paulo
AW: VLookup mit Worksheet_Change über 2 Palten
19.11.2011 18:32:42
Paulo
Hallo Rudi,
Habe aus einen anderen Forum diese Variante bekommen die mehrere Zeilen verarbeitet klappt einwandfrei,
nur die Fehlermeldung aus Spalte 7 "#NV" habe ich nicht geschafft einzubauen.
Gruß
Paulo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
If Target.Row = 1 Then
With Range(Cells(Target.Row, Target.Column), Cells(Target.Row + Target.Count - 1,  _
Target.Column))
.Cells.Offset(0, 28).FormulaR1C1 = "=VLOOKUP(rc5,KAT2,2,0)"
.Cells.Offset(0, 28).Value = .Cells.Offset(0, 28).Value
.Cells.Offset(0, -4).FormulaR1C1 = "=VLOOKUP(rc5,KAT2,3,0)"
.Cells.Offset(0, -4).Value = .Cells.Offset(0, -4).Value
End With
Application.EnableEvents = True
End If
Case 7
Set isect = Intersect(Target, Columns(7))
If Not isect Is Nothing And Target.Count >= 1 Then
With Range(Cells(Target.Row, Target.Column), Cells(Target.Row + Target.Count - 1,  _
Target.Column))
.Cells.Offset(0, 25).FormulaR1C1 = "=VLOOKUP(rc7,CODIA,12,0)"
.Cells.Offset(0, 25).Value = .Cells.Offset(0, 25).Value
End With
Application.EnableEvents = True
End If
End Select
ErrorHandler:
Application.EnableEvents = True
End Sub

Anzeige

301 Forumthreads zu ähnlichen Themen

VLOOKUP nicht vorhandene Datei
chrdohmen

Hallo Zusammen,
habe ein kleines Problem beim Erstellen eines VLOOKUP mittels VBA.
Hintergrund: Ich habe in einer Jahresdatei zwölf Spalten Jan. bis Dez.. Jeder Monat soll mittels SVERWEIS auf eine Monatsdatei zugreifen. Den benötigten SVERWEIS habe ich, dieser funktioniert auch einwan...
29.09.2008 08:18:20
Thread-ID: 1013017
2 Beiträge
Anzeige
Vlookup anpassung
Karel

Hallo Forum,
versuchen vergeblich diesese Makro anzupassen, habe ich leztze Woche von Reinhardt erhalten und Funktioniert auch einwandfrei, aber wass muss ich machen wenn Suchwert nicht im Spalte D aber in Spalte E steht. Klick X bleibt im Spalte C
Code:
Option Explicit
Private...
01.11.2008 17:44:09
Thread-ID: 1021046
8 Beiträge
Vlookup
WOP

Hallo alle Zusammen,
ich habe ein Problem mit Vlookup.
In meinem Makro werden die Daten aus allen Worksheet ausgelesen. Falls kein Wert über Vlookup gefunden werden sollte, wird der Wert des vorherigen Excel-Sheets kopiert. (ohne, dass ich dies will)
Noch ein Kleines Bsp.
Suchwe...
01.12.2008 20:47:00
Thread-ID: 1029353
7 Beiträge
Anzeige
vlookup
Timmy

Hallo Freune des Excel-Sports;-)
ich habe folgende Frage!
Ich habe eine Datei mit ca. 40000 Artikelnummern und habe fuer die Beschreibung ein "vlookup" gestartet. Excel holte sich die zugehoerige Artikelbeschreibung dann aus einer Datei in einem anderen Ordner.
Das klappt auch, jedo...
29.01.2009 14:23:39
Thread-ID: 1045014
5 Beiträge
Namen ersetzen und vlookup
Timmy

Liebe Excler,
anbei habe ich eine Datei angehaengt. Diese wird mein Problem verdeutlichen:
https://www.herber.de/bbs/user/59734.xls
Vielen Dank fuer eure Muehen!!
Viele Gruesse
Timmy
24.02.2009 15:46:51
Thread-ID: 1053566
3 Beiträge
Vlookup mit benanntem Bereich
BorisHendrik

Hallo,
ich suche schon den ganzen Morgen für ein Problem, bei dem mir vielleicht / hoffentlich einer von Euch helfen kann.
Es geht um eine Vlookup / SVerweis Formel, als TableArray / Matrix möchte ich eine benannten Bereich verwenden. Also so:
=sverweis(a1; MeinBereich; 2; 0)
Im...
26.02.2009 13:51:31
Thread-ID: 1054369
3 Beiträge
Formel zurueckgeben mit Vlookup
Thomas

Hallo,
ich habe ein kleines Problem mit Vlookup.
Und zwar moechte ich gerne anstelle des Werts in der Zelle die Formel die in der Zelle steht zurueckgeben lassen. Wie ist das moeglich?
Mein aktueller Code sieht so aus:
For Each wks In ActiveWorkbook.Worksheets
If wks.Name =...
23.03.2009 03:37:48
Thread-ID: 1062759
5 Beiträge
VLookup wird nicht erkannt
Werner

VBA-Level: befriedigend
Hallo Freunde,
bei folgender CodeZeile bekomme ich immer eine Fehlermeldung (es soll der Wert in Spalte 5 des
Worksheets "BeispielSheet" ermittelt werden, wenn in Spalte A dessen Wert numerisch "1900"
betraegt.) Excel teilt mit, dass es "VLookUp" nicht ke...
02.04.2009 09:22:02
Thread-ID: 1066196
5 Beiträge
Anzeige

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
1
9
7
6
2
4
2
2
4
4
1
16
16
2
5
2
2
7
3
3
4
5
5
7
2