Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.07.2024 13:06:11 |
Sam |
|
|
Wert in Nachbarzelle mit Werten der Spalte vergleichen und doppelte Einträge löschen |
30.07.2024 11:07:02 |
Gast5189 |
|
|
|
30.07.2024 13:14:14 |
Sam |
|
|
|
30.07.2024 11:22:04 |
Gast52828 |
|
|
|
05.08.2024 06:44:01 |
Sam |
|
|
|
05.08.2024 12:45:18 |
ralf_b |
|
|
|
05.08.2024 16:18:51 |
Sam |
|
|
|
06.08.2024 07:01:40 |
Sam |
|
|
|
06.08.2024 10:38:05 |
ralf_b |
|
|
|
06.08.2024 13:17:12 |
Sam |
|
|
|
06.08.2024 15:27:22 |
ralf_b |
|
|
|
07.08.2024 09:44:11 |
Sam |
|
|
|
07.08.2024 11:18:36 |
ralf_b |
|
|
|
07.08.2024 12:56:55 |
Sam |
|
|
|
07.08.2024 16:29:16 |
ralf_b |
|
|
|
07.08.2024 17:03:38 |
Sam |
|
|
|
07.08.2024 19:01:56 |
ralf_b |
|
|
|
08.08.2024 13:17:40 |
ralf_b |
|
|
Von:
Gast5189 |
Datum:
30.07.2024 11:07:02 |
Views:
70 |
Rating:
|
Antwort:
|
Thema:
Wert in Nachbarzelle mit Werten der Spalte vergleichen und doppelte Einträge löschen |
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- rechts dann diesen Code einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Const APPNAME = "Worksheet_Change"
Dim RNG As Range, SP As Integer, LR As Long, Finde As String, Z1 As Integer
Dim Auswahl
Set RNG = Range("A2:A100") 'anpassen
If Not Intersect(Target, RNG) Is Nothing Then
Auswahl = "Rechnung + Abschluss"
SP = 19 'Spalte S
Z1 = 2 'wegen überschrift
LR = Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
If Target = Auswahl Then
Finde = Cells(Target.Row, SP)
With Me.Columns(SP)
If Me.FilterMode Then Me.ShowAllData ' Autofilter alle
.AutoFilter Field:=1, Criteria1:=Finde
Application.EnableEvents = False
Rows(Z1).Resize(LR - Z1 + 1).Delete
Application.EnableEvents = True
Me.ShowAllData
End With
End If
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Bei Änderung in Spate A läuft da Makro amatisch ausgeführt
LG UweD
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.07.2024 13:06:11 |
Sam |
|
|
Wert in Nachbarzelle mit Werten der Spalte vergleichen und doppelte Einträge löschen |
30.07.2024 11:07:02 |
Gast5189 |
|
|
|
30.07.2024 13:14:14 |
Sam |
|
|
|
30.07.2024 11:22:04 |
Gast52828 |
|
|
|
05.08.2024 06:44:01 |
Sam |
|
|
|
05.08.2024 12:45:18 |
ralf_b |
|
|
|
05.08.2024 16:18:51 |
Sam |
|
|
|
06.08.2024 07:01:40 |
Sam |
|
|
|
06.08.2024 10:38:05 |
ralf_b |
|
|
|
06.08.2024 13:17:12 |
Sam |
|
|
|
06.08.2024 15:27:22 |
ralf_b |
|
|
|
07.08.2024 09:44:11 |
Sam |
|
|
|
07.08.2024 11:18:36 |
ralf_b |
|
|
|
07.08.2024 12:56:55 |
Sam |
|
|
|
07.08.2024 16:29:16 |
ralf_b |
|
|
|
07.08.2024 17:03:38 |
Sam |
|
|
|
07.08.2024 19:01:56 |
ralf_b |
|
|
|
08.08.2024 13:17:40 |
ralf_b |
|
|