|
Hallo zusammen,
mein bisheriger Code funktioniert
Ich wähle durch ein Dropdown ein Teil aus z.B. Rohre und aktualisiere das Makro.
Dies bedeutet, dass die Werte aus der Tabelle Rohre in die TestGesamt eingefügt werden.
Jetzt stehe ich nur vor dem Problem, dass bei der nächsten Datenaktualisierung die neuen + die alten Werte in die TestGesamt Tabelle kopiert werden.
Ziel ist es, dass das Makro schaut, ob die Teilenummer, Bezeichnung,Ort, Stückzahl schon in dieser Kombi in der TestGesamt Tabelle eingefügt ist und nur eine Aktualisierung vornimmt, wenn die Werte noch nicht überttragen worden wurden.
Ich hatte an einen If Befehl gedacht vor der For Schleife, der durch einen Wert prüft, ob in der Spalte A die Teilenummer schon überttragen wurde.
Leider hat es nicht zum Ziel geführt
Tabellenauffbau: Teilenummer, Bezeichnung, Ort, Stückzahl
---------------------------------
Sub Teile_Copy()
Dim Teile As String 'Dim + Variablenname + as + Datentyp
Dim i As Integer
Dim j As Integer
Teile = Sheets("TestGesamt").Range("H2").Value
If Teile = "Bitte Gruppe wählen" Then
MsgBox "Bitte Gruppe wählen"
Exit Sub
End If
Dim LastRow As Integer
LastRow = TestGesamt.Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 1 To 20
For j = 1 To 20
If Sheets(Teile).Cells(1, i) = TestGesamt.Cells(1, j) Then
Sheets(Teile).Range(Sheets(Teile).Cells(2, i), Sheets(Teile).Cells(Rows.Count, i).End(xlUp)).Copy TestGesamt.Cells(LastRow + 1, j)
Exit For
End If
Next
Next
TestGesamt.Range("H2") = "Bitte Gruppe wählen"
End Sub
-------------
'???????????TTnr nicht schon in Tabelle. Inhalte durchsuchen in Spalte A1. ????????????
'Wenn TTNR not in A Then....
'If Spalte A1 TTnr Not = was ausgewählt ist A1, Then
'Dann for sschleife
' Wert = Cells(Range(Selection, Selection.End(xlDown)).Select) 'Werte in Tabelle TestGesamt markieren
'If Wert = in Spalte A Then
'Nichts machen
'Else
'For Schleife
' Set a = Columns(4).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
' If Not a Is Nothing Then
' 'Fundort a(1,1)
' End If
'
|