Sub Schleife()
DataCheckWS.Cells(Rows.Count, 1).End(xlUp).Select
NumOfRow = ActiveCell.Row
Set rngBereich = DataCheckWS.Range("A20:A" & NumOfRow)
For Each rngmyCell In rngBereich
rngmyCell.Select
strCountry = rngmyCell.Value
Do While rngmyCell.Value = strCountry
rngmyCell.Offset(0, 3) = strCountry 'das war nur zum testen!
Loop
Next rngmyCell
Set rngBereich = Nothing
DataCheckWB.Close , False
Set rngBereich = Nothing
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim p As Long
'Dim sh As Worksheet
On Error GoTo Fehlerbearbeitung
If Sh.Name = "MDAX" Then
If bolCalculate = False Then
bolCalculate = True
Application.ScreenUpdating = False
Application.EnabelEvents = False
For p = 3 To 60
If Sh.Cells(p, 8) = 1 Then
Sh.Cells(p, 8).EntireRow.Hidden = False
Else
Sh.Cells(p, 8).EntireRow.Hidden = True
End If
Next p
Application.EnableEvents = True
Application.ScreenUpdating = True
bolCalculate = False
End If
End If
Exit Sub
Fehlerbearbeitung:
Application.EnableEvents = True
Application.ScreenUpdating = True
bolCalculate = False
End Sub
Option Explicit
Sub Schleife()
dim wks as worksheet
dim rng as Range
dim Zelle as Range
Dim loLetzte as long
dim loCount as long
dim strCountry as string
set wks=worksheets("DataCheckWS") 'Name Deiner Tabelle einsetzen
loletzte=wks.Cells(Rows.Count, 1).End(xlUp).row
set rng=wks.Range("A20:A" & loletzte)
for each zelle in rng
select case Zelle
case "GB"
zelle.offset(0,3)="GB"
Case "AT"
Zelle.offset(0,4)="Nein"
case else
end select
Next
end sub