Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte übertragen

Werte übertragen
03.06.2020 17:17:11
MusiIgor
Hallo Herbert,
vielen Dank für deinen Ansatz bzgl. meiner Anfrage vom 18.05.2020.
Ich habe mir bereits gedacht, dass das schlanker geht, jedoch war das im ersten Schritt, wenn auch aufwendiger, die einfacherere Lösung für mich.
Deinen Ansatz habe ich eingepflegt und soweit an mein Sheet angepasst, jedoch spuckt er mir _ beim Debuggen die Zeile als Fehler aus .Cells(iCount + iRowInput, 1).Value = Range(arrAdr(iCount)).Value . Der Index liegt ausserhalb des gültigen Bereichs. Was muss ich noch ändern?

Sub Daten_ablegen()
Dim iCount, arrAdr, iRowInput%
arrAdr = Array("H11", "L11", "P11", "H12", "L12", "P12", "H13", "L13", "P13", "H14", "L14",   _
_
_
_
"P14", "H15", "L15", "P15", "N4", "O4", "P4")
With Worksheets("Datenübertrag")
If .Range("A3")  "" Then
iRowInput = .Cells(Rows.Count, 1).End(xlUp).Row + 2
Else
iRowInput = 3
End If
.Cells(iRowInput, 1).Value = Range("B2").Value '* Kunde
For iCount = 1 To 19
.Cells(iCount + iRowInput, 1).Value = Range(arrAdr(iCount)).Value
Next iCount
End With
End Sub

Vielen Dank für die Hilfe. Dein/Euer Forum ist Gold wert.
Mit freundlichen Grüßen
Felix

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige