Minesweeper in Excel – Nostalgisches Spielvergnügen für die Arbeitspause

Warum Minesweeper in Excel?

Erinnern Sie sich noch an die guten alten Zeiten, als Windows standardmäßig Minesweeper mitgeliefert hat? Das klassische Spiel war der perfekte Zeitvertreib für kurze Pausen und hat Millionen von Menschen durch langweilige Arbeitsmomente geholfen. Leider gehört Minesweeper nicht mehr zur Windows-Grundausstattung.

In vielen Unternehmen sind zudem Webspiele und Online-Unterhaltung durch Firewalls blockiert. Was bleibt also für eine entspannte 5-Minuten-Pause? Die Antwort ist überraschend einfach: Excel!

Mit ein paar Zeilen VBA-Code können Sie Ihr eigenes, voll funktionsfähiges Minesweeper direkt in Excel erstellen. Das Beste daran: Es funktioniert offline, wird von keiner IT-Abteilung blockiert und ist ein lustiger Zeitvertreib, der nebenbei auch noch Ihre Excel-Kenntnisse erweitert.

Schritt-für-Schritt Anleitung

Keine Sorge – auch wenn Sie noch nie mit VBA (Visual Basic for Applications) oder Makros gearbeitet haben, ist diese Anleitung für absolute Anfänger geschrieben. Folgen Sie einfach den Schritten:

1. Excel vorbereiten

Öffnen Sie Excel und erstellen Sie eine neue, leere Arbeitsmappe
Speichern Sie die Datei als „Minesweeper.xlsm“ (das .xlsm-Format ist wichtig für Makros!)

2. Visual Basic Editor öffnen

Drücken Sie Alt + F11 – dadurch öffnet sich der Visual Basic Editor
Falls das nicht funktioniert, gehen Sie über das Menü: Entwicklertools → Visual Basic
Tipp: Falls Sie die Entwicklertools nicht sehen, aktivieren Sie diese unter Datei → Optionen → Menüband anpassen

3. Board-Arbeitsblatt vorbereiten

Im Visual Basic Editor sehen Sie links im Projekt-Explorer Ihre Arbeitsmappe
Klicken Sie mit der rechten Maustaste auf „Tabelle1“ und wählen Sie „Code anzeigen“
Löschen Sie eventuell vorhandenen Code und fügen Sie folgenden Code ein:

VBA Code – Board Arbeitsblatt

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' Doppelklick = Aufdecken oder Restart
    Cancel = True
    On Error Resume Next
    
    If Not modMinesweeper.GameOver Then
        ' Normales Spiel: Zelle aufdecken
        Call modMinesweeper.RevealCell(Target)
    Else
        ' Spiel beendet: Restart bei Klick auf Status
        If Target.Address = Range("E4").Address Then
            If Range("E4").Value = "Verloren" Or Range("E4").Value = "Gewonnen!" Then
                Call modMinesweeper.NewGame
            End If
        End If
    End If
    
    On Error GoTo 0
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Rechtsklick = Flagge setzen/entfernen
    Cancel = True
    On Error Resume Next
    
    If Not modMinesweeper.GameOver Then
        Call modMinesweeper.ToggleFlag(Target)
    End If
    
    On Error GoTo 0
End Sub

4. Arbeitsblatt umbenennen

Gehen Sie zurück zu Excel (Alt + F11 oder Excel-Symbol in der Taskleiste)
Klicken Sie mit der rechten Maustaste auf den Reiter „Tabelle1“ unten
Wählen Sie „Umbenennen“ und geben Sie „Board“ ein

5. Neues Modul erstellen

Wechseln Sie zurück zum Visual Basic Editor (Alt + F11)
Klicken Sie mit der rechten Maustaste in den Projekt-Explorer auf Ihr Projekt
Wählen Sie Einfügen → Modul
Es erscheint ein neues Modul (meist „Modul1“)

