Copy-Zellen spezifisches Wort zu Zelle auf einem anderen Blatt enthält

Question

I die folgenden Daten aufweisen:

Ich habe zwei Blätter.

1 = RESULTS 
2 = DASHBOARD 

Ich suche nach einer Formel, das Blatt ERGEBNISSE Spalt A sucht: A (ganze Spalte) für das Wort "Host-Namen" und kopiert dann der "Host-Name" auf dem Blatt DASHBOARD Zelle A1.

wenn möglich: (mit oben Bild als Beispiel) Ich würde es begrüßen, wenn die Formel für „Hostnamen“ suchen könnte und dann, bevor es zu kopieren A1 Zelle, entfernen Sie das Wort „Host Name:“ (mit Doppelpunkt). Das kopierte Ergebnis ist also nur USER-PC.

Answer 1

Platz diese Formel in DASHBOARD cell A1:

=MID(INDEX(RESULTS!A:A, MATCH("Host name:*", RESULTS!A:A,0)), 2+LEN("Host name:"),1000) 

Answer 2

Sie können auch tun dies mit vba aber es ist komplizierter, auf diese Weise:

Dim FindString As String 
FindString = "Host Name: " 
Dim Rng As Range 

    With Sheets(1).Range("A:A") 
     Set Rng = .Find(What:=FindString, _ 
         After:=.Cells(.Cells.Count), _ 
         LookIn:=xlValues, _ 
         LookAt:=xlPart, _ 
         SearchOrder:=xlByRows, _ 
         SearchDirection:=xlNext, _ 
         MatchCase:=False) 
     If Not Rng Is Nothing Then 
      Sheets(2).Range("A" & Rng.row).Value = Replace(Rng.Text, "Host Name:", "") 
    End With 
End If