Frage : Zellenwert in eine Strecke in VBA kopieren

Ich habe Arbeitsblatt ungefähr 180 und für jedes, muss ich die ersten sechs Buchstaben in der Zelle A2 nehmen und ihn in Strecke vier der Zellen in der Spalte H. kleben.  Der Code läuft unten zum Abschnitt, um die Kopie/die Paste aber sie zu tun der Unterhalt, der mir „Laufzeitfehler „1004“ Anwendung-definiertes oder Gegenstand-definiertes error. gibt 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:

Public VorDataRanges ()
'Einstellt die Datenstrecken für die Datenquellen, kopiert Kontonummer in t
'verband Spalte
Schwaches rngchar als Strecke, rngCharAcct als Strecke, rngTop10 als Strecke, rngTop10Acct als Strecke
Schwaches rnggics als Strecke, rnggicsAcct als Strecke, rngCountry als Strecke, rngCountryAcct als Strecke
Schwache rngSecurities als Strecke, rngCheck als Strecke, wks als Arbeitsblatt
Schwaches strAccount als Schnur

Für jedes wks in den Arbeitsblättern
Wenn wks. Name mögen „MySheet_*“ dann
        wks. Aktivieren
        strAccount = CStr (gelassen (wks. Strecke („A2“). Wert, 6))
        Gesetztes rngchar = wks. Strecke („C11: G15“)
        rngCharAcct = wks einstellen. Strecke („H11: H15“)
        Einstellen rngTop10 = wks. Strecke („C35: F44“)
        Einstellen rngTop10Acct = wks. Strecke („H356: H44“)
        Rnggics = wks einstellen. Strecke („A68: D77“)
        rnggicsAcct = wks einstellen. Strecke („H68: H77“)
        rngSecurities = wks einstellen. Strecke („C16: E16“)
        rngCheck = Zellen (Rows.Count, „E“) einstellen. Ende (xlUp). Versatz (- 1, -1)
    
            Wenn rngCheck.Value <= 5 dann
                Gesetztes rngCountry = Strecke (Zellen (98, „A“), Zellen (Rows.Count, „E“). Ende (xlUp). Versatz (- 2, 0))
                rngCountryAcct = Strecke (Zellen (98, „H“), Zellen (Rows.Count, „E“ einstellen). Ende (xlUp). Versatz (- 2, 3))
            Sonst
                Gesetztes rngCountry = Strecke (Zellen (98, „A“), Zellen (Rows.Count, „E“). Ende (xlUp). Versatz (- 1, 0))
                rngCountryAcct = Strecke (Zellen (98, „H“), Zellen (Rows.Count, „E“ einstellen). Ende (xlUp). Versatz (- 1, 3))
            Beenden wenn

'Kontonummer zu den Vorwählerstrecken in Spalte H kopieren
'STÖRUNGEN HERAUS HIER!
        wks. Strecke (rngCharAcct). Auserwählt
        ActiveSheet.Paste (strAccount)
        wks. Strecke (rngTop10Acct). Auserwählt
        ActiveSheet.Paste (strAccount)
        wks. Strecke (rnggicsAcct). Auserwählt
        ActiveSheet.Paste (strAccount)
        wks. Strecke (rngCountryAcct). Auserwählt
        ActiveSheet.Paste (strAccount)
    Beenden wenn
         
Zunächst

Enden-Unterseeboot

Antwort : Zellenwert in eine Strecke in VBA kopieren

dann ist der One-way, zum es zu tun
'diese neue Variable definieren
rngCell als Strecke verdunkeln

Für jedes rngCell im rngCharAcct
  rngCell = strAccount
Zunächst
Weitere Lösungen  
 
programming4us programming4us