Wert suchen und in andere Zelle was eintragen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Wert suchen und in andere Zelle was eintragen
von: Toumas
Geschrieben am: 22.07.2015 15:05:07

Hallo zusammen,
ich bräuchte "nur" mal einen kleinen Tipp....
Gesucht wird eine Kennung, die im Tabellenblatt Usereingabe, Zelle B4 steht
Suchen muss man in Tabelle 2 Spalte B..
das schaffe ich auch ohne Probleme mit dem Makro :

Sub User_finden()
Dim s As String
Dim rg As Range
s = Sheets("Usereingabe").Range("B4").Text
Set rg = ActiveSheet.Columns("B:B").Find(s, , xlFormulas)
    If Not rg Is Nothing Then
     rg.Activate
     Cells(rg, 12).Resize(9, 10).Value = Worksheets 
"Usereingabe").Range"C4:G4").Value
    Else
        MsgBox s & " leider nicht gefunden"
    End If
       Set rg = Nothing
End Sub

Nun muss ich aber aus dem Sheet Usereingabe die Werte aus Zelle C4:G4 in den Sheet Tabelle 2 an der Stelle übernehmen (E-I) an der der User steht.
Ich hatte da schon mal was mit dem tagesaktuellen Datum :
Sub Einfügentagesaktuellen_Datum()
Dim varZ As Variant
With Worksheets("Postvolumen")
 varZ = Application.Match(CDbl(Date), .Columns(1), 0)
   If Not IsNumeric(varZ) Then
      MsgBox Date & "nicht gefunden"
   Else
     .Cells(varZ, 12).Resize(9, 10).Value = Worksheets("Hilfsblatt").Range("A2:J11").Value
   End If
End With
End Sub

Aber ich schaffe es nicht, beide Makros so zu kombinieren, dass praktisch die Userkennung in Tabelle2 (B) gesucht und dann die Werte aus dem Sheet "Usereingabe" C4:G4 nach Tabelle2 (dort wo der User steht) E:I zu kopieren...
Kann mir jemand von euch nen Tipp geben...
Vielen Dank im Voraus
Viele Grüße
Toumas

Bild

Betrifft: AW: Wert suchen und in andere Zelle was eintragen
von: Toumas
Geschrieben am: 23.07.2015 10:00:46
Hallo zusammen,
hab die Suchfunktion nun ausgereizt, aber irgendwie komme ich auf keine passende Lösung...
Vielleicht ist ja noch jemand so nett und kann mir den Tipp geben.
Danke
Viele Grüße
Toumas

Bild

Betrifft: AW: Wert suchen und in andere Zelle was eintragen
von: Toumas
Geschrieben am: 23.07.2015 10:09:53
Hab ne Lösung für mich gefunden..... (ja langsam lern ich es doch noch)
Auch wenn die alles andere als schön ist.....

Sub test1()
Dim s As String
Dim laR As Long
    s = Sheets("Usereingabe").Range("B4").Text
Application.Goto reference:=Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 1), Scroll:=True
Sheets("Usereingabe").Range("C3:G3").Copy
Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Grüße
Toumas

Bild

Betrifft: AW: Wert suchen und in andere Zelle was eintragen
von: Toumas
Geschrieben am: 23.07.2015 11:41:51
Hat sich erledigt, bin selbst draufgekommen
Auch wenn es keine schöne Lösung ist :

Sub test1()
Dim s As String
Dim laR As Long
s = Sheets("Usereingabe").Range("B4").Text
Application.Goto reference:=Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 1), Scroll:=True
Sheets("Usereingabe").Range("C3:G3").Copy
        
Sheets("Tabelle2").Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 5).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("Usereingabe").Range("C6:G6").Copy
Sheets("Tabelle2").Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 10).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("Usereingabe").Range("C9:G9").Copy
Sheets("Tabelle2").Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 15).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Sheets("Usereingabe").Range("C12:G12").Copy
Sheets("Tabelle2").Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 20).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Application.CutCopyMode = False
End Sub


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wert suchen und in andere Zelle was eintragen"