Hallo liebe User
kurze Frage:
Sub x()
ActiveSheet.Range("T:AU").ClearContents
Dim wsDst As Worksheet ' Die Zieltabelle
Dim wsSrc As Worksheet ' Die Quelltabelle
Dim i As Long ' Zeilennummer in der Quelle
Dim j As Long ' Zeilennummer im Ziel
Dim varItem As Variant ' Laufvariable über Array mit Tabellennamen
Dim strSearch As String ' die zu suchende Kategorie
strSearch = Cells(1, 5).Value
strSearch = LCase(Trim(strSearch))
If Len(strSearch) = 0 Then Exit Sub
Set wsDst = Worksheets("Auswertung_Event")
Set wsSrc = Worksheets("BasisDaten")
intSpalten = wsSrc.Cells.SpecialCells(xlCellTypeLastCell).Column
For i = 1 To wsSrc.UsedRange.Row + wsSrc.UsedRange.Rows.Count - 1
If LCase(wsSrc.Cells(i, 2).Text) = strSearch Then
j = j + 1
wsSrc.Rows(i).Copy wsDst.Rows(j)
End If
Next
If j = 0 Then MsgBox "Nichts gefunden"
End Sub
funktioniert perfekt. nun möchte ich aber, dass die Zeilen erst in der 20igsten Spalte der Zieltabelle eingefügt werden. Wie kann ich die Spalte definieren?
|