Hallo Susanne,
laß die Gänsefüßchen weg.
Mir war nicht bewusst, dass Tabelle1 und Tabelle2 zwei Variablen sind.
PS: Du solltest keine Variablennamen nehmen, die in Excel reserviert oder standardmäßig für andere Zwecke eingesetzt werden.
Tabelle1 könnte ein technischer Tabellenname sein oder ein Registername...
Als Variablennamen solltest Du besser z.B. sTabelle1 verwenden oder gleich einen sprechenden Namen.
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 |
|
Option Explicit
Option Compare Text
Sub Daten_uebertragen()
Dim i As Long, iOutzeile As Long, iAnz As Integer
Application.ScreenUpdating = False
Worksheets("Datenbank ").Range("A18:AM18").Copy
Worksheets("Ziel").Activate
Range("A3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Ziel").Range("A4").Activate
iOutzeile = 4 ' Anfangsausgabezeile
With Sheets(Tabelle1)
For i = 4 To .UsedRange.Rows.Count
If .Cells(i, "A").Value Like "x" Then
Sheets(Tabelle3).Rows(iOutzeile).Value = .Rows(i).Value
iOutzeile = iOutzeile + 1
iAnz = iAnz + 1
End If
Next i
End With
Application.ScreenUpdating = True
MsgBox "Habe " & iAnz & IIf(iAnz = 1, " Satz", " Sätze") & " übertragen", vbInformation, "Daten übertragen"
End Sub
|
_________
viele Grüße
Karl-Heinz
|