6. Modul umbenennen

Klicken Sie das neue Modul im Projekt-Explorer an
Unten rechts im Eigenschaften-Fenster ändern Sie den Namen von „Modul1“ in „modMinesweeper“
Falls Sie das Eigenschaften-Fenster nicht sehen: Drücken Sie F4

7. Hauptcode einfügen

Doppelklicken Sie auf das „modMinesweeper“-Modul
Löschen Sie eventuell vorhandenen Code und fügen Sie den kompletten Minesweeper-Code ein:

VBA Code – modMinesweeper Modul

Option Explicit

' Globale Einstellungen
Public gRows As Long, gCols As Long, gMines As Long
Public Const BOARD_SHEET As String = "Board"
Public Const SOL_SHEET As String = "Solution"
Public GameOver As Boolean
Public GameStarted As Boolean
Public CoveredCells As Long
Public FlagsPlaced As Long

' Farben und Darstellung
Private Sub StyleBoard(ws As Worksheet, topRow As Long, leftCol As Long, rows As Long, cols As Long)
With ws
.Cells.Clear
.Columns.ColumnWidth = 3
.rows.RowHeight = 18
.Range(.Cells(topRow, leftCol), .Cells(topRow + rows - 1, leftCol + cols - 1)).Interior.Color = RGB(200, 200, 200)
.Range(.Cells(topRow, leftCol), .Cells(topRow + rows - 1, leftCol + cols - 1)).Borders.LineStyle = xlContinuous
.Range(.Cells(1, 1), .Cells(5, leftCol + cols + 5)).Clear
.Range("B2").Value = "Minen:"
.Range("B3").Value = gMines
.Range("E2").Value = "Flaggen:"
.Range("E3").Value = 0
.Range("B4").Value = "Status:"
.Range("E4").Value = "aktiv"
.Range("H2").Value = "Verdeckt:"
.Range("H3").Value = rows * cols
.Range("B2:J4").Font.Bold = True
End With
End Sub

Private Sub EnsureSheets()
Dim ws As Worksheet
Dim nm As String
nm = SOL_SHEET ' "Solution"
' Board sichern/erstellen
On Error Resume Next
Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
On Error GoTo 0
If ws Is Nothing Then
    Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.count))
    ws.Name = BOARD_SHEET
End If
Set ws = Nothing

' Solution sichern/erstellen (robust)
On Error Resume Next
Set ws = ThisWorkbook.Worksheets(nm)
On Error GoTo 0

If ws Is Nothing Then
    ' Falls Name schon belegt/ungültig -> eindeutigen Namen finden
    Dim tryName As String, idx As Long
    tryName = nm
    idx = 1
    Do
        On Error Resume Next
        Set ws = ThisWorkbook.Worksheets(tryName)
        On Error GoTo 0
        If ws Is Nothing Then Exit Do
        idx = idx + 1
        tryName = nm & "_" & idx
    Loop

    Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.count))
    On Error GoTo RenameErr
    ws.Name = tryName
    On Error GoTo 0
End If

' VeryHidden setzen (sicher)
On Error GoTo HideErr
ws.Visible = xlSheetVisible
ws.Visible = xlSheetVeryHidden
On Error GoTo 0
Exit Sub
RenameErr:
MsgBox "Konnte Blatt '" & nm & "' nicht wie gewünscht benennen. Verwendet: '" & ws.Name & "'.", vbExclamation
On Error GoTo 0
Exit Sub

HideErr:
MsgBox "Konnte Sichtbarkeit für '" & ws.Name & "' nicht setzen. Fehler: " & Err.Description, vbExclamation
On Error GoTo 0
End Sub

[... Rest des Codes wird beim Scrollen sichtbar ...]

Option Explicit

‚ Globale Einstellungen
Public gRows As Long, gCols As Long, gMines As Long
Public Const BOARD_SHEET As String = „Board“
Public Const SOL_SHEET As String = „Solution“
Public GameOver As Boolean
Public GameStarted As Boolean
Public CoveredCells As Long
Public FlagsPlaced As Long

