VBA 4 Gewinnt

Hallo zusammen,

Ich bin dabei ein 4 Gewinnt du programmieren. Es spielen 2 Menschen gegeneinander. Das Feld wird in Excel dann jeweils Gelb oder Rot gefärbt. Das funktioniert alles, aber etwas bereitet mir noch Kopfzerbrechen. Und zwar die abfrage, wer gewonnen hat, wenn 4 in einer Reihe sind. Wenn ich das mit einer If-Abfrage mache und jede Möglichkeit überprüfe, gibt es alleine horizontal 48 Möglichkeiten....

Hat jemand eine Idee wie ich das besser machen könnte?

MfG Duma

4 Antworten

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

19.11.2014, 10:13

Doppelschleife über das Spielfeld-Range bis Zeilenzahl-4, bzw. Spaltenzahl-4

Dann

Wenn AktuelleZelle eingefärbt prüfe weiter:

Sind Nachbarzellen (Offset(1..3,0)) wie AktuelleZelle gefärbt? → Farbe AktuelleZelle.Farbe hat gewonnen
Sind Diagnonalnachbarn (Offset(1..3,1..3)) wie AktuelleZelle gefärbt? → Farbe AktuelleZelle.Farbe hat gewonnen
Sind vertikale Nachbarn (Offset(0,1..3)) wie AktuelleZelle gefärbt? → Farbe AktuelleZelle.Farbe hat gewonnen

Allein durch die erste Bedingung wird die Anzahl an tiefer zu prüfenden Möglichkeiten extrem eingeschränkt. Noch besser wäre, wenn du anfängst, von unten rechts (mit Abstand 4 zum Rand) zu prüfen, da die Steine logischerweise zuerst die unteren Plätze belegen. Eine erfüllte Gewinnbedinung wird dann schneller gefunden. Bei Nichtgewinn ist beides gleich schnell.

Noch besser wäre es natürlich, wenn du direkt nach einem Zug die 3 Nachbarn in alle Richtungen überprüfen würdest.

Woher ich das weiß:Berufserfahrung – Programmierer

geri3d

07.03.2018, 20:32

vor 4 jahren ... was ist aus gute frege geworden

Suboptimierer

08.03.2018, 13:16

@geri3d

Was meinst du damit?

NSchuder

19.11.2014, 10:07

Das ist dann eben das "echte" programmieren.

Du hast eine Matrix aus 6 Reihen zu je 7 Feldern, also insgesamt 42 Felder. Jedes Feld hat 8 umgebende Felder (außer an den Rändern).

Ich würde links oben beginnen zu prüfen (also Feld 1,1).

Ist das Feld "leer" also unbelegt, springst Du direkt zu nächsten Feld, da keine Prüfung notwendig ist.

Bist Du bei Feld 1,7 angekommen, springst Du zu 2,1 also an den Anfang der zweiten Reihe von oben usw.

Du musst ausgehend von deinem "aktuellen" Feld der Reihe nach den Status der angrenzenden Felder prüfen. Mit welchem Du beginnst ist eigentlich egal.

Findest Du in eine bestimmte Richtung ein gleichfarbiges Feld prüfst Du in diese Richtung weiter. Findest Du ein drittes Feld mit gleicher Farbe, schaust Du nach, ob es auch ein viertes Feld gibt. In diesem Fall "Bingo"! Fertig!

Kommt als Zweites, Drittes oder Viertes Feld ein Feld mit anderer Farbe, nimmst Du das nächste umgebende Feld und prüfst neu auf Übereinstimmung.

Bist Du einmal komplett um Dein aktuelles Feld herum, prüfst Du das nächste Feld in der Hauptmatrix. Leere Felder kannst Du natürlich übergehen.

Das Ganze programmiert man mit Variablen für Zeile und Spalte und einem Index für das umgebende Feld in einer Schleifenstruktur.

DeeDee07

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

19.11.2014, 17:26

Falls du das Vier Gewinnt selber programmieren möchtest (aus Spaß, zum Lernen, whatever), dann betrachte die Antwort als gegenstandslos.

