Änderung an Makro das zufällige Zelle auswählt
31.01.2013 09:59:19
Christian
unten stehendes Makro markiert eine zufällige schwarze Zelle im Bereich E:Z meiner Tabelle. Da steht soviel drin, was theoretisch den Bereich E:Z deklarieren könnte, daher bitte ich euch für mich den Bereich in F:Z zu ändern, ich habe Angst das Ganze kaputtzumachen, wenn ichs selbst versuche, hab doch so gut wie keine Ahnung von VBA.
Den unteren Teil hab ich ja bereits in F:Z geändert wie ihr seht.
Gruß und vielen Dank
Christian
Public Sub Test()
' Makro1 Makro
' Tastenkombination: Strg+y
Dim objRange As Range
Dim lngRow As Long, lngColumn As Long
Randomize
With Application.FindFormat
.Clear
.Font.Color = vbBlack
End With
lngRow = Int((ActiveSheet.UsedRange.Rows.Count - 1 + 1) * Rnd + 1)
lngColumn = Int((26 - 5 + 1) * Rnd + 5)
Set objRange = Range(Cells(1, 5), Cells(Rows.Count, 26)).Find( _
What:="*", After:=Cells(lngRow, lngColumn), LookIn:=xlValues, _
LookAt:=xlPart, SearchFormat:=True)
objRange.Select
Dim lngAnzahl As Long, rngZelle As Range
lngAnzahl = 0
If Intersect(Sheets(Sheets.Count).Range("F1:Z10000"), Sheets(Sheets.Count).UsedRange) Is _
Nothing Then Exit Sub
For Each rngZelle In Intersect(Sheets(Sheets.Count).Range("F1:Z10000"), Sheets(Sheets.Count). _
UsedRange)
If rngZelle.Font.ColorIndex = 3 Then lngAnzahl = lngAnzahl + 1
Next rngZelle
Sheets("alle").Cells(1, 4).Value = lngAnzahl
End Sub