MeineDatei = Dort steht die Seriennummer in E22:E9999 der jeweiligen Maschinen
in meiner Datei soll dann eben in G22:G9999 zur jeweiligen Maschine ein Nein eingetragen werden wenn diese in Datei_zum_ablgiech im Tabellenblatt Delivered 2017, Deliviered 2018 usw. später mal gefunden werden dort stehen die Seriennummern in der Spalte F2:F9999 welche ja mit meiner E verglichen werden sollte ob da die Seriennummer auch vorhanden ist.
Dieser Code funktioniert nicht so wie es sollte :(
Code:
Sub JaNein()
Dim TB, Pfad As String, Datei As String, Jahr As Integer
Dim Blatt As String, Ext As String, RNG As Range
'Anpassen
Set TB = ThisWorkbook.Sheets("Tabelle1")
Pfad = "X:\Temp\Test\" ' mit \ am Ende
Datei = "Datei2.xlsx"
Jahr = InputBox("welches Jahr", "Delivered im Jahr", Year(Date))
Blatt = "Delivered " & Jahr
Set RNG = TB.Range("G22:G999")
'Anpassen Ende
Zitat:Dieser Code funktioniert nicht so wie es sollte [img] Dateiupload bitte im Forum! So geht es: Klick mich! ]
Wo ist das Problem?
Mein Eindruck, hier werden Dateien hochgeladen und ich soll suchen wos klemmt.
Natürlich kann man mit VBA Formeln in Dateien eintragen.
Aber wenn ich schon bei VBA bin, warum mach ich dann nicht den Abgleich in VBA?
sieht aus wie wenn das nicht alle 5 Minuten zu machen ist, eher wie 1x im Jahr
Un deine Datei schein ein Sammelsurium aller Möglichen Codeschnipsel zu sein, da hat auch Hajo mitgearbeitet
:100:
Also es wird nicht 1x im Jahr gemacht. Eher 1x die Woche.
wir liefern Maschinen aus jeden Tag.
Und um nicht von hand suchen zu müssen welche Maschine schon weg ist oder auch nicht, war eben die Idee zu suchen ob die Maschine mit der Seriennummer in Delivered 2017, 2018 usw drin steht um diese dann zu ändern das sie nicht mehr auf den Status Ja sonder Nein ist.
Nein Maschinen blende ich dann aus.
DIe Dateien habe ich hochgeladen das man sieht was ich genau meine, auch wenn ich es beschrieben habe was ich gerne hätte.
Wo möchtest du denn den geposteten Code einbauen?
In welche Zelle soll die Formel den rein?
Schreib die Formel doch mal in Excelformel-Form
Hier gibts viele Formelspezialisten
Einbinden kannste die dann mit .Formulalocal
Also wenn ich den Code ausführe schreibt er mir zeilen auf Ja und Nein um die in meiner Datei gar keine Maschine beinhalten.
Bei mir sind die Maschinen anderes angeordnet also nicht in der gleichen Reihenfolge, da diese Datei aus der Logistik Abteilung stammt.
Sieht also so aus als würde er nicht meine Seriennummer nehmen diese in der Datei zum Abgleich suchen unter Delivery 2017 (als Beispiel Jahr kann ich ja eingeben beim ausführen) und dann nur Maschinen die bei mir exisitieren in der Liste auch auf nein ändern.
Er schreibt mir ewig weiter wo kein Eintrag mehr ist Ja und Nein in meine Tabelle. Habe die Vermutung er über nimmt nur die Spalte 1:1 kenne mich da aber mit dem Code nicht so gut aus.
Habe zwar einiges nun schon gemacht, aber hier komme ich gar nicht mehr weiter :(
Moin,
ich frage mich: Warum VBA?
Ich denke, dass das mit Power Query aks Daten | Abrufen und transformieren besser und komfortabler lösbar ist.
Da ich aber aus Gründen der Datenhygiene keine Makro-belasteten Files aus dem Netz lade, kann ich nur spekulieren.
Ach ja, und aus meiner Sicht ist deine Beschreibung nicht wirklich transparent ...
Beste Grüße Günther
Excel-ist-sexy.de …schau doch mal rein! Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
16.01.2018, 12:19 (Dieser Beitrag wurde zuletzt bearbeitet: 16.01.2018, 12:19 von Wastl.
Bearbeitungsgrund: Ergänzung
)
Hallo Gast,
ja
ich hänge die beiden Blätter mal als eine Datei an ohne VBA
PS: das ist aber eigentlich die Aufgabe des TE uns Beispiele zu liefern mit denen wir arbeiten können ohne unsere System zu verbiegen
Der vom TE weiter oben angeführte Code kann von der Suche im Projekt nicht gefunden werden.