Falls du einfach ein Vier Gewinnt in Excel haben möchtest, kannst du das hier http://excelformeln.de/tips.html?welcher=95 probieren. Sogar ohne VBA.

Allw1553nd3r

19.11.2014, 10:02

Ich kenne VBA nicht so genau aber so in der Art: foreach cell{ If(Cell.text =="x") GetNeighbourCells(Cell); } GetNeighbourCells(Cell c){ foreach(NeighbourcellOf(c) nc{ If(NC.Text=="x"){ Relation r = GetRelation(c,nc)//rausfinden wie die Zellen zueinander liegen. E.g. diagonal, horizontal If(CheckOtherDirection(r,c,nc))//Schauen ob auf der anderen Seite ein x ist, wenn ja eine Zelle weiter auf der anderen Richtung schauen, wenn wieder ja nochmal in andere Richtung schauen. //in "originalrichtung", also wenn c=C5 und NC=C6, checke C7

} } }

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zur Frage

Excel VBA power query Hilfe?

Hey brauch mal eure Hilfe in vba power query

Ich brauche eine Abfrage if then style

sie muss können :
Montag - Donnerstag = Table.SelectRows(#"Umbenannte Spalten", each Date.IsInNextNDays([DATUM], 1))

jedoch Freitag == Table.SelectRows(#"Umbenannte Spalten", each Date.IsInNextNDays([DATUM], 3))

wie bekommt man diese If Then sachen in power query hin ?
Danke für eure Hilfe

...zur Frage

EXCEL VBA Frage?

Hallo,

ich habe ein problem mit Excel VBA, unzwar würde ich gerne die Abfrage der Leeren zellen erweitern um ein paar andere zeilen... leider habe ich immer irgendwie ein syntax problem. Kann mir jemand helfen

For Each Zellen_auf_Inhalt_prüfen In Range("B7:J7") __HIER SOLL MEHR ABGEFRAGT WERDEN

If Zellen_auf_Inhalt_prüfen.Value = "" Then

MsgBox "Bitte alle Zellen ausfüllen."

GoTo MacroEnde

End If

Next Zellen_auf_Inhalt_prüfen

...zur Frage

VBA ListBox abfragen?

Hallo Leute,

ich habe ein VBA Userform mit einer Listbox und möchte den ausgewählten Eintrag abfragen für eine If-Verzweigung.

Der Code soll folgendes tun:

Wenn z.B der erste Beitrag der Liste ausgewählt, dann ...

Habe es bereits mit If Listbox.Selected(0) = True Then .... versucht, geht aber nicht.

Hat jemand Vorschläge?

Danke im voraus!

Grüße

...zur Frage

VBA | Verhindern doppelter Werte in einer Spalte?

Hallo community,

ich suche eine Möglichkeit für eine Abfrage auf den doppelten Index in einer Spalte und ein darauffolgendes Öffnen einer MsgBox, ob der Eintrag sicher betätigt werden soll.

Danke schon mal im Voraus.
Im Internet habe ich nichts richtiges gefunden.

...zur Frage

VBA Makro gesucht: Inhalt von Zellen löschen wenn eine andere Zelle bestimmten "TEXT" beinhalted?

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden
Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden
Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.
Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

...zur Frage

Mit Access und VBA einen formatierten Excel-Export durchführen?

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

...zur Frage

Emails mit Hilfe von Excel-VBA auslesen und abspeichern?

Hallo liebe Leute,

ich habe mal wieder ein Problem. Ich möchte gerne Daten wie Anschrift, Firma, Ansprechpartner, Anrede usw. aus Emails auslesen und in Excel einfügen. Bisher habe ich das alles von Hand gemacht, aber es muss doch auch eine Möglichkeit geben um das zu vereinfachern.

Die Emails sehen nicht alle immer unbedingt gleich aus, was die Aufgabe meiner Meinung nach sehr viel schwieriger macht. Die Mails sind in keinem besonderen Format vorhanden, am coolsten wäre es, wenn man beim Start des Makros eine Email eingeben kann, und das Makro dann die passende Mail aus meinem Outlook Maileingang auswählt.

Am Liebsten wär mir ein Makro in Excel, dass dann diese Mail durchgeht und Adresse, Anrede, Firma, PLZ usw. raussucht und in Excel einfügt. Z.b. if ( untersuchtes wort = zahl zahl zahl zahl zahl ) dann soll das Makro darauf kommen, dass hier wahrscheinlich die PLz zu finden ist. Oder irgendwo steht mfg und das was danach kommt ist dann wahrscheinlich der Ansprechpartner.

Habe allerdings keinen Schimmer wie ich da ran gehen soll und ob das überhaupt geht.

Ich hoffe jemand kann mir da weiterhelfen :)

Beste Grüße

Chris

...zur Frage

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

...zur Frage

Prüfen ob Abfrage Daten enthält VBA Access?

Hallo zusammen,

ich habe in Access einen Button, der aus einer Abfrage eine PDF erstellt und diese via E-Mail versendet.

Ich möchte den Button so programmieren, sodass die PDF nicht verschickt wird, wenn die Abfrage keine Daten enthält.

Teil der Ereignisprozedur "Beim Klicken" für den Button:

Private Sub Befehl96_Click()
    Dim stDocName As String     Dim fileName, fldrPath, filePath As String     Dim answer As Integer       Dim strFrom, strSchema, strPW, strServer, strText, strBenutzer, strUseSSL, strSubject, strBody, strFile As String  'E-Mail     Dim intPort As Integer     Dim cdoMsg As CDO.Message
    Const cdoAnonymous = 0          Const cdoBasic = 1      Const cdoSendUsingPort = 2          stDocName = "Artikeländerungsprotokoll_ARTGruppe"     DoCmd.OpenQuery stDocName, acNormal, acEdit          fileName = Format(Date, "YYYYMMDD") & "_Aenderungsprotokoll_Herstellverfahren"     fldrPath = "K:\ARTIKEL\SQL_Protokolle"     filePath = fldrPath & "\" & fileName & ".pdf

    If Dir(filePath) <> "" Then
        
        answer = MsgBox(prompt:="PDF-Datei existiert bereits: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
        "Möchten Sie die Datei ersetzen?", Buttons:=vbYesNo, Title:="Datei Name existiert bereits")
    
    If answer = vbNo Then Exit Sub
    End If
 
   DoCmd.OutputTo acOutputReport, "ARTIKELÄNDERUNGSPROTOKOLL ARTGruppe", acFormatPDF, filePath

Ich möchte prüfen, ob in der Abfrage"ARTIKELÄNDERUNGSPROTOKOLL_ARTGruppe" Daten enthalten sind. Wenn keine Daten enthalten sind, dann soll nur eine MsgBox erscheinen, die besagt, das keine Daten vorhanden sind und nichts weiter.

Ich bin ein Anfänger im programmieren und tue mir schwer...

Kann mir bitte jemand helfen?

...zur Frage

Excel Vba mehrere Zufallszahlen, jedoch keine Wiederholungen?

Hallo,

Ich brauche 10 Variabeln, die einer Zufallszahl zugewiesen sind, jedoch dürfen sich die Zufallszahlen nicht wiederholen. Also z.B.

Z1= 23

Z2= 25

Z3= 25

Z4= 19

Z6= 17

....

Die "25" kommt nun 2 mal vor und das sollte nicht sein, also müsste Z2 oder Z3 zu einer anderen Zahl geändert werden.

Wie kann man das überprüfen lassen? Gibt es eine einfache und schnelle Möglichkeit ohne viel Code? Oder müsste man jede einzelne Variable mit if überprüfen?

MfG Fabian

...zur Frage

Excel: VBA - Zellen per Button-Klick nacheinander füllen?

Schönen guten Tag,

Ich würde gern in einer Excel-Tabelle eine Spalte nacheinandern (begrenzter Bereich), bei Button-Klick, füllen.

Es sollen auf einer Excel-Oberfläche verschiedene Buttons erstellt werden, die alle die selben Zellen füllen (Bsp: G3 bis O3). Wenn eine Zeile leer ist, soll diese gefüllt werden, wenn die nächste gefüllt ist, soll zur nächsten "leeren" gegangen werden. Dies jedoch nicht sofort für alle, sondern per Mausklick auf einen Button. ButtonA füllt G3 mit "asdf", ButtonB beginnt bei G3 findet dort "nicht leer" und geht auf H3 und schreibt "wasd", erneut ButtonA beginnt bei G3, findet G3 "nicht leer" und H3 "nicht leer" und schreibt in I3 "asdf".

Ich hoffe mein Idee und mein Ansatz ist verschändlich.

Ich habe auch eine Möglichkeit gefunden, jedoch müsste ich den Code für jede weitere Variante anpassen. Kann man daraus eine "einfachere" Schleife generieren? Bin leider noch VBA-Neuling.

Ich danke für die Hilfe! Ich wünsche euch einen schönen Tag!

Grüße

Private Sub CommandButton1_Click()
If Range("G3") = "" Then
    Range("G3").Value = "Test - 1"
Else
    If Range("H3") = "" Then
        Range("H3").Value = "Test - 1"
    Else
        If Range("I3") = "" Then
            Range("I3").Value = "Test - 1"
        Else
            If Range("J3") = "" Then
                Range("J3").Value = "Test - 1"
            Else
                If Range("K3") = "" Then
                    Range("K3").Value = "Test - 1"
                Else
                    If Range("L3") = "" Then
                        Range("L3").Value = "Test - 1"
                    Else
                        If Range("M3") = "" Then
                            Range("M3").Value = "Test - 1"
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

...zur Frage

Excel Zeilen in anderes Blatt kopieren wenn das Datum in der Tabelle kleiner als in die Variabel?

Hallo,

Folgendes Problem: In der Tabelle "Werkzeuge" gibt es in der Spalte D die Spalte "Datum". Das erste Datum ist in der Zelle D5. Anschliessend D6 und so weiter, wie eine normale Tabelle einfach. Nun hab ich auch noch eine Variabel "Date". Jetzt soll verglichen werden, ob die Variabel kleiner als das Datum in der Tabelle ist. Trifft das zu, wird diese Zeile kopiert und im Blatt "Pruefungen" in der Tabelle "Ausgabe" eingefügt. Das soll mit jeder Zeile der Tabelle passieren.

Ich dachte an eine for-Schleife und dann eine if-Abfrage ob die Variabel kleiner ist. Anschliessend wird diese Zeile ,wenn es zutrifft, kopiert. Dann wird auf das andere Blatt gewechselt und dort eingefügt.

Da ich ein Anfänger bin im Thema VBA, würde ich mich freuen, könnte mir jemand behilflich sein. Vielen Dank im voraus.

Gruss flurio

...zur Frage

4 gewinnt diagonale Abfrage C#

Hey Leute, ich bin gerade dabei ein 4 gewinnt zu programmieren in C#. Nun kommt ich bei der diagonalen Abfrage ob jemand gewonnen hat nicht weiter. Horizontal und vertikal habe ich jeweils 2 for Schleifen benutzt:

for (int y = 0; y < 7; y++)
        {
            for (int x = 0; x < 8; x++)
            {
                if (gespWert == spielfeld[x, y] && spielfeld[x, y] != 0)
                {
                    ++counter;
                }
                else
                {
                    counter = 0;
                }
                gespWert = spielfeld[x, y];
                if (counter == 3)
                {
                    MessageBox.Show("Sie haben gewonnen!");
                    finish = true;
                    break;
                }
            }
        }

Nun wollte ich die diagonale Abfrage mit 2 while Schleifen machen, die eben dem x und dem y Wert im Array immer 1 hinzu addieren und das ganze dann mit einem break beendet wird. Zudem muss ich ja auch noch eine if Abfrage machen ob sich der abgefragte Bereich überhaupt noch im Array befindet, oder?

Könnt ihr mir ein bisschen auf die Sprünge helfen?

Danke schonmal im Vorraus!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen