Excel VBA Datenüberprüfung beim Einfügen (Strg+V) von Text in Zelle aufrecht erhalten?

Hallo zusammen,

ich greife gerade im Rahmen eines Projekts per Datenüberprüfung auf eine Auswahl von 6000+ Zellen zu und möchte falls ein Teil, das nicht zu den 6000 gehört eine Fehlermeldung ausgeben. Nun habe ich die Problematik, dass die Zelle mit der Datenüberprüfung eine Eingabezelle sein wird, d. h. der Benutzer wird Werte aus anderen XML Dokumenten hereinkopieren. Dies Formatiert die Zelle aber Standardmäßig um und entfernt die eingerichtete Datenüberprüfung.

Gibt es hier eine einfache Lösung dies zu verhindern? Ich habe es auch schon mit Excel VBA versucht (s. Quelltext) aber hier konnte ich nur die Datenüberprüfung nachdem sie entfernt wurde wieder hinzufügen. Das Problem hierbei ist, dass dem User keine Fehlermeldung angezeigt wird nachdem er den Text in die Zelle kopiert hat.

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
        :=xlBetween, Formula1:="='Zuord. Teil-Kart. Datenquelle '!$A$1:$A$6168"
        .IgnoreBlank = True
        .InCellDropdown = False
        .InputTitle = ""
        .ErrorTitle = "Teil nicht verfügbar"
        .InputMessage = ""
        .ErrorMessage = _
        "Teil nicht verfügbar, da:" & Chr(10) & "a) Teil existiert nicht" & Chr(10) & "b) Teil existiert, wird aber nicht in Kartonage verpackt --> Manuelle Frachtberechnung nötig" & Chr(10) & "c) Teil ist neu --> Rückmeldung an *** / ***"
        .ShowInput = True
        .ShowError = True
    End With
End If
Microsoft Excel, VBA
Excel VBA: Schaltfläche die je nach 1., 2., 3. Klick verschiedene Funktionen ausführt?

Hallo zusammen,

ich suche eine Lösung um eine Schaltfläche mit folgender Funktion in meinen Code zu integrieren.

  1. Klick auf schaltfläche --> Mache X
  2. Klick auf Schaltfläche --> Mache Y

wie geht das am einfachsten?

_________________________________________________________

Anbei mein Code:

Sub NeuePosHinzu()

'

' NeuePosHinzu Makro

'

'1. Klick

   Range("A1:F4").Select

   Selection.Copy

   Range("B8").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

' Soll beim 2. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B14").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

  

' Soll beim 3. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B20").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

   Range("A14:G17").Select

   Application.CutCopyMode = False

   Selection.Copy

   Range("A20:G23").Select

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

       SkipBlanks:=False, Transpose:=False

   Application.CutCopyMode = False

   Range("A20").Select

   ActiveCell.FormulaR1C1 = "Pos. 3"

'Soll beim 4. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B26").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

   Range("A20:G23").Select

   Application.CutCopyMode = False

   Selection.Copy

   Range("A26:G29").Select

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

       SkipBlanks:=False, Transpose:=False

   Application.CutCopyMode = False

   Range("A26").Select

   ActiveCell.FormulaR1C1 = "Pos. 4"

   Range("I21").Select

End Sub

Microsoft Excel, VBA
Outlook Signatur einfügen?

Hallo Gutefrage Community,

auch ich muss nun nach längerer Zeit mal wieder eine Frage stellen, denn ich komme nicht mehr weiter.

Nun, ich möchte mir eine neue Outlook Signatur erstellen.
Das Problem besteht darin, dass in dieser Signatur ein Bild vorhanden sein soll.
Wenn ich den Text eingegeben habe und im Anschluss ein Bild einfügen will, erscheint dieses immer am Ende des geschrieben Textes (Name, Anschrift etc).

Ich kann dieses Bild aber auch nicht innerhalb der Signatur verschieben. Es bedeutet, das Bild bekomme ich nicht dorthin wo ich es haben will.

Nun habe ich schon die Signatur in Word erstellst und dort das Bild an die richtige Stelle verschoben. Wenn ich das ganze nun in die Outlook Signatur verschieben will, geht das nur als Grafik, was aber wiederum bedeutet, das die E-Mails, welche Teil der Signatur sind, nicht mehr vom Leser angewählt werden kann. Außerdem soll dort ein Smart-Link eingearbeitet sein, was als Grafik auch nicht mehr möglich ist.

Also: wie bekomme ich die Signatur in Outlook so bearbeitet, dass das Bilf dort steht wo ich es haben will, ohne dass die Signatur eine reine Grafik ist, in der die Adresse und die E-Mails nicht mehr mit einem Smart-Link verknüpft sein können.

lg und danke für alle hilfreichen Antworten. Ich bin mit meinem Latein am Ende.

Computer, Microsoft Word, Windows, Betriebssystem, Microsoft Excel, Windows 7, Technik, E-Mail, Grafik, Signatur, Microsoft Outlook, Windows 10, Laptop
Excel: Formel Filter Funktion?

Hallo zusammen,

Die Spalte W mit den Produkten, die anhand einer Formel sortiert werden, sollen nun noch mit der Filter Funktion ab Excel 2021ein Filter bekommen.

Kurze Einführung in mein Excel Blatt.

Die Tabelle von Spalte A bis N wird immer aktuell neu eingefügt.

In Spalte BA wird mit der Formel WENN und SVERWEIS alles aus der Spalte E rausgefiltert, was ich nicht brauche.

In der Spalte BB wird die Spalte BA mit der Formel Sortierung sortiert.

In der Spalte BC wird nochmal eine Formel WENN verwendet, für doppelte Einträge.

Die Spalte BD ist meine Hilfsspalte, für die Dropdown-Liste für Spalte V. Vielleicht kann man ja gleich die Dropdown-Liste von Spalte B abgreifen. Somit wird dann die Hilfsspalte nicht mehr benötigt.

Die Spalte W ist meine Hauptspalte, die ich brauche, wo nur noch die Filter Funktion eingebaut werden soll.

Wenn in der Spalte V Dropdown-Liste nichts drinsteht, soll in der Spalte W alles angezeigt werden. (Wie aktuell im Bild) Wenn in der Spalte V Dropdown-Liste ein Eintrag ausgewählt wird, soll nur noch das Produkt gefiltert werden.

Ein Beispiel: Ich wähle aus der Dropdown-Liste den Eintrag CP2001 aus, dann soll nur noch in der Spalte W das Produkt FF101861.02 gefiltert werden.

Oder ich wähle aus der Dropdown-Liste den Eintrag CP2004 aus, dann soll nur noch in der Spalte W die zwei Produkte FG102462.02 und FF101872.02 gefiltert werden.

Wie schon am Anfang beschrieben, wird in Spalte W alles gefiltert, was von Spalte E kommt und ich nicht benötige und in Spalte W soll auch die Formel Filter Funktion aufgebaut werden. (Sofern es auch möglich ist)

Die Bezüge werden von Spalte B und E immer vorgegeben.

Ich hoffe, dass ich alles so weit erklärt habe, um für mein Problem eine Lösung zu finden.

Vielen Dank schon mal im Voraus

Bild zum Beitrag
Microsoft Excel, Formel

Meistgelesene Fragen zum Thema Microsoft Excel