‚ Farben und Darstellung
Private Sub StyleBoard(ws As Worksheet, topRow As Long, leftCol As Long, rows As Long, cols As Long)
With ws
.Cells.Clear
.Columns.ColumnWidth = 3
.rows.RowHeight = 18
.Range(.Cells(topRow, leftCol), .Cells(topRow + rows – 1, leftCol + cols – 1)).Interior.Color = RGB(200, 200, 200)
.Range(.Cells(topRow, leftCol), .Cells(topRow + rows – 1, leftCol + cols – 1)).Borders.LineStyle = xlContinuous
.Range(.Cells(1, 1), .Cells(5, leftCol + cols + 5)).Clear
.Range(„B2“).Value = „Minen:“
.Range(„B3“).Value = gMines
.Range(„E2“).Value = „Flaggen:“
.Range(„E3“).Value = 0
.Range(„B4“).Value = „Status:“
.Range(„E4“).Value = „aktiv“
.Range(„H2“).Value = „Verdeckt:“
.Range(„H3“).Value = rows * cols
.Range(„B2:J4“).Font.Bold = True
End With
End Sub

Private Sub EnsureSheets()
Dim ws As Worksheet
Dim nm As String
nm = SOL_SHEET ‚ „Solution“
‚ Board sichern/erstellen
On Error Resume Next
Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
On Error GoTo 0
If ws Is Nothing Then
    Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.count))
    ws.Name = BOARD_SHEET
End If
Set ws = Nothing

‚ Solution sichern/erstellen (robust)
On Error Resume Next
Set ws = ThisWorkbook.Worksheets(nm)
On Error GoTo 0

If ws Is Nothing Then
    ‚ Falls Name schon belegt/ungültig -> eindeutigen Namen finden
    Dim tryName As String, idx As Long
    tryName = nm
    idx = 1
    Do
        On Error Resume Next
        Set ws = ThisWorkbook.Worksheets(tryName)
        On Error GoTo 0
        If ws Is Nothing Then Exit Do
        idx = idx + 1
        tryName = nm & „_“ & idx
    Loop

Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.count))
    On Error GoTo RenameErr
    ws.Name = tryName
    On Error GoTo 0
End If

‚ VeryHidden setzen (sicher)
On Error GoTo HideErr
ws.Visible = xlSheetVisible
ws.Visible = xlSheetVeryHidden
On Error GoTo 0
Exit Sub
RenameErr:
MsgBox „Konnte Blatt ‚“ & nm & „‚ nicht wie gewünscht benennen. Verwendet: ‚“ & ws.Name & „‚.“, vbExclamation
On Error GoTo 0
Exit Sub

HideErr:
MsgBox „Konnte Sichtbarkeit für ‚“ & ws.Name & „‚ nicht setzen. Fehler: “ & Err.Description, vbExclamation
On Error GoTo 0
End Sub

Private Sub PickDifficulty()
Dim ans As VbMsgBoxResult
ans = MsgBox(„Spielfeldgröße wählen:“ & vbCrLf & _
„Ja = Klein (9×9, 10 Minen)“ & vbCrLf & _
„Nein = Mittel (16×16, 40 Minen)“ & vbCrLf & _
„Abbrechen = Groß (30×16, 99 Minen)“, _
vbYesNoCancel + vbQuestion, „Minesweeper“)
Select Case ans
Case vbYes
gRows = 9: gCols = 9: gMines = 10
Case vbNo
gRows = 16: gCols = 16: gMines = 40
Case vbCancel
gRows = 16: gCols = 30: gMines = 99
Case Else
gRows = 16: gCols = 16: gMines = 40
End Select
End Sub

