Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

check mehrere Spalten

Forumthread: check mehrere Spalten

check mehrere Spalten
03.09.2018 10:15:11
Torsten
Hallo zusammen,
mit folgendem Code checke ich in Spalte G im Suchfile, ob eine Veraenderung vorliegt. Wenn ja soll die komplette Zeile von Spalte B bis BO kopiert und im Zielfile die entsprechende Zeile mit diesen Daten ueberschrieben werden. 

If ThisWorkbook.Sheets(WS).Cells(rowTarget, 7).Value  Workbooks(aktWB).Sheets(WS).Cells( _
rowSource, 7).Value Then
Workbooks(aktWB).Sheets(WS).Range("B" & rowSource & ":BO" & rowSource).Copy  _
ThisWorkbook.Sheets(WS).Range("B" & rowTarget)
End If

So weit so gut. Funktioniert.
Wie waere es jetzt moeglich, nicht nur in Spalte G auf Aenderung zu ueberpruefen, sondern in mehreren Spalten?
In meinem Fall in Spalte G - I, K sowie O - BO.
Muss ich hier den Code fuer jede Spalte einfuegen?
Vielen Dank fuer eure Hilfe.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: check mehrere Spalten
03.09.2018 16:02:16
Dieter
Hallo Thorsten,
das könnte folgendermaßen aussehen:
  Dim abweichung As Boolean
Dim spalte As Long
Dim wsS As Worksheet
Dim wsT As Worksheet
Set wsT = ThisWorkbook.Sheets(WS)     ' Target
Set wsS = Workbooks(aktWB).Sheets(WS) ' Source
abweichung = False
For spalte = 7 To 9  ' G - I
If wsT.Cells(rowTarget, spalte)  wsS.Cells(rowSource, spalte) Then
abweichung = True
Exit For
End If
Next spalte
If Not abweichung Then
If wsT.Cells(rowTarget, "K")  wsS.Cells(rowSource, "K") Then
abweichung = True
End If
If Not abweichung Then
For spalte = 15 To 67  ' O - BO
If wsT.Cells(rowTarget, spalte)  wsS.Cells(rowSource, spalte) Then
abweichung = True
Exit For
End If
Next spalte
End If
End If
If abweichung Then
wsS.Cells(rowSource, "B").Resize(1, 66).Copy Destination:=wsT.Cells(rowTarget, "B")
End If
Viele Grüße
Dieter
Anzeige
AW: check mehrere Spalten
04.09.2018 15:25:29
Torsten
Hallo Dieter,
vielen Dank. Werde ich testen.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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