Supportnet / Forum / Tabellenkalkulation
vevollstäöndigung eines makro s
Frage
Hallo zusammen,
benötige bitte für ein makro euro hilfe
habe in meiner tabelle mehrfach identische daten.
die daten sind von spalte a:c wie folgt aufgebaut:
typ Marke Modell
habe durch folgen anweisung die daten einmal in ein userform erscheinen lassen.
Public Sub FülleListBox()
Dim rngArea As Range
Dim rngCell As Range
Dim lngLastCell As Long
Dim lngList As Long
Dim colList As New Collection
With Worksheets("Tabelle1")
Set rngArea = .Range("A2").Resize(.Range("A65536").End(xlUp).Row - 1, 1)
With UserForm1.ListBox1
.Clear
.ColumnCount = 3
For Each rngCell In rngArea
On Error Resume Next
Err.Clear
colList.Add rngCell.Value, "MB" & rngCell.Value
If Err = 0 Then
.AddItem rngCell.Value
.List(lngList, 1) = rngCell.Offset(0, 1).Value
.List(lngList, 2) = rngCell.Offset(0, 2).Value
lngList = lngList + 1
End If
Next rngCell
End With
End With
End Sub
nun zum problem
die daten die ich in userform aufgelistet bekomme möchte ich weiter
verarbeiten.
wenn ich ein produkt angeclickt habe möchte ich das dieser bereich ( die mehrfach identische daten ) in der entsprechenden regsitermappe markiert werden.
denn hab in eineranderen registermappe "tabelle2" spalte A
von A1 bis A10 zahlen stehen von 1-10.
wie kann ich folgendes erreichen wenn ich ein checkbox1 anklicke das ein makro eins der 10 zahlen in der markierten bereich spalte D findet das die zeilen gelöscht werden.
und mit einem Command button
die daten denn zusammen fassen beispiel:
statt
klassich bmw 344 12
klassich bmw 344 12
sondern
klassich bmw 344 24 in tabelle4 ausgibt
gruss