Sub SucheNachInhalten()
Dim lngZeile As Long
Dim lngSpalteMax As Long
Dim lngZeileMax As Long
Dim lngSpalte As Long
Dim lngZeileMax2 As Long
Dim VarDat As Variant
Dim i As Integer
Dim sQuellSpalte As String
Dim sZielSpalte As String
Dim lngQuellZeile As Long
Dim lngQuellSpalte As Long
Dim lngZielZeile As Long
Dim lngZielSpalte As Long
With Tabelle1
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
lngSpalteMax = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
lngZeileMax2 = Sheets("Tabelle2").Range("A" & .Rows.Count).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
VarDat = Sheets("Tabelle2").Range("A2:A" & lngZeileMax2)
For i = 1 To UBound(VarDat)
If .Range("A" & lngZeile).Value = VarDat(i, 1) And .Range("B" & lngZeile).Value = "WV" Then
For lngSpalte = 2 To (lngSpalteMax - 1)
lngQuellZeile = lngZeile
lngQuellSpalte = lngSpalte
lngZielZeile = i + 1
lngZielSpalte = lngQuellSpalte - 1
sQuellSpalte = Chr(lngQuellSpalte + 65)
sZielSpalte = Chr(lngZielSpalte + 65)
Sheets("Tabelle2").Range(sZielSpalte & lngZielZeile) = .Range(sQuellSpalte & lngQuellZeile)
Next lngSpalte
End If
If .Range("A" & lngZeile).Value = VarDat(i, 1) And .Range("B" & lngZeile).Value = "STWV" Then
For lngSpalte = 2 To (lngSpalteMax - 1)
lngQuellZeile = lngZeile
lngQuellSpalte = lngSpalte
lngZielZeile = i + 1
lngZielSpalte = lngQuellSpalte - 1 + (lngSpalteMax - 13)
sQuellSpalte = Chr(lngQuellSpalte + 65)
sZielSpalte = Chr(lngZielSpalte + 65)
If sZielSpalte > "Y" Then
Exit For
End If
Sheets("Tabelle2").Range(sZielSpalte & lngZielZeile) = .Range(sQuellSpalte & lngQuellZeile)
Next lngSpalte
End If
Next i
Next lngZeile
End With
End Sub