Private Sub PlaceMinesAndNumbers(topRow As Long, leftCol As Long)
Dim wsS As Worksheet
Dim r As Long, c As Long
Dim placed As Long
Dim key As String
Dim dict As Object
Set wsS = ThisWorkbook.Worksheets(SOL_SHEET)
wsS.Cells.Clear
wsS.Range(wsS.Cells(topRow, leftCol), wsS.Cells(topRow + gRows – 1, leftCol + gCols – 1)).Value = 0

Set dict = CreateObject(„Scripting.Dictionary“)
Randomize
Do While placed < gMines
    r = Int(Rnd * gRows) + 1
    c = Int(Rnd * gCols) + 1
    key = r & "_" & c
    If Not dict.Exists(key) Then
        dict.Add key, True
        wsS.Cells(topRow + r - 1, leftCol + c - 1).Value = -1 ' Mine = -1
        placed = placed + 1
    End If
Loop

' Zahlen berechnen
Dim rr As Long, cc As Long, nr As Long, nc As Long, count As Long
For r = 1 To gRows
    For c = 1 To gCols
        If wsS.Cells(topRow + r - 1, leftCol + c - 1).Value <> -1 Then
            count = 0
            For rr = -1 To 1
                For cc = -1 To 1
                    If Not (rr = 0 And cc = 0) Then
                        nr = r + rr: nc = c + cc
                        If nr >= 1 And nr <= gRows And nc >= 1 And nc <= gCols Then
                            If wsS.Cells(topRow + nr - 1, leftCol + nc - 1).Value = -1 Then
                                count = count + 1
                            End If
                        End If
                    End If
                Next cc
            Next rr
            wsS.Cells(topRow + r - 1, leftCol + c - 1).Value = count
        End If
    Next c
Next r
End Sub

Private Sub ColorNumberCell(Target As Range, val As Long)
Target.Font.Bold = True
Select Case val
Case 1: Target.Font.Color = RGB(0, 0, 255)
Case 2: Target.Font.Color = RGB(0, 128, 0)
Case 3: Target.Font.Color = RGB(255, 0, 0)
Case 4: Target.Font.Color = RGB(0, 0, 128)
Case 5: Target.Font.Color = RGB(128, 0, 0)
Case 6: Target.Font.Color = RGB(0, 128, 128)
Case 7: Target.Font.Color = RGB(0, 0, 0)
Case 8: Target.Font.Color = RGB(128, 128, 128)
End Select
End Sub

Public Sub NewGame()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    On Error GoTo CleanFail
    EnsureSheets

Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
    ws.Visible = xlSheetVisible
    ws.Activate

PickDifficulty

GameOver = False
    GameStarted = False
    FlagsPlaced = 0
    CoveredCells = gRows * gCols

' Spielfeld oben links bei Zelle B6 beginnen
    Dim topRow As Long, leftCol As Long
    topRow = 6: leftCol = 2

StyleBoard ws, topRow, leftCol, gRows, gCols

' Zellen vorbereiten
    With ws.Range(ws.Cells(topRow, leftCol), ws.Cells(topRow + gRows - 1, leftCol + gCols - 1))
        .Value = ""
        .Interior.Color = RGB(200, 200, 200)
        .Font.Color = RGB(0, 0, 0)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Name = "Calibri"
        .Font.Bold = False
    End With

' Lösung vorbereiten
    PlaceMinesAndNumbers topRow, leftCol

' Status aktualisieren
    ws.Range("B3").Value = gMines
    ws.Range("E3").Value = 0
    ws.Range("E4").Value = "aktiv"
    ws.Range("H3").Value = CoveredCells

CleanExit:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Exit Sub
CleanFail:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    MsgBox "Fehler beim Start: " & Err.Description, vbExclamation
End Sub

Private Function BoardTopLeft() As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
Set BoardTopLeft = ws.Range("B6")
End Function

Private Function InBoard(r As Long, c As Long) As Boolean
InBoard = (r >= 1 And r <= gRows And c >= 1 And c <= gCols)
End Function

