Thema Datum  Von Nutzer Rating
Antwort
28.06.2016 12:59:09 Lucas
NotSolved
Blau Frage zu meinem Code - Formatierung
 28.06.2016 13:16:05 Crazy Tom
NotSolved
28.06.2016 13:57:53 Gast58649
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
28.06.2016 13:16:05		 Views:
596		 Rating:
     
Antwort:
  Ja
Thema:
Frage zu meinem Code - Formatierung

Hi

ist denn kopieren unbedingt nötig?

oder reicht es aus nur die Werte einzutragen?

dann würde es so sicher passen

Sub test()
    Dim Suchergebnis As Range
    Dim SuchWert As String                                             '
    SuchWert = Range("F6")
    With Worksheets("OLDatenbank").Range("A1:A300")
        Set Suchergebnis = .Find(SuchWert, LookIn:=xlValues, lookat:=xlWhole)
        If Not Suchergebnis Is Nothing Then
            Sheets("Ausgabe").Cells(7, 2).Value = .Cells(Suchergebnis.Row, 1)
            Sheets("Ausgabe").Cells(6, 2).Value = .Cells(Suchergebnis.Row, 2)
        Else
            MsgBox "Diese Datenbank verzeichnet nicht die von Ihnen angefragte Person."
        End If
    End With
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
28.06.2016 12:59:09 Lucas
NotSolved
Blau Frage zu meinem Code - Formatierung
 28.06.2016 13:16:05 Crazy Tom
NotSolved
28.06.2016 13:57:53 Gast58649
NotSolved