Hallo Zusammen,
folgendes Problem. Ich habe eine " Daten" diese ist mit einer Datenbank verbunden und aktualisiert sich selber. In dieser Tabelle sind
Werte die ich gerne in einer andere Tabelle durch eine Suchfunktion kopieren möchte. Es sollen alle Werte in die Tabelle kopiert werden
die "gefunden" wurden. Dies soll aber in einem Bestimmten breich passieren.
Mein derzeitiger Code kopiert mir alle Spalten und Zeilen die er gefunden hat in eine neue Tablle.
Bsp: Daten Tabelle 1 ( Daten )
ID Lieferant StandortNummer Netzelementnummer StandortName StandortPLZ StandortStrasse Hersteller Typenbezeichnung ItemCode HWRevision Serienummer User
12 Nokia 1111111 121212 Berlin 00000 KarlAllee Nokia FPMA 44444 8888 88888
Code:
Dieser Code kopiert mir den Fund in die neue Tabelle3.
Ich möchte aber nur den Breich von Hersteller bis Seriennummer in die neue Tabelle kopiert haben.
Mein Problem dazu ist noch ich möchte das nicht am Anfang der Tabelle haben sondern ab B10.
Hat einer dazu eine Lösung?
folgendes Problem. Ich habe eine " Daten" diese ist mit einer Datenbank verbunden und aktualisiert sich selber. In dieser Tabelle sind
Werte die ich gerne in einer andere Tabelle durch eine Suchfunktion kopieren möchte. Es sollen alle Werte in die Tabelle kopiert werden
die "gefunden" wurden. Dies soll aber in einem Bestimmten breich passieren.
Mein derzeitiger Code kopiert mir alle Spalten und Zeilen die er gefunden hat in eine neue Tablle.
Bsp: Daten Tabelle 1 ( Daten )
ID Lieferant StandortNummer Netzelementnummer StandortName StandortPLZ StandortStrasse Hersteller Typenbezeichnung ItemCode HWRevision Serienummer User
12 Nokia 1111111 121212 Berlin 00000 KarlAllee Nokia FPMA 44444 8888 88888
Code:
Code:
Dim loDeinWert As Long
Dim sFirstAdress As String
loDeinWert = 11994759 'gesuchter Wert
Set rng = Worksheets("Tabelle1").Range("C:D").Find(loDeinWert)
If rng Is Nothing Then
MsgBox "Wert " & loDeinWert & " nicht gefunden!"
Else
sfirstaddress = rng.Address
Do
rng.EntireRow.Copy
Worksheets("Tabelle3").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("Tabelle1").Range("C:D").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If
End Sub
Dieser Code kopiert mir den Fund in die neue Tabelle3.
Ich möchte aber nur den Breich von Hersteller bis Seriennummer in die neue Tabelle kopiert haben.
Mein Problem dazu ist noch ich möchte das nicht am Anfang der Tabelle haben sondern ab B10.
Hat einer dazu eine Lösung?