Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButton Lösche Zeile xy

Forumthread: CommandButton Lösche Zeile xy

CommandButton Lösche Zeile xy
11.05.2016 16:02:37
Alex
Hallo liebe Gemeinde,
der Werner war so freundlich mir für einen CommandButton ein Makro zu tippern, mittels welchem die letzte Zeile einer Tabelle gelöscht wird.
Dim loLetzte As Long
With Sheets("Tabelle1") 'anpassen
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte A, Spalte anpassen
.Cells(loLetzte, 1).EntireRow.Delete
End With
Jetzt die nächste Frage:
Wenn ich bereits 15 Zeilen mittels Userform "kreiert" habe, ist es dann möglich mittels dem CommandButton "Löschen" eine beliebige Zeile, z.B. Zeile 6 zu löschen?
Quasi mit MsgBox "Welche Zeile soll gelöscht werden" und dann eintragen...
Liebe Grüße Alex

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton Lösche Zeile xy
11.05.2016 16:13:39
Werner
Hallo Alex,
Dim loZeile As Long
With Sheets("Tabelle1")
loZeile = Application.InputBox("Welche Zeile möchten Sie löschen", "Löschvorgang", 0, Type:=1)
If loZeile = 0 Then Exit Sub
Rows(loZeile).Delete Shift:=xlUp
End With
Gruß Werner

Anzeige
AW: CommandButton Lösche Zeile xy
11.05.2016 16:27:02
Sdravi
Das bräuchte ich auch nur das bei mir alle Zeilen mit Wert 0 in B2
gelöscht werden sollen!
Mfg

AW: @Sdravi
11.05.2016 16:48:08
Werner
Hallo,
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1") 'anpassen
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If .Cells(i, 2).Value = 0 Then Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
Gruß Werner

Anzeige
AW: @Sdravi
11.05.2016 22:57:18
Sdravi
hy, es funktioniert fast, wenn ich nur Werte übernehme und dann dein Makro starte macht es _ genau das was es soll, da aber meine Werte per sverweis eingetragen sind löscht er wahllos alle einträge 

=WENN(ODER(DSM!$F:$F="LIF";DSM!$F:$F="LIF");DSM!A3;"0")
Jetzt habe ich mir gedacht eine Kopie der Tabelle zu erstellen das bekomm ich noch hin ;-) 
Private Sub CommandButton2_Click()
Sheets("DRS").Select
Sheets("DRS").Copy
Windows("test.xlsm").Activate
End Sub
aber wie bekomm ich es hin das er mir die Werte in der kopie schreibt und nicht die verweise?
Und statt Mappe3 soll DRS.xlsm als name vorkommen

Anzeige
AW: @Sdravi
11.05.2016 23:56:30
Sdravi
So funktioniert es ... 

Private Sub CommandButton1_Click()
Sheets("Test").Select
Sheets("Test").Copy
Sheets("Test").Range("A1:H15").Copy
Sheets("Test").Range("A1:H15").PasteSpecial xlValues
End Sub
Private Sub CommandButton2_Click()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Test") 'anpassen
For i = .Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1
If .Cells(i, 3).Value = 0 Then Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: @Sdravi, dann ist ja gut
12.05.2016 10:16:02
Werner
Hallo,
was du mit der Aussage im vorherigen Beitrag "löscht wahllos" meinst ist mir nicht ganz klar. Das Markro löscht Zellen in denen eine 0 steht, egal ob die händisch eingetragen oder das Ergebnis einer Formelauswertung ist.
Aber du hast ja eine für deine Verhältnisse passende Lösung gefunden.
Trotzdem ein paar Änderungen, das Ganze muss man nicht verteilen und dann über zwei unterschiedliche Buttons ausführen. Es lässt sich in ein Makro packen, welches dann einem Button zugeordnet werden kann.
Zudem habe ich ein paar Änderungen in deinem Kopier-Code gemacht.
Private Sub CommandButton1_Click()
Dim i as Long
Application.ScreenUpdating = False
With Sheets("Test")
.Range("A1:H15").Value = .Range("A1:H15").Value 'Formelergebnisse durch Werte ersetzen
For i = .Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1
If .Cells(i, 3).Value = 0 Then Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner

