alle Zellen einer Spaltenrange auslesen
24.02.2005 11:00:13
Henni
1. Der Benutzer meiner Fkt. übergibt eine Range der Form : Sheet1!H:H und Sheet2!I:I, also zwei komplette Spalten
2. Wie kriege ich es hin, das ich nun durch alle Zellen dieser jeweiligen Spalte iterieren kann, sprich von 1...n, es soll nur ein Sheetname wo Daten stehen und eben die Spalte in der Range angegeben werden, aber es tut nicht
Wie könnte ich das machen das er dann durch alle Zellen einer Spalte durchläuft und ich die jeweiligen Werte abfragen kann?
Function MyCounter(firstcolumn As Range, firstpattern As String, secondcolumn As Range, secondpattern As String) As Integer
'firstcolumn : range of first column
'secondcolumn : second column to compare
'firstpattern : first text pattern for first column
'secondpattern : second text pattern for second column
'counting number of matching cells
Dim counter As Integer
'number of rows
Dim rows As Integer
'init counter
counter = 0
'init number of selected rows
rows = firstcolumn.rows.Count
For i = 0 To rows
If (firstcolumn.Item(i).Value Like firstpattern) And _
(secondcolumn.Item(i).Value Like secondpattern) Then
counter = counter + 1
End If
Next i
'return counted result
MyCounter = counter
End Function
Anzeige