Visual Basic-Quellcode
- Sub DatenImport()
- Dim Tabelle1 As Worksheet
- Dim Tabelle2 As Worksheet
- Set Tabelle1 = ThisWorkbook.Worksheets("Tabelle1")
- Set Tabelle2 = ThisWorkbook.Worksheets("Tabelle2")
- ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=11, Criteria1:= _
- "<>"
- Tabelle1.Range("A7:D200").Copy
- Tabelle2.Range ("A" & Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(X1up).Row + 1): PastSpecial_ Paste:=x1Values, Operation:=x1None, SkipBlanks:=False, Transpose:=False
- Application.CutCopyMode = False
- ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=11
- End Sub
Hallo Leute ich habe mal wieder eine Frage! Ich komme leider nicht weiter bei meinem Quellcode. VBA zeigt mir einen Fehler an (Unzulässige Verwendung einer Eigenschaft).
Ich versteh den Fehler leider nicht, Falls ihr einen Einfall habt wäre ih euch sehr dankbar!
Also Allgemein wollte ich Daten aus einer Tabelle in eine andere Kopieren. Jedoch sollen die Daten Fortlaufend eingetragen werden. Es soll überprüft werden ob in der Zeile was steht und von da aus soll ein Feld nach unten die Eintragung passieren. Vielleicht könnt ihr Profis mir hierbei helfen?
Ich danke euch schonmal im voraus und Wünsche allen einen Guten Rutsch ins Neue Jahr. Entspannt euch schön und genießt die Freie Zeit!!