Thema Datum  Von Nutzer Rating
Antwort
01.12.2015 19:32:24 Vossy
NotSolved
Blau Wert in Zeile finden und gefundene Spalte kopieren
 02.12.2015 15:54:47 Gast38368
NotSolved
02.12.2015 19:45:59 Gast43262
Solved

Ansicht des Beitrags:
Von:
Gast38368		 Datum:
02.12.2015 15:54:47		 Views:
654		 Rating:
     
Antwort:
  Ja
Thema:
Wert in Zeile finden und gefundene Spalte kopieren

Hallo Vossy! So würde es gehen. Gruß


Sub suchen()

Dim suche As String
Dim ergebnis As Object

Application.CutCopyMode = False
'Suchwert festlegen
suche = Worksheets("Auswahl").Cells(1, 1).Value

'Wert suchen und kopieren
Set ergebnis = Worksheets("Gesamt").Range("B3:HH3").Find(suche, LookIn:=xlValues) 'verweist auf ein Rangeobject wo suche gefunden wurde

If Not ergebnis Is Nothing Then
    'gleich kopieren
   Worksheets("Gesamt").Columns(ergebnis.Column).Rows("3:500").Copy Destination:=Worksheets("Auswahl").Columns(3)
Else
MsgBox "Es wurde nichts gefunden!"
End If

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
01.12.2015 19:32:24 Vossy
NotSolved
Blau Wert in Zeile finden und gefundene Spalte kopieren
 02.12.2015 15:54:47 Gast38368
NotSolved
02.12.2015 19:45:59 Gast43262
Solved