Tabellenbereich durchsuchen und in eine andere Tabelle kopieren

Timo021280 · 30. November 2017, 22:35

Hallo,

ich brauche eure Hilfe zum Thema VBA da ich noch keine Erfahrung hiermit gemacht habe.

Und zwar habe ich 2 Tabellen und möchte nu einen Bereich (zb. b11:G124) in Tabelle2 über eine Input Box die sich in Tabelle1 befindet nach einem Wert durchsuchen und die Zellen nach Tabelle1 in dem selber Bereich kopieren.
Der Wert den ich in die input box eingebe kann entweder nur einmal im Bereich vorkommen (zb. Seriennummer) oder mehrmals (zb. verfügbar). Die Formatierungen der Zellen sollen nicht mit kopiert werden.

über eure Hilfe wäre ich sehr dankbar

Gruß

petaod · 30. November 2017, 22:42

Visual Basic-Quellcode

For Each c in Tabelle1.Range("C4:G123")
if c.Value = InputBoxValue Then Tabelle2.Range(c.Address).Value = c.Value
Next

Timo021280 · 1. Dezember 2017, 08:50

Hallo petaod,
Danke für deine schnelle Hilfe. Der Code funktioniert nicht... Die inputbox öffnet sich nicht beim Drücken des Button auf dem Tabellenblatt 1 um einen Suchbegriff einzugeben. Daraufhin kopiert er keine Zellen aus dem Tabellenblatt 2

VaporiZed · 1. Dezember 2017, 09:25

@Timo021280: Eigeninitiative, um das Rätsel selbst zu lösen, ist im Forum wichtig. Folgendes fehlt natürlich noch vor dem von petaod gezeigten Code:

Visual Basic-Quellcode

Dim InputBoxValue As String
InputBoxValue = InputBox("Der zu suchende Wert:")
Dim c As Range

Tabellenbereich durchsuchen und in eine andere Tabelle kopieren

Tabellenbereich durchsuchen und in eine andere Tabelle kopieren

Visual Basic-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben