AW: Zelladresse inkrementieren und Werte eintragen
04.11.2010 21:01:42
Peter
Hallo NoNet
Vielen Dank für deine Hilfe. In der Zwischenzeit habe ich den Code, welcher zu erweitern ist, weiter gebracht, so dass ich besser erklären kann, was ich mit diesem String "hochzählen" gemeint habe.
Die 31 Codezeilen - beginnend mit Range("_TOT").Cells(1) = getvalue(p, f, s, "F15") - unten möchte ich mit einer Schlaufe vereinfachen. Vorerst konnte ich mir so jedoch verhelfen.
Einerseits möchte ich die Zahl von Cells(1) hochzählen, bis 31 und dann getvalue nicht mehr den String "F15", "F16", ... etc. übergeben sondern diese Zelle "hochzählen, der Ausgangspunkt, also "F15" wird mit r = [_xqG] der Variable r übergeben.
Wäre super, wenn du mir da auf den Sprung helfen könntest.
Gruss, Peter
Sub DatenVKG()
Dim p As String, f As String, s As String, r As String
p = [_xp]
f = [_xf]
s = [_xs]
r = [_xqG]
With Range("_TOT")
.NumberFormat = "#'##0.00;;"
End With
Range("_TOT").Cells(1) = getvalue(p, f, s, "F15")
Range("_TOT").Cells(2) = getvalue(p, f, s, "F16")
Range("_TOT").Cells(3) = getvalue(p, f, s, "F17")
Range("_TOT").Cells(4) = getvalue(p, f, s, "F18")
Range("_TOT").Cells(5) = getvalue(p, f, s, "F19")
Range("_TOT").Cells(6) = getvalue(p, f, s, "F20")
Range("_TOT").Cells(7) = getvalue(p, f, s, "F21")
Range("_TOT").Cells(8) = getvalue(p, f, s, "F22")
Range("_TOT").Cells(9) = getvalue(p, f, s, "F23")
Range("_TOT").Cells(10) = getvalue(p, f, s, "F24")
Range("_TOT").Cells(11) = getvalue(p, f, s, "F25")
Range("_TOT").Cells(12) = getvalue(p, f, s, "F26")
Range("_TOT").Cells(13) = getvalue(p, f, s, "F27")
Range("_TOT").Cells(14) = getvalue(p, f, s, "F28")
Range("_TOT").Cells(15) = getvalue(p, f, s, "F29")
Range("_TOT").Cells(16) = getvalue(p, f, s, "F30")
Range("_TOT").Cells(17) = getvalue(p, f, s, "F31")
Range("_TOT").Cells(18) = getvalue(p, f, s, "F32")
Range("_TOT").Cells(19) = getvalue(p, f, s, "F33")
Range("_TOT").Cells(20) = getvalue(p, f, s, "F34")
Range("_TOT").Cells(21) = getvalue(p, f, s, "F35")
Range("_TOT").Cells(22) = getvalue(p, f, s, "F36")
Range("_TOT").Cells(23) = getvalue(p, f, s, "F37")
Range("_TOT").Cells(24) = getvalue(p, f, s, "F38")
Range("_TOT").Cells(25) = getvalue(p, f, s, "F39")
Range("_TOT").Cells(26) = getvalue(p, f, s, "F40")
Range("_TOT").Cells(27) = getvalue(p, f, s, "F41")
Range("_TOT").Cells(28) = getvalue(p, f, s, "F42")
Range("_TOT").Cells(29) = getvalue(p, f, s, "F43")
Range("_TOT").Cells(30) = getvalue(p, f, s, "F44")
Range("_TOT").Cells(31) = getvalue(p, f, s, "F45")
End Sub