Auswertung von mehreren Spalten
26.10.2018 15:12:27
mehreren
ich benötige ein wenig Hilfe beim Umschreiben des u.a. Makros. Ich möchte den Wert aus Zelle A135 nicht nur in Spalte G suchen, sondern in den Spalten G:BF. Das übersteigt meine Kenntnisse ein wenig!!!
Vielen Dank im Voraus für Eure Hilfe!!!
Sub Reinigung_LA6()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 4
For i = 1 To 300
With Worksheets("Tabelle1")
If .Cells(i, "G") = Worksheets("Tabelle1").Range("A135") Then
Worksheets("Tabelle2").Cells(a, 1).Value = Worksheets("Tabelle1").Cells(i, 2).Value
Worksheets("Tabelle2").Cells(a, 2).Value = Worksheets("Tabelle1").Cells(i, 3).Value
a = a + 1
Else
End If
End With
Next i
Application.ScreenUpdating = True
End Sub
Anzeige