Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1640to1644
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
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige