Option Explicit
Sub Dame()
Dim Eingabe As String
Dim Ausgabe As String
Dim eingabezahl%, zeile%, spalte%, i%, j%
Close #1
Eingabe = InputBox("Bitte geben Sie die Matrix Zeilen/Spalten (NxN - Matrix) Anzahl ein!", "Eingabe")
If IsNumeric(Eingabe) Then
eingabezahl = CInt(Eingabe)
For zeile = 1 To eingabezahl
For spalte = 1 To eingabezahl
Ausgabe = Ausgabe & Cells(zeile, spalte) & ";"
Next spalte
Ausgabe = Ausgabe & vbCrLf
Next zeile
Else
MsgBox ("Bitte geben Sie nur Zahlen ein!")
End If
'MsgBox (Ausgabe)
Open "Damen.txt" For Output As #1
Print #1, Ausgabe
Close #1
End Sub
Sub testeEinlesen()
Dim text As String
Dim zerlegterText() As String
Dim zeile As String
Dim i%, j%
Close #1
Open "Damen.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, text
zerlegterText = Split(text, ";")
For i = 0 To UBound(zerlegterText)
Cells(j + 1, i + 1) = zerlegterText(i)
Next i
j = j + 1
Loop
Close #1
End Sub
Function DamenKollision() As Integer
Dim KollisionZähler%, test%, i%, j%, N%, KollisionsZählerZeile%, KollisionsZählerSpalte%
Dim Eingabe As String
Eingabe = InputBox("Bitte geben Sie die Matrix Zeilen/Spalten (NxN - Matrix) Anzahl ein!", "Eingabe")
If IsNumeric(Eingabe) Then
N = CInt(Eingabe)
Else
MsgBox ("Gib Zahl ein!")
End If
' "i" ist Zeile
' "j" ist Spalte
' ZEILEN DURCHLAUF
For i = 1 To N
For j = 1 To N
If Cells(i, j) = "x" Then
KollisionsZählerZeile = KollisionsZählerZeile + 1
End If
Next j
If KollisionsZählerZeile >= 2 Then
KollisionZähler = KollisionZähler + 1
End If
KollisionsZählerZeile = 0
Next i
' SPALTEN DURCHLAUF
For j = 1 To N
For i = 1 To N
If Cells(i, j) = "x" Then
KollisionsZählerSpalte = KollisionsZählerSpalte + 1
End If
Next i
If KollisionsZählerSpalte >= 2 Then
KollisionZähler = KollisionZähler + 1
End If
KollisionsZählerSpalte = 0
Next j
MsgBox (KollisionZähler)
End Function
|