Unterstützung VBA Code

[Tala84]

Hallo zusammen

Ich habe eine Aufgabe welche ich gerne mit VBA lösen möchte. Jedoch komme ich mit Videos aus dem Netz nicht weiter.
 
Gibt es evtl. jemanden der mir hier helfen könnte beim Code? Wäre euch sehr dankbar.

Aufgabe ist wie folgt:
Ich habe Tabelle 2 mit den Rohdaten sowie Tabelle 1 wo ich diese einfügen möchte.

Aus Tabelle 2 soll jetzt nach allen K- in der Spalte D gesucht werden. Wenn K- ist, so soll der Wert aus F oder G (je nach dem wo der Wert drin steht) übernommen werden auf Tabellenblatt 1 unter Spalte H.
Zudem soll es in der Spalte G Tabelle 1 entweder HGK oder BNK eingesetzt werden. Je nach dem aus welcher Spalte der Wert kam.

Dies wäre die Knacknuss.
Das Programm soll dann von Zeile 2 runterlaufen bis zum Schluss und entsprechend auf Tabelle 1 alle auflisten.

Das Programm vollständig wäre noch, wenn es dann auch noch die Gerätenummer Datum etc. übernimmt in Tabelle 1.

Hätte hier jemand einen Input?

Vielen Dank im Voraus.
LG Tala

[ralf_b]

wo bist du denn mit deinem Netz vba stehengeblieben?

helfen ja. dir fertigen Code vor die Nase setzen, nein.

[LuckyJoe]

... und am besten zeigst du uns noch eine (anonymisierte) Beispieltabelle, aus der erkennbar ist, was du möchtest Hinweis. Hier im Forum baut man die Tabellenstruktur, wie du sie haben möchtest, ungern nach.

[Tala84]

Hallo zusammen

Danke für eure Antworten. Ich habe heute morgen nochmals daran gearbeitet und es eigentlich schon hingekriegt.

Jedoch ist das Programm sehr langsam. Wenn ich es laufen lasse (Modul 2) läuft es sehr langsam. Wenn ich auf Stopp drücke, dann läuft es nachher schneller durch.

Da die Rohdaten in Tabelle 2 danach noch viel mehr sind wäre ich froh, wenn Ihr evtl,. einen Tipp hättet für ein effizienteres Program.

Zudem. Kann man kopieren, ohne das die Zielformatierung überschrieben wird?

Danke und Gruss
Tala.

---

Jetzt habe ich eine Schaltfläche gesetzt und das Makro zugewiesen. So läuft es sehr schnell. :)

Somit wäre evtl. nur noch die Frage nach der Formatierung.
Und evtl. habt Ihr ja doch noch eine Verbesserung bezüglich Code.

LG

[Tala84]

Noch eine Frage.

Ich möchte gerne eine Inputbox machen wo man einen Namen eines Tabellenblatts hineinschreiben kann und danach soll mit diesem gearbeitet werden.




Dim Tabellenname as String

Tabellenname = Inputbox("Bitte Blattname eingeben")

With Worksheets("Tabellenname")



Mir geht es vor allem um den letzen With Befehl. Was muss ich dort schreiben damit die restliche Prozedur welche noch folgt dann mit dieser Tabelle arbeitet?

[ralf_b]

wenn du schon programmierst, dann nimm auch ne userform für Benutzereingaben.  dort eine Listbox rein und alle Worksheets auflisten. die brauchste dann nicht mal von Hand eintippen. 

Ich sehe keinen Button oder Schaltfläche. 

für deine Kopieraktionen habe ich folgenden Vorschlag
.Cells(lngZeile, 6).Copy Destination:=Tabelle1.Cells(lngZ, 8)
versuchs mal so 
Tabelle1.Cells(lngZ, 8).value = .Cells(lngZeile, 6).value
im withbefehl referenzerst du das objekt mit einem punkt "." z.b. .Cells(1,2)