運行時錯誤1004，而範圍=字符串

我想從各種字母和一些變量中創建一個長字符串運行時錯誤1004，而範圍=字符串

所有變量都是字符串。

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

來源

2015-01-13 P. Bombik

如果這是打算進入AZ5：AZ13那麼你需要把* AZ *放在引號中。例如'Range（「AZ」＆BZ）= pfad' – Jeeped

'AZ'和'BZ'是什麼？根據這些變量中存儲的值，您可能需要在Range範圍內進行一些格式化。 –

AZ是一個字符串，BZ是一個整數。他們正在往下走，他們應該在這一行插入'pfad' –

這可能是你正在尋找的任務。

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

注：現在更多蜿蜒用於向後兼容性。使用Do While... Loop

來源

2015-01-13 13:12:33 peege

仍然是一樣的失敗。在Debugmode它的標記表（「」）...行 –

你是如何得到AZ？ – peege

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是一個字符串。

來源

2015-01-15 09:50:41

運行時錯誤1004，而範圍=字符串

回答

相關問題