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