Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wert suchen und in andere Zelle was eintragen

Wert suchen und in andere Zelle was eintragen
22.07.2015 15:05:07
Toumas
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert suchen und in andere Zelle was eintragen
23.07.2015 10:00:46
Toumas
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

AW: Wert suchen und in andere Zelle was eintragen
23.07.2015 10:09:53
Toumas
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

Anzeige
AW: Wert suchen und in andere Zelle was eintragen
23.07.2015 11:41:51
Toumas
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

Anzeige

335 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige