Diese makro erhalten von Franz ( Franz viele Dank noch )zeit verlaufen.
(Anderung Makro daten verschieben von Karel vom 24.07.2006 22:02:13)
Problem
wenn ich LN, 30 änder in suchwertspalte LN, 32 kommt fehlermeldung Laufzeitfehler'13': Typen unvertaglich
If Cells(LN, 30) = "wein" Then
If Cells(LN, 32) = "wein" Then
Sub Daten_verschieben_9()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Tabelle1")
Dim LN, r2, r3
' z von zeile 5 bis 22
r2 = 2 ' 1. Zeile zum Einfügen von Daten in Tabelle 2
r3 = 2 ' 1. Zeile zum Einfügen von Daten in Tabelle 3
For LN = 2 To 2000
If Cells(LN, 30) = "Zertifikat" Then
With Sheets("zertifikat")
'spalte 2 ist B
Range(Cells(LN, 30), Cells(LN, 33)).Copy
.Cells(r2, 1).PasteSpecial Paste:=xlValues
r2 = r2 + 1
End With
End If
Next LN
For LN = 2 To 2000
If Cells(LN, 32) = "wein" Then
With Sheets("wein")
'spalte 2 ist B
Range(Cells(LN, 2), Cells(LN, 10)).Copy
.Cells(r3, 1).PasteSpecial Paste:=xlValues
r3 = r3 + 1
End With
' "Wein" in Sheet1 löschen
Cells(LN, 1).ClearContents
End If
Next LN
ws1.Activate
Range("A29").Select
Application.CutCopyMode = False
End Sub
grusse
Karel