Thema Datum  Von Nutzer Rating
Antwort
17.01.2018 19:17:40 Eugen
NotSolved
Blau Suchen und Kopieren
 17.01.2018 20:39:30 Crazy Tom
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
17.01.2018 20:39:30		 Views:
479		 Rating:
     
Antwort:
  Ja
Thema:
Suchen und Kopieren

Hallo

 

deinen Anfang fortgesetzt

 

Sub suchen()
Dim rngFind As Range
Dim strTitel As String
'suchdialog kreieren
strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 5, 5)
'zu durchsuchenden spaltenumfang angeben
Set rngFind = Columns("A:H").Find(strTitel, LookIn:=xlFormulas, lookat:=xlWhole)
'zur stelle springen oder message ausgeben
If Not rngFind Is Nothing Then
    Cells(rngFind.Row, "K").Value = Cells(rngFind.Row, "E").Value
Else
    MsgBox "Es wurde nichts gefunden"
End If
End Sub

 

MfG Tom

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
17.01.2018 19:17:40 Eugen
NotSolved
Blau Suchen und Kopieren
 17.01.2018 20:39:30 Crazy Tom
NotSolved