Thema Datum  Von Nutzer Rating
Antwort
07.03.2009 12:52:41 Simone Baur
NotSolved
Blau Aw:Tabelle durchsuchen und Wert kopieren
 08.03.2009 13:24:11 Holger
NotSolved
08.03.2009 20:50:54 Simone Baur
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
08.03.2009 13:24:11		 Views:
1183		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Tabelle durchsuchen und Wert kopieren
Hallo Simone Baur,
was soll Excel in den Spalten A finden? Die Nummer? Falls ja

n=worksheets("Formular").cells(8,1)
worksheets("W").activate
for i =1 to Cells(Rows.Count, 1).End(xlUp).Row
if cells(i,1)=n then
worksheets("Formular").cells(8,1)=cells(i,2)
worksheets("W").activate
exit sub
end if
worksheets("R").activate
for i =1 to Cells(Rows.Count, 1).End(xlUp).Row
if cells(i,1)=n then
worksheets("Formular").cells(8,1)=cells(i,2)
worksheets("W").activate
exit sub
end if
msgbox "Nummer nicht gefunden"

Gruß
Holger

Simone Baur schrieb am 07.03.2009 12:52:41:

Hallo ertmals.
Nun probiere ich schon seit Stunden ein problem zu lösen und schaffe es einfach nicht. Vielleicht kann mir hier jemand helfen.
Ich habe 3 Arbeitsblätter: Formular, W, R
Im Formular gibt man bei der Zelle: A8 eine Nummer ein, dann sollte man einen Button anklicken.
Nun sollte Excel die Spalte A in Blatt "W" und "R" durchsuchen, wenn Excel was findet (in einer Zeile), sollte er den Text von der 2. Spalte vom jeweiligen Blatt (W ODER R) zum Arbeitsblatt "Formular" in das Feld C8 kopieren.
Etwas schwierig zum schreiben. Kann man das realisieren?
Welcher VBA-Code? Habe schon einige probiert, aber nichts klappt richtig...?

Gruß
Simone aus dem Süden der Nation

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.03.2009 12:52:41 Simone Baur
NotSolved
Blau Aw:Tabelle durchsuchen und Wert kopieren
 08.03.2009 13:24:11 Holger
NotSolved
08.03.2009 20:50:54 Simone Baur
NotSolved