Anzeige
AW: @Sdravi, dann ist ja gut
12.05.2016 19:20:40
Sdravi
hy Werner
wenn du in deinem geänderten Code änderst das es er nicht die Mappe Updatet sondern eine neue erstellt und dann Formeln durch Werte ersezt sowie zeilen mit 0 löscht

AW: @Sdravi, dann ist ja gut
12.05.2016 20:42:50
Werner
Hallo,
geht schon, dann stellt sich aber folgende Frage. Was ist, wenn du das Makro ein weiteres Mal ausführst? Ich nehme ja nicht an, dass dann wieder ein neues Blatt angelegt werden soll.
Wie wäre es denn vorab schon ein Blatt anzulegen, dann durch das Makro die Daten auf diesem Blatt zu löschen, anschließend Daten kopieren nur Werte einfügen und am Schluss alle Zeilen mit 0 löschen.
Wenn nicht solltest du genauer erklären was du genau vor hast.
Gruß Werner

Anzeige
AW: @Sdravi, dann ist ja gut
12.05.2016 20:51:56
Sdravi
Also Die Hauptdatei muss als Vorlage dienen die holt sich die Daten durch Verweise und, und ich muss einzelne Tabellen an verschiedene Leute senden und die sollen keine formeln sehen sondern nur Werte und ich möchte im gegenzug nicht immer die Formeln neu eingeben. Deswegen soll es so ablaufen:
1.Tabelle Duplizieren
2.Formeln durch Werte ersetzen
3.Zeilen mit Wert 0 in Celle B Löschen
4.Datei als Anhang versenden
5.Datei Löschen
Und das ganze jeden Tag aufs neue aus der Vorlage.
mfg

Anzeige
AW: @Sdravi, dann ist ja gut
13.05.2016 07:15:23
Werner
Hallo,
leg dir ein zusätzliches Tabellenblatt z.B. "Mail-Versand" an.
Public Sub test()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Mail-Versand").UsedRange.Delete 'Blattname anpassen
Sheets("Test").Range("A1:H15").Copy
Sheets("Mail-Versand").PasteSpecial xlValues 'Blattname anpassen
With Sheets("Mail-Versand") 'Blattname anpassen
For i = .Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1
If .Cells(i, 3).Value = 0 Then Rows(i).Delete
Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Bei jedem Ausführen des Makro werden zuerst die Daten im Blatt Mail-Versand gelöscht. Dann werden die Daten aus dem Blatt Test ins Blatt Mail-Versand kopiert -nur die Werte. Anschließend werden die Zeilen mit einer 0 in Spalte C gelöscht.
Aus dem Versand per E-Mail halte ich mich raus, da hast du ja wohl schon was.
Gruß Werner

Anzeige
AW: CommandButton Lösche Zeile xy
11.05.2016 16:28:36
Alex
Hallo Werner,
vielen Dank.
Makro funktioniert tadellos!!! :)
Sauber, danke danke danke...
Kann ich die Inputbox noch in der Größe verändern?
LG Alex

AW: CommandButton Lösche Zeile xy
11.05.2016 16:49:28
Nepumuk
Hallo,
ersetze die Inputbox durch ein Userform, das kannst du gestalten wie du willst.
Gruß
Nepumuk

Anzeige
AW: Danke für die Rückmeldung.
11.05.2016 16:51:08
Werner
Hallo Alex,
nach meinem Wissen nicht bei einer InputBox.
Dann müsste man mit einer UserForm und einer TextBox arbeiten.
Gruß Werner

AW: Danke für die Rückmeldung.
11.05.2016 16:55:02
Nepumuk
Hallo Werner,
die Größe einer Inputbox lässt sich schon ändern aber der Code ist für einen VBA-Anfänger 3 Nummern zu groß.
Gruß
Nepumuk

Anzeige
AW: @Nepumuk
11.05.2016 21:30:17
Werner
Hallo Nepumuk,
danke für den Hinweis, dass es geht. Das übersteigt meine rudimentären Kenntnisse ganz sicher.
Wenn es denn so schwierig ist, dann macht es ja doppelt Sinn, das dann über eine UserForm zu regeln.
Gruß Werner
;

Forumthreads zu verwandten Themen

Nachtrag zu Gestern - Commandbutton ...
Frank

