Thema Datum  Von Nutzer Rating
Antwort
Rot Gleichungssysteme in VBA
14.07.2008 17:52:33 Michael
NotSolved
15.07.2008 13:10:17 Holger
NotSolved

Ansicht des Beitrags:
Von:
Michael
Datum:
14.07.2008 17:52:33
Views:
1219
Rating: Antwort:
  Ja
Thema:
Gleichungssysteme in VBA
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Gleichungssysteme in VBA
14.07.2008 17:52:33 Michael
NotSolved
15.07.2008 13:10:17 Holger
NotSolved