Public Sub RevealCell(ByVal Target As Range)
If GameOver Then Exit Sub
Dim ws As Worksheet, wsS As Worksheet
Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
Set wsS = ThisWorkbook.Worksheets(SOL_SHEET)
Dim tl As Range
Set tl = BoardTopLeft()

If Intersect(Target, ws.Range(tl, tl.Offset(gRows - 1, gCols - 1))) Is Nothing Then Exit Sub

' Flagge blockiert Aufdecken
If (Target.Value = "U" And Target.Font.Name = "Wingdings 2") Or Target.Value = "F" Then Exit Sub

If Not GameStarted Then GameStarted = True

Dim r As Long, c As Long
r = Target.Row - tl.Row + 1
c = Target.Column - tl.Column + 1

Dim solVal As Long
solVal = wsS.Cells(tl.Row + r - 1, tl.Column + c - 1).Value

If Target.Interior.Color = RGB(230, 230, 230) Then Exit Sub ' bereits offen

If solVal = -1 Then
    ' Bombe getroffen
    Target.Interior.Color = RGB(255, 0, 0)
    Target.Value = "M"
    Target.Font.Name = "Wingdings" ' Bomben-Symbol
    GameOver = True
    ws.Range("E4").Value = "Verloren"
    RevealAll
    Exit Sub
ElseIf solVal = 0 Then
    FloodFill r, c
Else
    Target.Interior.Color = RGB(230, 230, 230)
    Target.Value = solVal
    Target.Font.Name = "Calibri"
    ColorNumberCell Target, solVal
    CoveredCells = CoveredCells - 1
    ws.Range("H3").Value = CoveredCells
End If

CheckWin
End Sub

Public Sub ToggleFlag(ByVal Target As Range)
If GameOver Then Exit Sub
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
Dim tl As Range
Set tl = BoardTopLeft()
If Intersect(Target, ws.Range(tl, tl.Offset(gRows - 1, gCols - 1))) Is Nothing Then Exit Sub

' Nur auf verdeckten Feldern Flags erlauben
If Target.Interior.Color = RGB(230, 230, 230) Then Exit Sub

' Entfernen: akzeptiere sowohl alte "F" als auch neue Wingdings-2-Flagge
If Target.Value = "F" Or (Target.Value = "U" And Target.Font.Name = "Wingdings 2") Then
    Target.Value = ""
    Target.Font.Name = "Calibri"
    Target.Font.Color = RGB(0, 0, 0)
    Target.Font.Bold = False
    FlagsPlaced = FlagsPlaced - 1
Else
    ' Setzen: Flagge "U" in Wingdings 2
    Target.Value = "U"
    Target.Font.Name = "Wingdings 2"
    Target.Font.Color = RGB(200, 0, 0)
    Target.Font.Bold = True
    FlagsPlaced = FlagsPlaced + 1
End If
ws.Range("E3").Value = FlagsPlaced
CheckWin
End Sub

Private Sub FloodFill(sr As Long, sc As Long)
    Dim ws As Worksheet, wsS As Worksheet, tl As Range
    Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
    Set wsS = ThisWorkbook.Worksheets(SOL_SHEET)
    Set tl = BoardTopLeft()
    Dim q As Collection: Set q = New Collection
    Dim key As String
    Dim visited As Object: Set visited = CreateObject("Scripting.Dictionary")

q.Add Array(sr, sc)
    visited(sr & "_" & sc) = True

