Gruppe
Feature
Problem
Negative Zahlen in Spalte A sollen ausgeblendet werden.
StandardModule: Modul1
Sub GetValues()
Dim iWks As Integer, iRow As Integer, iRowT As Integer
Dim sName As String, sSName As String
sName = Range("F1").Value
sSName = Range("F2").Value
For iWks = ActiveSheet.Index + 1 To Worksheets.Count
iRow = 1
With Worksheets(iWks)
Do Until IsEmpty(.Cells(iRow, 1))
If .Cells(iRow, 1).Value = sName And .Cells(iRow, 2).Value = sSName Then
iRowT = iRowT + 1
Cells(iRowT, 1).Value = .Cells(iRow, 3).Value
Cells(iRowT, 2).Value = .Name
Cells(iRowT, 3).Value = .Cells(iRow, 1).Address(False, False)
End If
iRow = iRow + 1
Loop
End With
Next iWks
End Sub