Ich habe ein Problem beim Vergleich von 2 Spalten und weiß nicht, wie ich das elegant lösen kann.
Ich prüfe, ob eine Fragennummer bereits in dem anderen Tabellenblatt vorkommt - nun habe ich aber das Problem, dass z.B. die Frage "5.10" schon da ist und somit die Frage "5.1" nicht mehr kopiert wird:
Option Explicit
Sub Zusammenfassung()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim Flag As Long
Dim Frage_Nr As Long
Dim Erste_Frage As Long
Dim iZeile As Long
Dim tempZeile As Long
Dim Frage_Nr_ZF As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
Flag = Range("Flag").Column
Frage_Nr = Range("Frage_Nr").Column
Erste_Frage = Range("Erste_Frage").Row
Frage_Nr_ZF = Range("Frage_Nr_ZF").Column
For iZeile = WS1.Cells(WS1.Rows.Count, Flag).End(xlUp).Row To Erste_Frage Step -1
If WorksheetFunction.CountIf(WS2.Columns(Frage_Nr_ZF), WS1.Cells(iZeile, Frage_Nr)) = 0 And _
_
WS1.Cells(iZeile, Flag) = "x" Then
If tempZeile = 0 Then
tempZeile = 3
Else
tempZeile = tempZeile + 1
End If
WS2.Cells(tempZeile, Frage_Nr_ZF) = WS1.Cells(iZeile, Frage_Nr)
WS2.Cells(tempZeile, Frage_Nr_ZF + 1) = WS1.Cells(iZeile, Frage_Nr + 1)
End If
Next iZeile
End Sub
Wäre super, wenn mir jemand einen Tipp geben könnte, denn ich will nicht die Fragen mit "5.01, 5.02, ..." durchnummerieren müssen...
Anbei auch noch das Testfile: https://www.herber.de/bbs/user/130923.xlsm
Danke!
Lg,
Chrisi