Hallo VBA Experten,
ich bin leider nicht so ein Profi wie ihr sondern sitze gerade an meinem ersten jungfräulichem VBA Skript und komme einfach nicht weiter.
Ich erkläre erst einmal die ganze Sache.
Ich möchte Reklamationen in einem Excel Formular erfassen. Dies ist auch soweit kein Problem. Jedoch möchte ich diese Daten dann in einer externen Liste sammeln um eine Jahresstatistik zu erstellen.
Bin dann auf 2 Probleme gestoßen.
Ich würde gerne Einträge mit gleicher Nummer ersetzen.
Gibt es aber eine neue Nummer soll dies in eine leere Spalte eingetragen werden (am besten die letzte)
Leider macht mein Script immer nur eins von beiden.
Hier der Code.
Private Sub CommandButton2_Click()
'Reklaliste aktualisieren
Dim i As Long
Worksheets("Tabelle3").Visible = xlSheetVisible 'Tabellenblatt einblenden
Sheets("Tabelle3").Select 'Tabellenblatt auswählen
Rows("2").Copy 'Zeilenbereich kopieren (Darstellung schon wie in der Liste)
Workbooks.Open Filename:= _
"C:\Reklaübersicht Krins.xlsm"
'Suchfunktion Laufzeitfehler 438
If i = Application.WorksheetFunction.Match(Workbooks("Vorlage 4D Report 1 Befehl.xls").Sheets("Tabelle3").Range("A2"), Workbooks("Reklaübersicht Krins.xlsm").Sheets("Tabelle1").Colums("A"), 0) Then
On Error GoTo 0
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
MsgBox " aktualisiert"
Else
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
MsgBox "Neu in Liste abgelegt"
Ich bedanke mich im voraus schon einmal für eure Hilfe und hoffe auf fruchtbaren Boden.