Ich habe eine Excel Tabelle mit nur einer Spalte.
In dieser Spalte stehen in den Zellen bestimmte Inhalte z.B.:
Hund
Katze
Maus
Onkel Otto
Fisch
Nun möchte ich ein VBA-Makro erstellen, welches folgendes tut:
Per STRG+V soll der Inhalt der Zwischenablage in die erste freie Zelle der Spalte A eingefügt werden.
Das soll allerdings nur erfolgen, wenn der Inhalt noch nicht in der Tabelle vorhanden ist.
Somit soll also verhindert werden, dass doppelte Einträge in der Tabelle auftauchen, ohne dass ich das vor jedem Einfügen "von Hand" überprüfen muss.
Nach dem Einfügen in die erste leere Zelle soll dann die darauffolgende erste leere Zelle selektiert werden.
Der Inhalt der Zwischenablage soll übrigens ohne jegliche Formatierung, also als reiner Text, eingefügt werden.
Ich habe dazu folgenden VBA-Code:
Sub Ablage()
' Fügt den Inhalt der Zwischenablage in die erste freie Zelle ein, wenn er noch nicht in der _
Tabelle vorhanden ist.
If ActiveSheet.Name = "P" Then
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.PasteSpecial Format:="Text"
If Application.WorksheetFunction.CountIf(Range("A:A"), Range("A65536").End(xlUp)) > 1 _
Then Selection.ClearContents 'Range("A65536").End(xlUp).ClearContents
Cells(Range("A1").End(xlDown).Row + 1, 1).Select
End If
End Sub
Ich muss zugeben, dass ich den Code nicht selber erstellt habe.Sondern ich habe mir das quasi zusammen-gegoogelt :-)
Es hatte heute auch schon funktioniert.
Aber jetzt habe ich mir da irgendwie einen Fehler eingebaut, weil es eben jetzt nicht mehr funktioniert.
Und mit meinen sehr bescheidenen VBA-Kenntnissen, bin ich nicht in der Lage, den Fehler zu finden.
Könntet Ihr mir da evtl. behilflich sein?
Gruß
Thomas