Hallo Michael,
z.B.
Sub Gleichungssysteme()
Dim i, j, k As Integer
Worksheets("Gleichungssysteme").Activate
For k = 1 To 3
j = 0
For i = 1 To 5 + k \ 3
j = j + 3
If i <= 4 + k \ 3 Then
Cells(k, j) = InputBox("Bitte geben Sie den " & i & ". Koeffizienten der " & k & ". Gleichung ein: ", " Eingabe des " & i & ". Koeffizienten")
If Cells(k, j) = 0 Then Cells(k, j) = ""
Else
Cells(k, j) = InputBox("Bitte geben Sie eine Zahl ein, die in der " & k & ". Gleichung als Ergebnis erscheinen soll: ", " Eingabe des Ergebnisses")
End If
Next i
Next k
j = 0
For i = 1 To 3
j = 1
For k = 1 To 4 + i \ 3
j = j + 3
If Cells(i, j - 1) = "" Then
Cells(i, j) = ""
Else
Cells(i, j) = "x" & k
Cells(i, j).Characters(2, 2).Font.Subscript = True
End If
Next k
Next i
For i = 1 To 3
j = 2
For k = 1 To 4 + i \ 3
j = j + 3
If k <= 3 + i \ 3 Then
If Cells(i, j + 1) = "" Then
Cells(i, j) = ""
Else
Cells(i, j) = " + "
End If
Else
Cells(i, j) = " = "
End If
Next k
Next i
End Sub
Gruß
Holger
Michael schrieb am 14.07.2008 17:52:33:
Hallo,
ich habe ein Programm zu Gleichungssystemen mit Hilfe von VBA erstellt.
Allerdings zeigt er mir in der dritten Reihe den 5.ten Koeffizienten nicht als x5 an und beim Ergebnis sollte das Gleichheitszeichen davorstehen.
Wo liegt hier genau der Fehler?
Ich stelle mal das geschriebene VBA Programm hier rein:
Option Explicit
Sub Gleichungssysteme()
Dim Eingabe1(1 To 5) As Integer
Dim Eingabe2(1 To 5) As Integer
Dim Eingabe3(1 To 6) As Integer
Dim i, j, k As Integer
Worksheets("Gleichungssysteme").Cells.Clear
For i = 1 To 5
j = j + 3
If i <= 4 Then
Eingabe1(i) = InputBox("Bitte geben sie den " & i & ". Koeffizienten der 1. Gleichung ein: ", " Eingabe des " & i & ". Koeffizienten")
If Eingabe1(i) = 0 Then
Worksheets("Gleichungssysteme").Cells(1, j).Value = ""
Else
Worksheets("Gleichungssysteme").Cells(1, j).Value = Eingabe1(i)
End If
Else
Eingabe1(i) = InputBox("Bitte geben sie eine Zahl ein, die in der 1. Gleichung als Ergebnis erscheinen soll: ", " Eingabe des Ergebnisses")
Worksheets("Gleichungssysteme").Cells(1, j).Value = Eingabe1(i)
End If
Next i
j = 0
For i = 1 To 5
j = j + 3
If i <= 4 Then
Eingabe2(i) = InputBox("Bitte geben sie den " & i & ". Koeffizienten der 2. Gleichung ein: ", " Eingabe des " & i & ". Koeffizienten")
If Eingabe2(i) = 0 Then
Worksheets("Gleichungssysteme").Cells(2, j).Value = ""
Else
Worksheets("Gleichungssysteme").Cells(2, j).Value = Eingabe2(i)
End If
Else
Eingabe2(i) = InputBox("Bitte geben sie eine Zahl ein, die in der 2. Gleichung als Ergebnis erscheinen soll: ", " Eingabe des Ergebnisses")
Worksheets("Gleichungssysteme").Cells(2, j).Value = Eingabe2(i)
End If
Next i
j = 0
For i = 1 To 6
j = j + 3
If i <= 5 Then
Eingabe3(i) = InputBox("Bitte geben sie den " & i & ". Koeffizienten der 3. Gleichung ein: ", " Eingabe des " & i & ". Koeffizienten")
If Eingabe3(i) = 0 Then
Worksheets("Gleichungssysteme").Cells(3, j).Value = ""
Else
Worksheets("Gleichungssysteme").Cells(3, j).Value = Eingabe3(i)
End If
Else
Eingabe3(i) = InputBox("Bitte geben sie eine Zahl ein, die in der 3. Gleichung als Ergebnis erscheinen soll: ", " Eingabe des Ergebnisses")
Worksheets("Gleichungssysteme").Cells(3, j).Value = Eingabe3(i)
End If
Next i
j = 0
For i = 1 To 3
j = 1
For k = 1 To 4
j = j + 3
If Worksheets("Gleichungssysteme").Cells(i, j - 1).Value = "" Then
Worksheets("Gleichungssysteme").Cells(i, j).Value = ""
Else
Worksheets("Gleichungssysteme").Cells(i, j).Value = "x" & k
Worksheets("Gleichungssysteme").Cells(i, j).Select
ActiveCell.Value = "x" & k
ActiveCell.Characters(2, 2).Font.Subscript = True
End If
Next k
Next i
For i = 1 To 3
j = 2
For k = 1 To 4
j = j + 3
If k <= 3 Then
If Worksheets("Gleichungssysteme").Cells(i, j + 1).Value = "" Then
Worksheets("Gleichungssysteme").Cells(i, j).Value = ""
Else
Worksheets("Gleichungssysteme").Cells(i, j).Value = " + "
End If
Else
Worksheets("Gleichungssysteme").Cells(i, j).Value = " = "
End If
Next k
Next i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
|