Typen unverträglich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Renè,
anbei der Code
Option Explicit

Sub Übertrag()
Application.ScreenUpdating = False
' Tabelle: Quelle
' Tabelle Ziel: Ziel
' Kopiert die SoD-Konflikte von Quelle in das Dashboard
Const Blatt1 = "Quelle"           ' Source
Const Blatt2 = "Ziel" ' Ziel
Dim I As Integer
Dim iAnz As Integer
Dim letzte As Long
' ermittelt die letzte befüllte Zelle
Worksheets("Ziel").Activate
letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
' ermittelt die letzte befüllte Zelle
' Markiert und löscht den Bereich
Worksheets("Ziel").Range("A13:AA" & letzte).Clear
' Kopiert die Überschrift
Worksheets("Quelle").Range("A3:E3").Copy
Worksheets("Ziel").Activate
Range("A3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Ziel").Range("A13").Activate
Sheets(Blatt1).Activate
Range("A10").Select
iAnz = 0
I = 0
Do Until I = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = Range("B" & 5).Value Then
Selection.EntireRow.Copy
Sheets(Blatt2).Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets(Blatt1).Select
ActiveCell.Offset(1, 0).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
I = I + 1
Loop
MsgBox "Es wurden " & iAnz & " Sätze übertragen"
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Sub ZeilenKopieren()
Dim NächsteLeere As Long
NächsteLeere = Tabelle1.Cells(11, 1).End(xlDown).Row + 1
Tabelle3.Rows("2:29").Copy
Tabelle1.Cells(NächsteLeere, 1).Select
ActiveSheet.Paste
End Sub

SG
M

hilfreich wäre auch zu wissen, in welcher Programmzeile der Fehler auftritt und welche Werte dann die in dieser Zeile verwendeten Variablen und Zellen haben.
ansonsten sollte sich herumgesprochen haben, dass sowas nur zufällig funktioniert, nämlich wenn die Tabelle1 das aktive Tabellenblatt ist:

Tabelle1.Cells(NächsteLeere, 1).Select
ActiveSheet.Paste

hier sollte man besser schreiben:

Tabelle1.Cells(Nächstleere, 1).PasteSpecial xlpasteall

man kann aber auch das ganze Makro zu einer Zeile verkürzen und sich dann die Frage stellen, ob es überhaupt noch notwendig ist, diese in ein eigenes Makro auszulagern.

Sub ZeilenKopieren()
Tabelle3.Rows("2:29").Copy Destination:=Tabelle1.Cells(11, 1).End(xldown).Offset(1, 0)
End Sub

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread