automatisch zum letzten Wert in der Zeile

Hallo,
ich habe 2 Tabellen. In der ersten befinden sich Teilenummern, die durch die Information, wann die Teile anlaufen/eingeführt (Datum) werden ergänzt werden sollen.
In der zweiten Tabelle gibt es mehr als nur die Teilenummern der ersten Tabelle(mehr als 5000 Stück). In der Kopfzeile werden die einzelnen Tage vom 01.01.2004 bis Juli 2004 aufgeführt. In jeder Zeile wird zu jeder Teilenummer an einem bestimmten Tag der Betrag aufgeführt, das heißt dieses Teil wird hier zum ersten mal benötigt.
Ich möchte jetzt die Artikelnummer in der ersten tabelle mit der Artikelnummer der zweiten tabelle suchen und wenn ein Betrag in der Zeile auftaucht das Datum aus der Kopfzeile in die erste Tabelle eintragen.
Mit SVERWEIS komme ich da nicht weiter und habe leider keine Idee, welche Möglichkeiten es noch gibt, außer manuell alles suchen und per Hand eintragen :o).
Vielen Dank für Eure Hilfe
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
versuch das mal:


Sub DatumErgänzen()
Dim such As Range, Tagesdatum As Range, i As Integer
On Error GoTo errorhandler
Sheets("plan").Activate
Set such = Application.InputBox("Bitte die mit Datum zu ergänzende Artikelnummer per Mausklick in Spalte B der Tabelle ""Plan"" auswählen:", "Suchen", Type:=8)
Set Tagesdatum = ActiveSheet.Cells(1, such.Offset(0, 2).End(xlToRight).Column)
If MsgBox("In Tabelle ""FoW - PartnumberVariants Launch"" wird jetzt in Spalte E die Artikelnummer " & vbCrLf & vbCrLf & vbCrLf & _
such.Value & vbCrLf & vbCrLf & vbCrLf & "mit dem Datum " & vbCrLf & vbCrLf & vbCrLf & _
Tagesdatum.Value & vbCrLf & vbCrLf & vbCrLf & "ergänzt.", vbYesNo, "Wirklich ergänzen?") = 6 Then
For i = 1 To Sheets("FoW - PartnumberVariants Launch").Range("a65536").End(xlUp).Row
If Sheets("FoW - PartnumberVariants Launch").Cells(i, 1).Value = such.Value Then
Sheets("FoW - PartnumberVariants Launch").Cells(i, 1).Offset(0, 4).Value = Tagesdatum.Value
'############################################################^HIER^##kann die Spaltenzahl
'##(jetzt 4) geändert werden, in die das Datum rein soll
End If
Next i
End If
Set Tagesdatum = Nothing
Set such = Nothing
Exit Sub
errorhandler:
If Err.Number = 424 Then
MsgBox " Es wurde nichts geändert"
Else
MsgBox "Unbekannter Fehler im Makro ""DatumErgänzen""."
End If
Set Tagesdatum = Nothing
Set such = Nothing
End Sub

Gruß
Roland

Sub DatumErgänzen() Dim such As Range, Tagesdatum As Range, h As Integer, i As Integer For h = 2 To Sheets("plan").Range("b65536").End(xlUp).Row Set such = Sheets("plan").Cells(h, 2) Set Tagesdatum = Sheets("plan").Cells(1, such.Offset(0, 2).End(xlToRight).Column) For i = 1 To Sheets("FoW - PartnumberVariants Launch").Range("a65536").End(xlUp).Row If Not IsEmpty(Tagesdatum) _ And Sheets("FoW - PartnumberVariants Launch").Cells(i, 1).Value = such.Value Then Sheets("FoW - PartnumberVariants Launch").Cells(i, 1).Offset(0, 3).Value = Tagesdatum.Value Exit For End If Next i Set Tagesdatum = Nothing Next h Set Tagesdatum = Nothing Set such = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

automatisch zum letzten Wert in der Zeile

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatisch zum letzten Wert in der Zeile

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread