Range = String时运行时错误1004

时间:2015-01-13 11:57:55

标签: excel-vba vba excel

我想用各种字母和一些变量

创建一个长字符串

所有变量都是字符串。

pfad = t1 & tn & t2 & tn & t3 & kunde & t4 & datum & t5 & zeileStr

创建pfad之后,id就像拥有这个String或者换句话说这个句子在特定的Cell中。应该通过2个变量(行和列)选择此单元格。 我的代码在这里:

While z < 9            
BZ = zeile + 5

Range(AZ & BZ) = pfad  <<<<<<<<<< this is marked yellow, when im going to debug mode
z = z + 1
zeile = zeile + 1
zeileStr = CStr(zeile)
pfad = t1 & tn & t2 & tn & t3 & kunde & t4 & datum & t5 & zeileStr
Wend

2 个答案:

答案 0 :(得分:0)

这可能是您正在寻找的任务。

Dim As Integer   'Long, preferable
Dim AZ As String
Dim pfad As String

Sheets("SheetName").Cells(BZ, AZ).Value = pfad

在你定义了pfad而不是之前,你会想要放置那一行。

Do While z < 9            
    BZ = zeile + 5
    z = z + 1
    zeile = zeile + 1
    zeileStr = CStr(zeile)
    pfad = t1 & tn & t2 & tn & t3 & kunde & t4 & datum & t5 & zeileStr

    Sheets("SheetName").Cells(BZ, AZ).Value = pfad
Loop

注意: Wend现在更多地用于向后兼容。使用Do While... Loop

答案 1 :(得分:0)

Dim AZ As Long 
Dim BZ As Long 
Dim pfad As String 
Dim zeile As Integer 
Dim zeileStr As String 
Dim z As Integer

tn = Range("B3")
kunde = Range("B4")
zeile = 2
AZ = 1
BZ = 0
zeileStr = CStr(zeile)

定义所有变量或它们的值是一个单元格。

当我使用Range()命令时,AZ是一个String。