Tabellenkalkulation

Makro zum kopieren von mit bestimmtem Inhalt gefüllten Zeilen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Also ich hab ne Tabelle mit ca. 10.000Zeilen mit diversem zusammengehörigem Inhalt. unter anderem stehenin einer Spalteverschiedene Telefonnummern. Nun brauch ich ein Makro das die Komplette Zeile, in der bestimmte Telefonnummern stehen in eine neue excel Datei Kopiert.

Antwort 1 von Saarbauer

Hallo,

die Angaben sind für eine Hilfe bzw. Problemlösung nicht ausreichend.

Entweder besser beschreiben oder hier

http://www.netupload.de/

erne Beispieldatei einstellen und den Link hier hinterlegen.

Gruß

Helmut

Antwort 2 von Goof

datei hochgeladen
allerdings stark gekürzt und auch geschwärzt wegen des Datenschutzes.

http://www.netupload.de/detail.php?img=325a1454e80598d696364c087b958beb.xls

Antwort 3 von fedjo

Hallo Goof,

cote in Tabelle1 einfügen, Daten werden automatisch in Tabelle2 übertragen, wenn in Spalte "C" die Vorwahl 160 oder 170 eingetragen werden.

Gruß
fedjo
Mustertabelle

Private Sub
Worksheet_Change(ByVal Target As Range)
´Überträgt Daten in eine andere Tabelle2
Dim Zfrei As Long
If Target.Column = 3 And Cells(Target.Row, Target.Column) = "160" Or "170" Then
Zfrei = Sheets(2).Cells(65536, 1).End(xlUp).Row + 1
Sheets(2).Range("A" & Zfrei & ":I" & Zfrei) = _
Sheets(1).Range("A" & Target.Row & ":I" & Target.Row).Value2
End If
End Sub

Antwort 4 von commandergoof

Danke für die hilfe ;-) ... hat mir geholfen *g*