Do While q.count > 0
        Dim item, r As Long, c As Long, val As Long
        item = q(1): q.Remove 1
        r = item(0): c = item(1)
        
        val = wsS.Cells(tl.Row + r – 1, tl.Column + c – 1).Value
        
        With ws.Cells(tl.Row + r – 1, tl.Column + c – 1)
            ‚ Nur verarbeiten, wenn die Zelle noch verdeckt ist
            If .Interior.Color <> RGB(230, 230, 230) Then
                .Interior.Color = RGB(230, 230, 230)
                
                ‚ Flagge beim Aufdecken entfernen und Flaggen-Counter korrigieren
                If .Value = „F“ Or (.Value = „U“ And .Font.Name = „Wingdings 2“) Then
                    FlagsPlaced = FlagsPlaced – 1
                    ThisWorkbook.Worksheets(BOARD_SHEET).Range(„E3“).Value = FlagsPlaced
                End If
                
                .Value = IIf(val = 0, „“, val)
                .Font.Name = „Calibri“
                If val > 0 Then ColorNumberCell .Cells(1, 1), val
                
                ‚ Nur hier CoveredCells reduzieren – für jede Zelle nur einmal
                CoveredCells = CoveredCells – 1
                ThisWorkbook.Worksheets(BOARD_SHEET).Range(„H3“).Value = CoveredCells
            End If
        End With
        
        If val = 0 Then
            Dim dr As Long, dc As Long, nr As Long, nc As Long
            For dr = -1 To 1
                For dc = -1 To 1
                    If Not (dr = 0 And dc = 0) Then
                        nr = r + dr: nc = c + dc
                        If InBoard(nr, nc) Then
                            key = nr & „_“ & nc
                            If Not visited.Exists(key) Then
                                If ThisWorkbook.Worksheets(BOARD_SHEET).Cells(tl.Row + nr – 1, tl.Column + nc – 1).Interior.Color <> RGB(230, 230, 230) Then
                                    visited(key) = True
                                    q.Add Array(nr, nc)
                                End If
                            End If
                        End If
                    End If
                Next dc
            Next dr
        End If
    Loop
End Sub

Private Sub RevealAll()
Dim ws As Worksheet, wsS As Worksheet, tl As Range
Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
Set wsS = ThisWorkbook.Worksheets(SOL_SHEET)
Set tl = BoardTopLeft()
Dim r As Long, c As Long, val As Long
For r = 1 To gRows
    For c = 1 To gCols
        With ws.Cells(tl.Row + r – 1, tl.Column + c – 1)
            val = wsS.Cells(tl.Row + r – 1, tl.Column + c – 1).Value
            .Interior.Color = RGB(230, 230, 230)
            If val = -1 Then
                .Value = „M“
                .Font.Name = „Wingdings“     ‚ Bombe
            ElseIf val = 0 Then
                .Value = „“
                .Font.Name = „Calibri“
            Else
                .Value = val
                .Font.Name = „Calibri“
                ColorNumberCell .Cells(1, 1), val
            End If
        End With
    Next c
Next r
End Sub

Private Sub CheckWin()
If GameOver Then Exit Sub
Dim nonMines As Long
nonMines = gRows * gCols – gMines
Dim opened As Long
opened = (gRows * gCols) – CoveredCells
If opened >= nonMines Then
GameOver = True
ThisWorkbook.Worksheets(BOARD_SHEET).Range(„E4“).Value = „Gewonnen!“
RevealAll
End If
End Sub

Public Sub RestartGameOnClick(Target As Range)
    If GameOver Then
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Worksheets(BOARD_SHEET)
        
        ‚ Prüfen ob auf Status-Feld geklickt wurde
        If Target.Address = ws.Range(„E4“).Address Then
            If ws.Range(„E4“).Value = „Verloren“ Or ws.Range(„E4“).Value = „Gewonnen!“ Then
                NewGame
            End If
        End If
    End If
End Sub

8. Makros aktivieren und Spiel starten

Wechseln Sie zurück zu Excel (Alt + F11)
Speichern Sie die Datei (Strg + S)
Gehen Sie zum Menü Ansicht → Makros → Makros anzeigen
Wählen Sie „NewGame“ aus der Liste und klicken Sie auf Ausführen

So spielen Sie Minesweeper in Excel

