Thema Datum  Von Nutzer Rating
Antwort
Rot Suchschleife
 03.08.2010 12:30:24 Torsten
NotSolved
03.08.2010 12:47:51 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
03.08.2010 12:30:24		 Views:
1604		 Rating:
     
Antwort:
  Ja
Thema:
Suchschleife
Hi zusammen.
Ich verwede folgenden Quellcode um in einer Exceltabelle Daten zusuchen. Diese werden dann kopiert und in eine andere Tabelle eingetragen. Um verschiedene Werte zu suchen führe ich den Code mehrmals hintereinander aus, also für jeden Suchwert individuell.

Lässt sich das auch so gestalten, das ich ein Array? für die Suchwerte und die Zielzellen eingebe? Also damit den Quellcode verkürzen kann?

[code]
'Suchen 1. Wert (Suchwert1)

CodeName$ = "Suchwert1"
CodeDatenzeile$ = " "

Windows("Suchtabelle").Activate
Range("A1").Select
Selection.Range("A1:A203").Select
For Each Z In Selection
If Z.Value = CodeName$ Then CodeDatenzeile$ = Z.Address
If CodeDatenzeile$ <> " " Then Exit For
Next Z

If CodeDatenzeile$ <> " " Then
Range(CodeDatenzeile$).Select

Application.CutCopyMode = False
Selection.Copy
Windows("Zieltabelle").Activate
Range("Zielzelle").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.NumberFormat = "0.000"
End If
[/code]

MfG
Torsten

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
Rot Suchschleife
 03.08.2010 12:30:24 Torsten
NotSolved
03.08.2010 12:47:51 Torsten
NotSolved