Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

Forumthread: 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

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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
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.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige