Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA mit Commandbutton alle doppelten löschen

Per VBA mit Commandbutton alle doppelten löschen
14.10.2007 07:51:00
reimund
Hallo Gemeinde,
wie bitte kann das erfolgen - Alle doppelten in einer Spalte löschen ohne Spezialfilter.
Mit "clipper" könnt´s ich, aber VBA ?
Grüssis
Reimund

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA mit Commandbutton alle doppelten lösch
14.10.2007 08:13:00
ChrisL
Hallo Reimund
Voilà

Sub t()
Dim iZeile As Long
For iZeile = Range("a65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iZeile, 1)) > 1 Then Rows(iZeile).EntireRow. _
Delete
Next iZeile
End Sub


Gruss
Chris

AW: oder so
14.10.2007 08:30:11
Oberschlumpf
Hi Reimund
So funzt es auch:

Option Explicit
Sub doppelte()
Dim lloZeile As Long, liSpalte As Integer, lloStart As Long, lloDurchlauf As Long
lloStart = DeineStartZeile
liSpalte = DeineSpalte
For lloZeile = lloStart To Cells(Rows.Count, liSpalte).End(xlUp).Row
For lloDurchlauf = Cells(Rows.Count, liSpalte).End(xlUp).Row To lloStart Step -1
If Cells(lloZeile, liSpalte).Value = Cells(lloDurchlauf, liSpalte).Value And  _
lloDurchlauf  lloZeile Then
Rows(lloDurchlauf & ":" & lloDurchlauf).Delete Shift:=xlUp
End If
Next
Next
End Sub


Nach dem du lloStart und liSpalte angepasst hast, sollte es auch bei dir laufen.
Hilft das?
Ciao
Thorsten

Anzeige
AW: Per VBA mit Commandbutton alle doppelten löschen
14.10.2007 13:52:00
reimund
Vielen Dank Ihr Beiden,
ich möchte aber nicht die Zeile löschen, sondern nur den Inhalt des Feldes, weil in Nachbarspalte Infos stehen.
Anschliessend sortiere ich nur die Spalte und habe so die Leerfelder rausgeschmissen.
Gruss
Reimund

AW: Per VBA mit Commandbutton alle doppelten löschen
14.10.2007 17:09:00
Oberschlumpf
Hi Reimund
Dann tausch mal in meinem Code diese Zeile

Rows(lloDurchlauf & ":" & lloDurchlauf).Delete Shift:=xlUp


gegen diese Zeile


Cells(lloDurchlauf, liSpalte).Value = ""


aus.
Hilft das?
Ciao
Thorsten

Anzeige
AW: Per VBA mit Commandbutton alle doppelten löschen
14.10.2007 18:59:55
reimund
Hi Thorsten,
vielen vielen Dank, it´s working
Reimund

303 Forumthreads zu ähnlichen Themen

dynamische Button-Click-Event für Tabelle
Pia

Hallo,
unter folgendem Link:
https://www.herber.de/forum/archiv/1100to1104/t1100971.htm
wird eine Lösung für dynamische Button-Click-Events bei Userforms angeboten. Ich würde gerne wissen, wie man dies bei einem Tabellenblatt macht. Dieses Tabellenblatt wird inkl. Button per VBA erz...
13.06.2010 21:47:18
Thread-ID: 1161677
3 Beiträge
Anzeige
dynamische Button Click-Event #2
Micha

Hallo zusammen,
ich habe im Forum einen Artikel gefunden (dynamische Button Click-Event vom 07.09.2009) der mir sehr hilft, bei dem ich jedoch noch ein Verständnisproblem habe. Ich hoffe Ihr könnt es auch mir begreiflich machen.
Es geht darum, controls dynamisch zur Laufzeit anzulegen u...
27.09.2013 15:02:34
Thread-ID: 1332446
3 Beiträge
Private Sub CommandButton1_Click() automatisch
Heinz

Hallo Leute im Forum
Ich habe ein langes Makro das ich im Sheets "Artikel" mit
Private Sub CommandButton1_Click() aufrufe.
Nun möchte ich,wenn ich das Makro das erste mal aufrufe und das ganze makro durlaufen ist,das am Ende automatisch wieder Private Sub CommandButton1_Click()
04.11.2013 10:11:29
Thread-ID: 1337011
5 Beiträge
Anzeige
VBA Commandbutton
VBA

Hallo,
Ich habe gerade begonnen mich ein wenig mit VBA zu beschäftigen und bin nun auf ein Problem gestoßen bei dem ich auch mit Internetrecherge nicht weitergekommen bin.
Es geht um folgendes Problem:
Ich möchte mit der betätigen eines Commandobuttons eine Variable bestimmen und da...
06.06.2014 10:55:40
Thread-ID: 1364963
10 Beiträge
Commandbutton click
Mathias

Hallo habe folgendes problem ich möchte das in folgenden zeilen im +1 gerechnet wird wenn folgende bedingung erfüllt ist funktioniert aber nicht wo ist mein fehler :(
Er zählt schon +1 wenn ich alle togglebutton aktiviert habe :( und senn ich den commandbutton clicke nochmal Private Sub C...
16.03.2015 09:46:07
Thread-ID: 1415191
3 Beiträge
Click auf Submit Button in html via VBA
Henner

Hallo zusammen,
mit folgendem Code lasse ich Daten von Excel in html übergeben: Sub Anmelden() Dim IEApp As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "https://xxx.xx/form.php?id=12345" Do: Loop Until IEApp.Busy = False Do: Loop Unti...
30.04.2016 13:50:49
Thread-ID: 1491291
4 Beiträge
CommandButton1_Click()
Tom

Hallo zusammen,
mein CommandButton1_Click() funktioniert im Modul1 nicht.
Wenn ich den Code in "Objekte Tabelle1(Tabelle1)" einfüge, funktioniert das ganze.
Was mache ich falsch?
MfG Tom
Private Sub CommandButton1_Click() Worksheets(1).Range("B11,E11,H11").Interior.Color = R...
13.09.2016 12:09:26
Thread-ID: 1514091
5 Beiträge
Commandbutton_click aufrufen
UweD

Hallo
habe im Codebereich von Tabelle2 einen Code auf einem Button liegen
Private Sub CommandButton1_Click() '*** Generieren 'mache alles mögliche end sub Vor dem Schließen möchte ich den "Knopf" noch einmal drücken
Mein Gedanke war.
ich rufe das aus der "Workbook_BeforeClose"...
25.08.2017 14:40:02
Thread-ID: 1576620
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
2
4
5
9
2
3
4
6
8
1
19
2
1
5
2
2
1
6
7
7
4
4
5