Vba < Sonstige < Programmiersprachen < Praxis < Informatik < Vorhilfe
|
| Status: |
(Frage) überfällig  | | Datum: | 09:09 Di 17.01.2012 | | Autor: | max_e |
hallo,
ich habe folgendes problem:
Sub letzte_Zeile()
Dim Ende As Single
Dim Anfang As Long
Dim Ergebnis As Long
Dim Endwert As Long
Anfang = Range("I1").Value
Ende = Range("E65536").End(xlUp).Row
' Ansprechen der Variable Ende
Endwert = Range("I" & Ende).Value
Ergebnis = Endwert
Range("I33") = Ergebnis - Anfang
das heisst in zeile I33 wird die Differenz des Monats eingetragen, nun habe ich haber n+1 spalten. Kann ich den vorgang mit einem array und einer for-schleife automatisieren. z.b dim array(I, N, S, AB....)?? und wie?
vielen dank
|
|
| |
|
| Status: |
(Frage) beantwortet  | | Datum: | 12:44 Di 17.01.2012 | | Autor: | max_e |
-> ich habe jetzt den Code so geschrieben, funktioniert auch jedoch ab
Spalte AB -> bekomme ich Minuswerte raus und zahlen die gar nicht
passen.. muss ich bei der syntax was ändern?? Danke
Sub letzte_Zeile()
Dim Ende As Long
Dim Anfang As Long
Dim Ergebnis As Long
Dim Endwert As Long
Dim i As Integer
varMitglieder = Array("I", "N", "S", "AB")
'
i = 0
Do Until i = 4
Anfang = Range(varMitglieder(i) & "1").Value
Ende = Range("E65536").End(xlUp).Row
'Ansprechen der Variable Ende
Endwert = Range(varMitglieder(z) & Ende).Value
Ergebnis = Endwert - Anfang
Range(varMitglieder(i) & "33") = Ergebnis
i = i + 1
Loop
End Sub
|
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 23:31 Di 17.01.2012 | | Autor: | sandp |
hey,
du solltest immer angeben um welche Programmiersprache es sich handelt, da es ziemlich viele Programmiersprachen gibt.
Ich habe selber noch nicht in deiner Sprache programmiert, vermute aber mal, dass es Visual Basic ist.
Wenn du noch angibts, was du überhaupt programmieren willst, dann kann ich dir vllt helfen. Da es nicht einfach ist aus einem evtl. fehlerhaften Programmcode herauszulesen, was du überhaupt erreichen willst.
Gruß sandp
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 09:20 Do 19.01.2012 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
