Thema Datum  Von Nutzer Rating
Antwort
Rot Einfügen von Bildern anstelle Symbolen bei Memory Spiel
20.01.2023 14:59:32 Sofia
NotSolved
20.01.2023 17:32:36 xlKing
NotSolved
20.01.2023 21:29:09 xlKing
NotSolved
20.01.2023 22:41:06 Gast97164
NotSolved
20.01.2023 22:52:56 xlKing
*****
Solved
20.01.2023 22:57:47 Sofia
NotSolved

Ansicht des Beitrags:
Von:
Sofia
Datum:
20.01.2023 14:59:32
Views:
72
Rating: Antwort:
  Ja
Thema:
Einfügen von Bildern anstelle Symbolen bei Memory Spiel

Hallo zusammen,

ich programmiere gerade ein Memory-Spiel in VBA und möchte anstelle von Symbolen Bilder in mein Memory einfügen. Gibt es eine Möglichkeit den abzuändern?

Sub ArrangeCards()
    Dim cell As Range, num As Integer
    
    Tabelle2.Range("B4:E7").ClearContents
    Tabelle1.Range("D10").Value = 0
    Tabelle1.Range("D11").Value = 0
    
    For Each cell In Tabelle2.Range("B4:E7")
        Do
            Randomize
            num = Int(Rnd * 8) + 1
            If WorksheetFunction.CountIf(Tabelle2.Range("B4:E7"), num) < 2 Then
                cell.Value = num
                Exit Do
            End If
        Loop
    Next cell
    
    For Each cell In Tabelle2.Range("B4:E7")
        If cell.Value = 1 Then
            cell.Value = Tabelle2.Range("B11").Text
        ElseIf cell.Value = 2 Then
            cell.Value = Tabelle2.Range("B12").Text
        ElseIf cell.Value = 3 Then
            cell.Value = Tabelle2.Range("B13").Text
        ElseIf cell.Value = 4 Then
            cell.Value = Tabelle2.Range("B14").Text
        ElseIf cell.Value = 5 Then
            cell.Value = Tabelle2.Range("B15").Value
        ElseIf cell.Value = 6 Then
            cell.Value = Tabelle2.Range("B16").Value
        ElseIf cell.Value = 7 Then
            cell.Value = Tabelle2.Range("B17").Value
        ElseIf cell.Value = 8 Then
            cell.Value = Tabelle2.Range("B18").Value
        End If
    Next cell
End Sub

 

Vielen Dank für eure Hilfe!

Liebe Grüße

Sofia


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Einfügen von Bildern anstelle Symbolen bei Memory Spiel
20.01.2023 14:59:32 Sofia
NotSolved
20.01.2023 17:32:36 xlKing
NotSolved
20.01.2023 21:29:09 xlKing
NotSolved
20.01.2023 22:41:06 Gast97164
NotSolved
20.01.2023 22:52:56 xlKing
*****
Solved
20.01.2023 22:57:47 Sofia
NotSolved