Salü!
Ich habe volgenden Code:
Option Explicit
Sub Makro()
Dim q1 As Variant
Dim q2 As Variant
Dim q3 As Variant
Dim q4 As Variant
Dim q5 As Variant
Dim q6 As Variant
Dim a As Variant
Dim b As Variant
Dim s1 As Variant
Dim s2 As Variant
Dim s3 As Variant
q1 = "A"
q2 = "1"
q3 = q1 + q2
s1 = "A"
s2 = "17"
s3 = s1 + s2
Do Until q3 = "A16"
q3 = q1 + q2
s3 = s1 + s2
ActiveCell.FormulaR1C1 = "=R[16]C"
Range(q3).Select
Range(s3).Copy
ActiveSheet.Paste
q2 = q2 + 1
s3 = s2 + 1
Loop
End Sub
Wenn ich den Loop einmal durchlaufen habe und zu q2 = q2 + 1 und s3 = s2 + 1 komme, habe ich im q2 den Wert "1". Mache ich +1 bekomme ich den Wert 2. Wie bekomme ich den Wert "2"??? bin um jede Hilfe dankbar
Cat
| Betreff |
Von |
Datum |
|
|
  |
Re: Datentypenproblem
| Die Funktion cstr(2) verwandelt die Zahl 2 in den Text "2". Es wäre aber eigentlich zu empfehlen die Typen nicht als Variant sondern als Integer oder String zu definieren. Dein Problem liese sich aber... |
|
|
|
|
|
Lukas
Herren
|
24.03.2005 16:23 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
