Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

komisches makro problem! geht nur aller 2 mal

komisches makro problem! geht nur aller 2 mal
05.02.2004 10:39:05
Markus H.
Moin,
habe dieses Makro eine Symbolleistenschaltfläche zugeordnet:

Sub Kunden()
Zeile = Worksheets("Kunden").UsedRange.Rows.Count
Bereich = "Kunden!A3:D" & Zeile + 1
Sheets("Rechnung").ListBox1.ListFillRange = Bereich
Sheets("Rechnung").ListBox1.Visible = True
Sheets("Rechnung").CommandButton2.Visible = True
Sheets("Rechnung").CommandButton3.Visible = True
Sheets("Rechnung").CommandButton5.Visible = True
End Sub

Es blendet mir eine Listbox ein, welche sich mit Daten aus der Tabelle Kunden füllt. Zusätzlich werden noch ein paar buttons mit eingeblendet die auch funkionieren (immer)
jetzt ist es aber so das ich die Listbox nur aller zwei klicks nehmen kann.
Also: ich klick das erste mal in die Symbolleiste, dann erscheint wie gewünscht die listbox und die buttons, und ich kann in der listbox scrollen und jemanden auswählen.
wenn ich jemanden ausgewählt hab, schließt sich die listbox wieder. wenn ich ejtzt jemanden neues einfügen möchte, klick ich wieder auf die symbolschaltfläche, und kann diesmal nicht in der listbox scrollen! Die listbox erscheint zwar, aber ich kann sie nicht benutzen!
wisst ihr woran das liegen könnte?
MFG
Markus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag: auf der Listbox ist dieses Makro:
05.02.2004 10:41:16
Markus H.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Listbox
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6)
If Worksheets("Kunden").Cells(Zeile, 7) <> "" Then
.Range("A5") = .Range("A5") & " " & Worksheets("Kunden").Cells(Zeile, 7) & " "
Else: .Range("A5") = .Range("A5") & " " & Worksheets("Kunden").Cells(Zeile, 7)
End If
.Range("A5") = .Range("A5") & Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
Me.CommandButton5.Visible = False
End Sub

MfG
Markus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige