ich habe zwei Probleme bei denen ich nicht weiterkomme und hoffe auf eure Hilfe:
1. Ich kopiere 2 Zellen mit sheets(xy).range(ab).copy in die Zwischenablage, damit ich den Inhalt in anderen Anwendungen benutzen kann.
Soweit so gut. Wenn ich nun aber in Word "einfügen" oder auch strg+v ausführe, passiert NICHTS. Wenn ich die Sachen in Excel einfügen will, geht es ohne Probleme.
Woran kann das liegen?
Problem 2:
Mit einer Routine fülle eine 8 spaltige Listbox mit Werten aus verschiedenen Sheets. Beim ersten mal klappt dies wunderbar.
Beim zweiten mal werden alle, in der Listbox sichtbaren, Werte richtig eingetragen. Wenn ich dann aber abwärts scrolle, wird es teilw. so dargestellt als ob die Listbox nur 1 Spalte hätte.
Es werden alle Werte eingetragen, aber eben nicht angezeigt.
Der Witz an der Sache:
Wenn ich nach dem ersten durchlauf der Routine die Listbox einmal durchscrolle, wird sie beim zweiten mal auch immer richtig angezeigt.
Hat da jemand eine Idee was das sein könnte?
Hier der code für das Füllen der Listbox:
Application.ScreenUpdating = False
auswl = CDec(Label5.Caption) 'Linie auf der mit Auswertung begonnen werden soll
blatt = Label4.Caption
Liefdat = DateValue(Label3.Caption)
Boxnr = CDec(Label2.Caption)
KDNR = CDec(Label1.Caption)
With abrechnung.ListBox1
l = 0 'Linie zum addieren in dem Auswertungsblatt
lb = 0 ' Linie in Listbox
VKP = 0
.Clear
.ColumnCount = 8
.ColumnWidths = "0;4cm;6cm;1cm;1cm;0;0;0"
'Artikel Herrsteller und Bezeichnung finden
Do ' Alle Artikel der abzurechnenden Box in die Listbox schreiben
artinr = CDec(Sheets(blatt).Range("C" & auswl + l))
artl = 3
Do
If CDec(Sheets("Artikelpreise").Range("AN" & artl)) = artinr Then
herst = Sheets("Artikelpreise").Range("A" & artl)
bez = Sheets("Artikelpreise").Range("B" & artl)
Exit Do
End If
artl = artl + 1
If Sheets("Artikelpreise").Range("AN" & artl) = "" Then Exit Sub
Loop
.AddItem artinr
.List(lb, 1) = herst
.List(lb, 2) = bez
.List(lb, 3) = CDec(Sheets(blatt).Range("D" & auswl + l)) 'Menge
.List(lb, 4) = CDec(Sheets(blatt).Range("I" & auswl + l)) 'Rest
.List(lb, 5) = CDec(Sheets(blatt).Range("E" & auswl + l)) 'VK
.List(lb, 6) = auswl + l ' Linie in der der Artikel steht
.List(lb, 7) = blatt ' Blattname der Auswertung
lb = lb + 1
l = l + 1
VKP = VKP + (CDec(Sheets(blatt).Range("D" & auswl + l)) * CDec(Sheets(blatt).Range("e" & auswl + l)))
If Sheets(blatt).Range("A" & auswl + l) KDNR Then Exit Do
If Sheets(blatt).Range("b" & auswl + l) Boxnr Then Exit Do
If DateValue(Sheets(blatt).Range("f" & auswl + l)) Liefdat Then Exit Do
Loop
End With
Application.ScreenUpdating = True