Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox - Einträge löschen - Einträge zufügen

Listbox - Einträge löschen - Einträge zufügen
Hansi
Hallo zusammen,
Ich habe folgendes Problem:
Ich habe zwei UF´s, in der einen tätige ich eingaben über Textboxen, in der anderen befindet sich eine Listbox, die mir einen Tabellenbereich einliest.
Nun möchte ich erreichen, das wenn ich eine Zeile im Listenfeld anklicke, diese (nach bestätigen einer MsgBox) aus der Listbox, sowie aus der Tabelle gelöscht wird. Ist dies möglich? und kann mir jemand helfen?
hier der Code mit dem ich den Tabellenbereich einlese:

Private Sub UserForm_Initialize()
With lstBond
.ColumnCount = 12
.ColumnHeads = True
.RowSource = "Bond!A15:L200"
End With
End Sub

Vielen Dank schonmal für Eure Tips und Mühen.
Viele Grüße
Hansi
AW: Listbox - Einträge löschen - Einträge zufügen
16.02.2006 15:50:00
Peter
Hallo Hansi,
das Löschen aus dem Tabellenblatt stellt sicherlich kein Problem dar?!
Anschließend rufst du dein UserFormx.Show auf und die ListBox enthält den Wert nicht mehr.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Listbox - Einträge löschen - Einträge zufügen
16.02.2006 16:04:10
Hansi
Hallo Peter,
Danke für die schnelle Rückmeldung.
Hm, dann müstte ich den Eintrag ja manuell im Tabellenblatt löschen, der Eintrag sollte aber eben durch anklicken in der Listbox gelöscht werden (bzw. anklicken und durch Button Bestätigung gelöscht werden).
Hatt es schonmal mit SelectedItem.delete versucht, das funktioniert aber nicht. Jetzt bin ich in VBA auch keine riesen Leuchte.
Weist Du wie das funktioniert?
Grüße
Hansi
Anzeige
AW: Listbox - Einträge löschen - Einträge zufügen
16.02.2006 16:08:01
Leo
Hi,
du kannst aus einer Listbox, die mit RowSource gefüllt wurde, nichts löschen.
Du musst die Zeile in der Tabelle löschen und der Listbox eine neue Rowsource zuweisen.
Wenn du nur die Inhalte löschst, entsteht in der Listbox eine Lücke.
mfg Leo
AW: Listbox - Einträge löschen - Einträge zufügen
16.02.2006 16:11:14
Hansi
Hallo Leo,
Danke für die Information.
Gibt es denn eine andere Möglichkeit das zu realisieren?
Vielleicht in dem ich die ListBox mit .List fülle?
Grüße
Hansi
AW: Listbox - Einträge löschen - Einträge zufügen
16.02.2006 16:56:23
Leo
Hi,
wenn du mit List oder AddItem füllst, hast du keine Header und nur max. 10 Spalten.
Das geht ja auch mit RowSource, du musst nur nach jedem Löschen die Quelle neu
festlegen.
Am besten du lädst mal ein Beispiel hoch.
mfg Leo
Anzeige
AW: Listbox - Einträge löschen - Einträge zufügen
16.02.2006 16:29:27
Peter
Hallo Hansi,
so geht es:
einfügen in das Userform Modul:

Private Sub LstBond_Click()
Dim lZeile     As Long
  
   If bLoeschen = True Then
      Exit Sub
   End If
   
   lZeile = Me.LstBond.ListIndex + 15
   If MsgBox("Wollen Sie die Zeile " & lZeile & " wirklich löschen.", _
      vbYesNo + vbQuestion, "    Löschabfrage, nur zur Sicherheit.") = vbYes Then
      bLoeschen = True
      Rows(lZeile & ":" & lZeile).Delete Shift:=xlUp
      Unload UserForm2
    Else
      Exit Sub
   End If
End Sub
Private Sub UserForm_Activate()
   With LstBond
      .ColumnCount = 12
      .ColumnHeads = True
      .RowSource = "Bond!A15:L200"
   End With
   bLoeschen = False
End Sub
und in ein allgemeines Modul:

Option Explicit
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Listbox - Einträge löschen - Einträge zufügen
17.02.2006 08:03:39
Hansi
Hallo Peter, Hallo Leo
Vielen Dank für Eure Hilfe.
Tut mir leid das ich mich erst jetzt melde, aber meine Frau hatte gestern großen Einkauftag, :-(
Peter,
Der Code funktioniert bestens, Vielen Dank.
Grüße
Hansi
P.S. Tolles Forum hier...

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox TextBox

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
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4