Im Prinzip kannst du das gleiche Programm wiederverwenden. Du musst lediglich die Zelle, in die geschrieben wird, anpassen, indem du die Zeilen- und Spaltennummer verdoppelst (dadurch wird nur jede zweite Zeile und Spalte beschrieben). Wenn du cells (i * 2, j * 2).value statt cells (i, j).value schreibst, sollte das funktionieren.
Das ist auf jedenfall schonmal eine gute Idee Leerstellen zu umgehen, aber in der Aufgabe jetzt kommt ja nicht die Regel Spalte * Zeile zum Einsatz.Zitat von mq
So wie ich das sehe wird immer die Zeilenzahl waagerecht addiert, die Spaltenzahl senkrecht, aber immer nur die geraden Zahlen. Bin wie gesagt noch nicht ganz hinter dieses System gekommen.
Wenn ich das richtig sehe, sollte das i * j * 2 sein.
Meinst du nicht es ist (i * j) / 2, weil das würde klappen. Dann müsste man nur noch die Leerstellen berücksichtigen. Ich glaube mit
( (i * 2 )* (j*2) ) / 8 könnte alles klappen, oder?
Optional vllt auch
i = i * 2
j = j * 2
for i = 1 to 17
for j = 1 to 9
cells(i, j).value = ((i * j) / 2)
next j
next i
kann man das so machen?
Hmm gerade ausprobiert, da ist irgendwie noch ein Fehler drin.....
Geändert von Duke Earthrunner (13.01.2007 um 17:18 Uhr)
Eigentlich sollte VBA for i = 1 to 10 step 2 oder sowas kennen.
--
Ok mal abgesehen davon, dass ich diese step Funktion leider nie kennenlernen durfte, funktioniert es so
Sub quadrat()
Dim i As Integer
Dim j As Integer
For i = 2 To 17 Step 2
For j = 2 To 9 Step 2
Cells(i, j).Value = (i * j) / 2
Next j
Next i
End Sub
Danke euch beiden für die Hilfe!
Okay, ich bin davon ausgegangen, dass du die Variablen in 1er-Schritten erhoehst, nicht in 2er-Schritten. Im letzteren Fall ist i * j / 2 natuerlich richtig.
Berechtigungen
Zitieren