Das nachstehende Makro habe ich in einem Dokument gefunden. Leider läuft die Abfrage immer über alle, im Dokument angelegten Tabellenblätter. Ich möchte aber, dass die Abfrage nur im aktiven Tabellenblatt stattfindet. Was muss ich, wie anpassen?
Ich danke für die Hilfe.
Gruss Andreas
______________
Sub lernen()
On Error GoTo ende
For i = 1 To Worksheets.Count
Sheets(i).Activate
Columns("B:B").Hidden = True
Next
anzahl = InputBox("Geben Sie die Anzahl der abzufragenden Wörter an !")
r = 0
f = 0
For i = 1 To anzahl
A = zufall
Range(A).Select
deutsch = InputBox("Geben Sie die Übersetzung von '" & Range(A) & "' ein!")
If deutsch = ActiveCell.Offset(0, 1) Then
MsgBox ("Richtig!")
r = r + 1
ElseIf deutsch = "" Then Exit For
Else
MsgBox ("Falsch!, Richtig wäre '" & ActiveCell.Offset(0, 1) & "' gewesen")
f = f + 1
End If
Next
MsgBox ("Sie haben " & r & " richtige und " & f & " falsche Antworten gegeben.")
For i = 1 To Worksheets.Count
Sheets(i).Activate
Columns("A:B").Hidden = False
Next
ende:
For i = 1 To Worksheets.Count
Sheets(i).Activate
Columns("A:B").Hidden = False
Next
Sheets(1).Activate
End Sub