Thema Datum  Von Nutzer Rating
Antwort
Rot Wert aus Tabelle 1 in Tabelle 2 suchen+kopieren
 10.06.2008 15:56:25 Nathanael
NotSolved
11.06.2008 07:50:08 jh
NotSolved

Ansicht des Beitrags:
Von:
Nathanael		 Datum:
10.06.2008 15:56:25		 Views:
1796		 Rating:
     
Antwort:
  Ja
Thema:
Wert aus Tabelle 1 in Tabelle 2 suchen+kopieren
Hallo Zusammen,

habe mir eine Funktion gebaut, mit der ich in einer Tabelle einen
Wert suchen kann in und wenn gefunden dann zwei danebenliegende zellen kopiere und neben den Suchwert einfüge. Wie krieg ich das Gleiche hin, wenn ich den Wert auf nem anderen Tabellenblatt suche und auch wieder bei Finden zwei Zellen kopiere und im ersten Blatt wieder einfüge? Es geht mir hauptsächlich darum, wie ich auf das zweite Blatt komme, da meinen Wert suche und zwei Zellen in der gleichen Reihe mitnehm und dann wieder aufs erste Blatt komme und die neben dem Suchbegriff in die Reihe einfüge. Für Suche auf dem gleichen Blatt funktionierts einwandfrei. Danke für Hilfe

Sub AVGN_Suchen_Spezial()

Dim strSuche As String ' Danach wird gesucht
Dim rngFound As Range ' hier wurde es gefunden
Dim strFirstAddress As String ' die Adresse der 1. Fundstelle
Dim i As Long ' Zeilenzähler in Spalte für alle zu suchenden
Dim l As Integer
Dim k As Long




i = 2 ' 1. Ergebnis in Zeile 2, da erste Zeile Headline

For k = 2 To 127
strSuche = Range("AA" & k).Value ' zu sucheneder Wert
' After ans Ende stellen, damit die 1. Zelle von oben auch sicher gefunden wird


Set rngFound = Columns(1).Find(What:=strSuche, After:=Cells(Rows.Count, 1), _
LookIn:=xlValues, lookat:=xlWhole)
If rngFound Is Nothing Then Exit Sub ' nix gefunden

' 1. Fundstelle merken fürs Abbrechen merken um FindNext abzubrechen
strFirstAddress = rngFound.Address

Do
'Da sollen die neben der Fundstelle stehenden Zellen hin
Cells(k, 28).Value = rngFound.Offset(, 1).Value


Cells(k, 29).Value = rngFound.Offset(, 2).Value


' nächstes Ergebnis in nächste Zeile
i = i + 1
' Weitersuchen
Set rngFound = Columns(1).FindNext(rngFound)
Loop While rngFound.Address <> strFirstAddress
Next k
End Sub

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 Wert aus Tabelle 1 in Tabelle 2 suchen+kopieren
 10.06.2008 15:56:25 Nathanael
NotSolved
11.06.2008 07:50:08 jh
NotSolved