Spielstart:

Bei jedem Start können Sie zwischen drei Schwierigkeitsgraden wählen
Klein: 9×9 Feld mit 10 Minen
Mittel: 16×16 Feld mit 40 Minen
Groß: 30×16 Feld mit 99 Minen

Spielregeln:

Doppelklick: Deckt eine Zelle auf
Rechtsklick: Setzt oder entfernt eine Flagge (🚩)
Ziel: Alle Zellen ohne Minen aufdecken
Die Zahlen zeigen an, wie viele Minen in den angrenzenden 8 Feldern versteckt sind

Neustart:

Nach einem Spiel (gewonnen oder verloren) können Sie auf den Status doppelklicken, um neu zu starten
Oder gehen Sie wieder über Ansicht → Makros → „NewGame“

Zusätzliche Tipps

Makro-Sicherheit:
Wenn Excel eine Warnung bezüglich Makros anzeigt, klicken Sie auf „Inhalte aktivieren“ – andernfalls funktioniert das Spiel nicht.

Speichern:
Speichern Sie die Datei unbedingt als .xlsm-Datei, damit die Makros erhalten bleiben.

Problemlösung:
Falls etwas nicht funktioniert, überprüfen Sie, ob:

Alle Code-Teile korrekt eingefügt wurden
Das Arbeitsblatt „Board“ heißt
Das Modul „modMinesweeper“ heißt
Makros aktiviert sind

Fazit

Mit wenigen Handgriffen haben Sie Ihr eigenes Minesweeper in Excel erstellt! Es ist nicht nur ein praktischer Pausenfüller, sondern auch ein großartiger Einstieg in die Welt der Excel-Programmierung. Wer weiß – vielleicht entwickeln Sie bald eigene Spiele oder nützliche Makros für Ihre Arbeit.

Viel Spaß beim Spielen und beim Entschärfen der Minen! 💣

Rechtlicher Hinweis:
Dieser Code wurde eigenständig entwickelt und steht unter der MIT-Lizenz zur freien Verfügung.
Die Nutzung erfolgt auf eigene Verantwortung. Microsoft, Excel und VBA sind Marken der
Microsoft Corporation.
Teile des Artikels sind mit Hilfe KI erstellt.

Cookie	Dauer	Beschreibung
__cf_bm	1 hour	This cookie, set by Cloudflare, is used to support Cloudflare Bot Management.
cookielawinfo-checkbox-advertisement	1 year	Set by the GDPR Cookie Consent plugin, this cookie records the user consent for the cookies in the "Advertisement" category.
cookielawinfo-checkbox-analytics	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Analytics".
cookielawinfo-checkbox-functional	11 months	The cookie is set by GDPR cookie consent to record the user consent for the cookies in the category "Functional".
cookielawinfo-checkbox-necessary	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookies is used to store the user consent for the cookies in the category "Necessary".
cookielawinfo-checkbox-others	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Other.
cookielawinfo-checkbox-performance	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Performance".
CookieLawInfoConsent	1 year	CookieYes sets this cookie to record the default button state of the corresponding category and the status of CCPA. It works only in coordination with the primary cookie.
enforce_policy	1 year	PayPal sets this cookie for secure transactions.
ts	1 year	PayPal sets this cookie to enable secure transactions through PayPal.
ts_c	1 year	PayPal sets this cookie to make safe payments through PayPal.
tsrce	3 days	PayPal sets this cookie to enable the PayPal payment service in the website.
viewed_cookie_policy	11 months	The cookie is set by the GDPR Cookie Consent plugin and is used to store whether or not user has consented to the use of cookies. It does not store any personal data.
wpEmojiSettingsSupports	session	WordPress sets this cookie when a user interacts with emojis on a WordPress site. It helps determine if the user's browser can display emojis properly.
x-pp-s	session	PayPal sets this cookie to process payments on the site.