Hallo Excelgemeinde!
Gestern fragte ich wie ich CommanButton mit Namen aus einer Tabelle befüllen kann!
Rudi schickte mir folgende Lösung:
CommandButton1.Caption = Range("AQ3").Text
Im Augenblick wird das Ereignis durch folgende Überschrift ausgelöst:
Private Sub Worksheet_S...
12.08.2008 14:38:00
Thread-ID: 1001212
2 Beiträge
auf CommandButton zugreifen
Lars

Hallo zusammen,
ich habe in Excel von einem Tabellenblatt A eine Abfrage (msgbox ok/cancel) gestartet, die ein anderes Tabellenblatt B aktiviert, wenn ok geklickt wird. Andernfalls erfolgt ein Rücksprung auf A.
Wenn nun ok geklickt wird, soll auf Tabellenblatt B zusätzlich ein CommandBu...
02.09.2008 16:44:00
Thread-ID: 1006864
5 Beiträge
CommandButton Name
Enrico

Hallo ich möchte die Eigenschaften von vielen CommandButton´s über ein
Makro ändern.
in Range("X" & i).Value steht der Name des Command Buttons
For i = 2 To 100
Knopf = Sheets("Daten").Range("X" & i).Value
Farbe = Sheets("Daten").Range(Knopf).Value
If Farbe = 1...
05.09.2008 09:24:00
Thread-ID: 1007588
3 Beiträge
Anzeige
commandbutton erstellen
sockel939

Hallo,
gibt es einen code mit dem man commandbuttons erstellen kann und gleich eine anweisung einfügen kann?
Ich kenne AddButtons weiß aber nicht wie das geht.
Danke
10.10.2008 12:00:17
Thread-ID: 1015547
2 Beiträge
Anzeige
Commandbuttons einfärben
Wolfgang

Hallo Excel Experten.
Stehe vor einem Problem bei dem ich nicht mehr weiterkommen.
Ich habe in einer Userform 42 CommandButton, die je nach Programmablauf verschieden eingefärbt werden sollen.
Es will mir aber nicht gelingen, diese einzeln in einer Schleife anzusprechen, den momenta...
15.10.2008 08:56:10
Thread-ID: 1016475
3 Beiträge
Makrofehler nur beim Commandbutton
Kurt

Guten Morgen,
warum klappt das Selectieren mit Commandbutton nicht.
Ich bin immer in der Tabelle "Gesamt"
Hier mit CommandButton:
Private Sub CommandButton100_Click() Sheets("Datenbank").Select ActiveSheet.Range("G3").Select Dim z As Long z = Range("g3").End(xlDown).Row Active...
17.10.2008 11:00:00
Thread-ID: 1017071
22 Beiträge
CommandButton Enabled = false
max

Liebe VBA-Gemeinde,
ich habe in einem Excel-Sheet zwei CommandButton eingefügt. Wenn der User nun den CB_1 klickt soll der CB_2 auf enabled = false gesetzt und der Text kursiv dargestellt werden.
Wie geht's ?
Dank im voraus
max
30.10.2008 15:07:25
Thread-ID: 1020626
5 Beiträge
CommandButton
Frank

Hallo,
Ingo aus dem Forum war mir bei diesem Code sehr behilflich
nun sollte ich aber noch einen CommandButton3 einfügen
der sollte bewirken das wenn ich den Preis in der TextBox=Preis
überschreibe diesen dann im Tabellenblatt ändert, nach Möglichkeit
erst noch eine Rückfrag...
04.11.2008 13:37:50
Thread-ID: 1021608
17 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:11:10
Thread-ID: 1022366
6 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:17:30
Thread-ID: 1022372
2 Beiträge
CommandButton Franz
Frank

Hallo Franz,
mein Beitrag im Forum ist verschwunden
mit deiner letzten Hilfe komme ich leider nicht klar
wo muss ich diesen Code einfügen
With Worksheets("Daten")
------If IsNumeric(.Cells(Zeile,Spalte) Then-------------------- ist im Code rot dargestellt
Me.Preis=Format...
11.11.2008 10:11:00
Thread-ID: 1023441
4 Beiträge
Anzeige
Blinkender Commandbutton
Ralf

Hallo Experten!
Ist es möglich einen Commandbutton blinken zu lassen wenn in der angesteuerten Arbeitsmappe neue Einträge gemacht wrden? Die Blinkdauer sollte 24h betragen.
Gruß Ralf
12.11.2008 20:21:00
Thread-ID: 1023986
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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