Mit folgendem Code hab ich nun die Primfaktoren einer positiven Zahl x:
Function primfaktoren(zahl) As String
Dim dummy As String
Dim test
Dim wurzel
Dim pruefen
test = zahl
wurzel = Sqr(zahl)
If zahl
Sorry,
damit kenne ich mich nicht aus.
Gruß
Mike
Hallo
Da findest Du die String Aufteilung
http://www.herber.de/forum/archiv/612to616/612774_Ei…
Müsste Dein Problem lösen
Gruss keymax
sorry mit vba code kann ich mich nicht aus
mit andere sachen schön!
Hallo layaxx,
das könnte ungefär so aussehen
s = "2\*2\*2\*2\*2\*2\*71" 'hier Primfaktoren
Set c = Sheets("Sheet1").Range("A1") 'Tabellenblatt und Anfangszelle zum Schreiben
For Each pf In Split(s, "\*") ' Durchlauf über alle Werte zwischen "\*"-Zeichen
c.Value = pf
Set c = c.Offset(1, 0) ' In Tabelle weiterspringen
Next
Hallo
Du kannst mit dem Befehl:
Dim row as long, col as long
X=Tabelle1.cells(row,col)
den Wert von einer Zelle in der Tabelle1 em Wert X zuordnen. Umgekehrt geht es auch:
Tabelle1.cells(row,col)=X
Diese Funktion weisst der zelle den Wert X zu.
Col sind die Columnen (A,B,C,D…AA,AB…)
Es gilt bei der Kolumne folgende Zuweisung:
1=A
2=B
3=C
usw.
Row sind die Zeilen (1,2,3…36650, 36651…)
Das Feld D27 wäre also:
Tabelle1.cells(27,4)
Das Feld A5 wäre also:
Tabelle1.cells(5,1)
Du kannst auch Integervariabeln dazu zählen:
Dim i as integer
i=2
Tabelle1.cells(5+i,1)
Benutze auch noch die For Schleife:
For i=1 to 5
… (Exit For)
next i
Oder die Do Loop until Schleife:
Do Until T = True
…
loop
Viel Spass…
Grüsse Sebastian
sorry, ich bin nicht mehr drin im VBA. viel erfolg dennoch! vg annabela
HAllo,
mit der Funktion Worksheets(1).Range(„A1“).Value = 3
die du dir in deine Schleifen einbauen solltest kannst Du den jeweiligen Wert einer Zelle , hier A1 zuweisen.
Du solltest dir einen Zählwert für die Spalten und einen für die Zeilen dazunehmen um diese in der Schleifen dann hochzuzählen (+1) oder du nimmst eine Schleifenzähler für die Nummer der Zelle.
Es gibt auch noch eine ActiveCell Funktion mit der du bestimmt Zellen aktivieren kannst wenn du in die Mappe springst. Trifft aber ehrr nicht zu?
Viel Spaß noch
Armin