Thema Datum  Von Nutzer Rating
Antwort
05.06.2009 14:56:49 chris
NotSolved
08.06.2009 10:59:45 Holger
NotSolved
Rot Aw:Aw:lfzfehler
 09.06.2009 19:51:32 Christoph
NotSolved

Ansicht des Beitrags:
Von:
Christoph		 Datum:
09.06.2009 19:51:32		 Views:
1032		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:lfzfehler
Hallo Holger,

vielen Dank für deine Hilfe, hab mich komplett verschrieben!
Bin dann aber eh noch früh genug darauf gekommen!
War nämlich hue für die Schule.

Es war ein Basic laufzeitfehler weiß auch nicht genau was das heißt, glaub das dieser Fehler für standard Fehler steht!?
Groß und klein Schreibung ist im VBA sowieso egal oder?
Hat auf jeden Fall unser Professor gesagt!?

MfG
Christoph


Holger schrieb am 08.06.2009 10:59:45:

Hallo chris,
in der Zeile fehlt ein "then" und ein Teil der Befehle gehört in die nächste Zeile. Vielleicht hast du dich ja nur verschrieben oder die SW dieses Forums hat Kkleiner- oder Größerzeichen und den Text dazwischen verschluckt, was öfters passiert. Ersetze dies im Makro durch geigneten Text. Welche Fehler ist aufgetreten?
Gruß
Holger

chris schrieb am 05.06.2009 14:56:49:

Warum habe ich hier einen Laufzeitfehler? Wo -> FEHLER steht? Unten!


Sub Draw2
dim aGames (2) as Integer
dim finalSet as String
dim sheet as Object
dim cell as Object
dim aSets (5) as String 'Feld von Strings
dim pos1 as Integer, pos2 as Integer
dim cell1 as String
dim cell2 as String

pos1 = 1
pos2 = 1

for i = 1 to 5

sheet = thisComponent.Sheets(2) 'Tabellenblatt via Index = Auslosung
cell = sheet.getCellByPosition (0,2) '1. Ergebnis

aSets = split (cell.String, " ")
finalSet = aSets (ubound(aSets))
msgbox "letzter Satz" & finalSet
aGames = split (finalSet, ":")

cell = sheet.getCellByPosition (3,pos1)
cell1 = cell.String

if (aGames(0) > aGames(1)) then 'erster Spieler ist der Sieger

cell = sheet.getCellByPosition(0,pos2) 'Spalte , Zeile
cell2 = cell.String
cell = sheet.getCellByPosition(3,pos1) 'Spalte , Zeile
cell.String = cell2

elseif (aGames(0) !!!FEHLER!!! cell = sheet.getCellByPosition(4,pos1)

if(cell.String <> "") then
pos1=pos1+2
end if

cell = sheet.getCellByPosition(4,pos1)
cell.String = cell2

end if
pos1=pos1+2
pos2=pos2+2

next i
End Sub

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
05.06.2009 14:56:49 chris
NotSolved
08.06.2009 10:59:45 Holger
NotSolved
Rot Aw:Aw:lfzfehler
 09.06.2009 19:51:32 Christoph
NotSolved