Noch keinen Lösungsweg gefunden

Computer: Software & Programmierung Office Software
1

Hi nochmal.
Ich habe mir hestern fast die halbe Nacht um die Ohren gehaun, aber leider bin ich nicht all zu weit gekommen
Ich möchte, das mir das Makro aus Tabelle2 die Zeilen raussucht, wo in den A Zellen eben die Nummer steht, die ich bei der Inputbox eingebe.
Und das Makro sollte eben die gefundenen Zeilen ausschneiden und in Tabelle1 einfügen. Das müßte doch irgentwie funktionieren, oder nicht?

Sub Baustellensuchen()
Sheets(„Tabelle2“).Select
Dim suchstring As String
suchstring = InputBox(„Welche Baustellen Nummer?“)

2

Hi Krisam,

versuche einmal etwas in folgender Art. Natürlich kenne ich nicht Deine Sheetbezeichnungen

Sub Baustellensuchen()
 suchstring = InputBox("Welche Baustellen Nummer?")
 Sheets("Tabelle2").Select
 ZeileQuellsheet = 1
 ZeileZielsheet =
 While Cells(ZeileQuellsheet,1).Formula "" 
 If Cells(ZeileQuellsheet,1).Formula = suchstring Then
 Rows(ZeileQuellsheet:ZeileQuellsheet).Copy
 Sheets("Tabelle1").Select
 Rows(ZeileZielsheet).Paste
 ZeileZielsheet = ZeileZielsheet + 1
 Sheets(Tabelle2").Select
 End If
 ZeileQuellsheet = ZeileQuellsheet + 1
 Wend
End Sub

Hier können natürlich noch diverse Probleme auftauchen, die noch abgefangewn werden müssen: Hat das ZielSheet den richtigen Namen. Sind die Einträge in Spalte A numerisch oder alphanumerisch? Ist in jeder Zelle in Salte A ein Eintrag vorhanden.

Das Makro kann Dir also nur die Grundidee zeigen.

Ciao

Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]