Problem mit Range(Name).Value
12.11.2016 12:15:49
Max2
Ich habe ein Blatt mit 16 Ranges, deren Namen ich Definiert habe.
Die Namen gehen von Block1 bis Block 16
Ich habe eine kleine UserForm mit TextBoxen, die Textbox.Values schreibe ich in String Variablen und diese in das Array arrDaten(3).
Es soll also in die erste Zelle der Range BlockXY, der Wert von arrDaten(0) eingetragen werden, in die nächste arrDaten(1).
Klappen tuts leider nicht
Mein Code bis Jetzt:
TbV1 = UserForm1.TextBox1.Value
TbV2 = UserForm1.TextBox2.Value
TbV3 = UserForm1.TextBox3.Value
TbV4 = UserForm1.TextBox4.Value
TbV5 = UserForm1.TextBox5.Value
CbV1 = UserForm1.ComboBox1.Value
sName = TbV1 & " " & TbV2
sAdd = TbV4 & " " & TbV5
arrDaten(0) = CbV1
arrDaten(1) = sName
arrDaten(2) = TbV3
arrDaten(3) = sAdd
Set wkb = ThisWorkbook
Set wks = wkb.Sheets("Tabelle1")
With wks
Name = InputBox("An welcher Stelle einfügen?")
i = Name
For a = 0 To 3
For Each c In Range("Block" & i)
If c.Value = "" Then
c.Value = arrDaten(a)
End If
Next c
Next a
End With
End Sub
Wo hab ich da meinen Denkfehler?Wäre es sinnvoller das Array so zu Befüllen "arrDaten = Array(x, y, z, q)"
Und dann mit .Resize = arrDaten die Daten zu übertragen ?
Die einzelnen Werte sollen untereinander stehen! nicht nebeneinander .
Also am Beispiel .Offset: .OffSet(1) und nicht .Offset(, 1)