Cookie	Dauer	Beschreibung
LANG	9 hours	Linkedin set this cookie to set user's preferred language.
nsid	session	PayPal sets this cookie to enable the PayPal payment service on the website.
yt-remote-cast-installed	session	The yt-remote-cast-installed cookie is used to store the user's video player preferences using embedded YouTube video.
yt-remote-connected-devices	never	YouTube sets this cookie to store the user's video preferences using embedded YouTube videos.
yt-remote-device-id	never	YouTube sets this cookie to store the user's video preferences using embedded YouTube videos.
yt-remote-fast-check-period	session	The yt-remote-fast-check-period cookie is used by YouTube to store the user's video player preferences for embedded YouTube videos.
yt-remote-session-app	session	The yt-remote-session-app cookie is used by YouTube to store user preferences and information about the interface of the embedded YouTube video player.
yt-remote-session-name	session	The yt-remote-session-name cookie is used by YouTube to store the user's video player preferences using embedded YouTube video.
ytidb::LAST_RESULT_ENTRY_KEY	never	The cookie ytidb::LAST_RESULT_ENTRY_KEY is used by YouTube to store the last search result entry that was clicked by the user. This information is used to improve the user experience by providing more relevant search results in the future.

Cookie	Dauer	Beschreibung
_ga	1 year 1 month 4 days	Google Analytics sets this cookie to calculate visitor, session and campaign data and track site usage for the site's analytics report. The cookie stores information anonymously and assigns a randomly generated number to recognise unique visitors.
_gat_gtag_UA_*	1 minute	Google Analytics sets this cookie to store a unique user ID.
_gid	1 day	Google Analytics sets this cookie to store information on how visitors use a website while also creating an analytics report of the website's performance. Some of the collected data includes the number of visitors, their source, and the pages they visit anonymously.
sbjs_current	session	Sourcebuster sets this cookie to identify the source of a visit and stores user action information in cookies. This analytical and behavioural cookie is used to enhance the visitor experience on the website.
sbjs_current_add	session	Sourcebuster sets this cookie to identify the source of a visit and stores user action information in cookies. This analytical and behavioural cookie is used to enhance the visitor experience on the website.
sbjs_first	session	Sourcebuster sets this cookie to identify the source of a visit and stores user action information in cookies. This analytical and behavioural cookie is used to enhance the visitor experience on the website.
sbjs_first_add	session	Sourcebuster sets this cookie to identify the source of a visit and stores user action information in cookies. This analytical and behavioural cookie is used to enhance the visitor experience on the website.
sbjs_migrations	session	Sourcebuster sets this cookie to identify the source of a visit and stores user action information in cookies. This analytical and behavioural cookie is used to enhance the visitor experience on the website.
sbjs_session	1 hour	Sourcebuster sets this cookie to identify the source of a visit and stores user action information in cookies. This analytical and behavioural cookie is used to enhance the visitor experience on the website.
sbjs_udata	session	Sourcebuster sets this cookie to identify the source of a visit and stores user action information in cookies. This analytical and behavioural cookie is used to enhance the visitor experience on the website.

Cookie	Dauer	Beschreibung
VISITOR_INFO1_LIVE	6 months	YouTube sets this cookie to measure bandwidth, determining whether the user gets the new or old player interface.
VISITOR_PRIVACY_METADATA	6 months	YouTube sets this cookie to store the user's cookie consent state for the current domain.
YSC	session	Youtube sets this cookie to track the views of embedded videos on Youtube pages.
yt.innertube::nextId	never	YouTube sets this cookie to register a unique ID to store data on what videos from YouTube the user has seen.
yt.innertube::requests	never	YouTube sets this cookie to register a unique ID to store data on what videos from YouTube the user has seen.

Cookie	Dauer	Beschreibung
__eoi	6 months	Description is currently not available.
__Secure-ROLLOUT_TOKEN	6 months	Description is currently not available.

Allgemein, DIY