zuerst doppelte werte eintrag name vorname verhindern, dann wenn Person in tabelle 2 auf inaktiv ist dann soll es in tabelle 1 kopieren und tabelle 2 dann diesen inhalt löschen

22.11.2019 16:24:56

Michi

Hallo Ihr Excel Profis
Ich komme einfach nicht mehr weiter und wäre um Hilfe sehr dankbar.
Kopieren geht aber mehr bring ich einfach nicht hin.
Ich weiss nicht wie das geht mit Namen Vornamen oder über die ID vergleichen das ich nicht doppelte werte in die Tabelle 1 kopiere und auch mit dem Inhalt löschen.
Habe die Datei angehängt und auch markiert bis wo der Inhalt gelöscht werden kann.
Wäre echt dankbar für Hilfe.
Danke
https://www.herber.de/bbs/user/133381.xlsm

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: zuerst doppelte werte eintrag name vorname verhindern, dann wenn Person in tabelle 2 auf inaktiv ist dann soll es in tabelle 1 kopieren und tabelle 2 dann diesen inhalt löschen

22.11.2019 18:11:50

Regina
AW: möchte nur Inhalt löschen nicht zeile

22.11.2019 18:26:49

Michi
AW: möchte nur Inhalt löschen nicht zeile

22.11.2019 18:34:45

Regina
AW: möchte nur Inhalt löschen nicht zeile

22.11.2019 18:42:20

Michi

AW: zuerst doppelte werte eintrag name vorname verhindern, dann wenn Person in tabelle 2 auf inaktiv ist dann soll es in tabelle 1 kopieren und tabelle 2 dann diesen inhalt löschen

22.11.2019 18:11:50

Regina

Hi Michi,
teste mal so:

Private Sub CommandButton1_Click()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=23, Criteria1:="inaktiv"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.DisplayAlerts = False
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
End With
Sheets(variable).UsedRange.AutoFilter
End Sub

Gruß Regina

AW: möchte nur Inhalt löschen nicht zeile

22.11.2019 18:26:49

Michi

Hallo Regina
Super danke für deine Hilfe.
Wie kann ich beim löschen bestimmen das ich nur Inhalt lösche und nicht die ganze Zeile?
also wie bei der farbigen Markierung also von a3 bis v3
Bei diesem Code löscht es ja die ganze Zeile

.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete

Kannst du mir nochmals helfen Regina oder sonst wär?
Wäre total lieb.
Danke

AW: möchte nur Inhalt löschen nicht zeile

22.11.2019 18:34:45

Regina

Ahh, ok, dann so:

Private Sub CommandButton1_Click()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=23, Criteria1:="inaktiv"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).ClearContents
End With
Sheets(variable).UsedRange.AutoFilter
End Sub

Gruß regina

AW: möchte nur Inhalt löschen nicht zeile

22.11.2019 18:42:20

Michi

Hallo Regina
Danke viel mal.
Das ist genau das, was ich gesucht habe funktioniert Einwandfrei.
Danke Danke und wünsche Dir ein schönes Wochenende.