Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1188to1192
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

Daten übertragen

Daten übertragen
Gregor
Hallo
Ich will mit folgendem geposteten Code (abgeändert) Daten übertragen.
Sub Daten_kopieren()
Dim arrTemp
Dim arrDaten()
Dim lngRows As Long
Dim lngColumns As Long
Dim lngCounter As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("BES-Kosten")
intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row - 1
intLastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column
lngCounter = 0
arrTemp = .Range(.Cells(1, 1), .Cells(intLastRow, intLastColumn))
ReDim arrDaten(1 To UBound(arrTemp, 2), 1 To UBound(arrTemp))
For lngRows = 10 To UBound(arrTemp)
lngCounter = lngCounter + 1
For lngColumns = 1 To UBound(arrTemp, 2)
arrDaten(lngColumns, lngCounter) = arrTemp(lngRows, lngColumns) 'Daten aus Spalte 1  _
bis 48
Next lngColumns
Next lngRows
If lngCounter = 0 Then
MsgBox prompt:="Keine Übereinstimmung gefunden" _
& vbNewLine & vbNewLine & "Die Ausführung wird beendet", _
Title:="    Mitteilung an " & Application.UserName
Worksheets("BES-Kosten neu").Delete
End
End If
ReDim Preserve arrDaten(1 To UBound(arrDaten), 1 To lngCounter)
Sheets("BES-Kosten neu").Cells(1, 1).Resize(lngCounter, UBound(arrDaten)) =  _
WorksheetFunction.Transpose(arrDaten)
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Bei Sheets("BES-Kosten neu").Cells(1, 1).Resize(lngCounter, UBound(arrDaten)) = WorksheetFunction.Transpose(arrDaten) erhalte ich eine Fehlermeldung "Typen unverträglich"
Was ist falsch?
Gruss Gregor

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten übertragen
02.12.2010 15:12:41
Gregor
Hallo
Fehler gefunden, das Problem war vermutlich gesetzte Zeilenumbrüche.
Gruss Gregor
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige