Ich habe eine Tabelle mit 61 verschiedenen Oberkategorien. Diese möchte ich allerding noch einmal zusammenfassen. Hierzu habe ich die untenstehende Select-Case Anweisung geschrieben. Ich benötige noch einen Denkanstoss bzw. die Zeilen für den Tabellenzugriff. Meine Zieldaten sollen in einer anderen Tabelle landen als die Ausgangsdaten, da diese jede Nacht erneut erstellt werden.
Dim ausgang As String
Dim ergebnis As String
Dim anfang As Integer
Dim ende As Integer
Dim zaehler As Integer
Application.ScreenUpdating = False
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
zaehler = 2
Set acell = obj.WB.Worksheets(strAusgangstabelle)
For Each objzelle In objdaten.Columns(I).Cells
If objzelle.Value = "" Then
ende = obj.Zelle.Row
Exit For
End If
For zaehler = 1 To ende - 1 Step 1
ausgang = ThisWorkbook.Worksheets("Ausgangstabelle").Range(zaehler, 9).Value
Select Case (ausgang)
Case Is = "ASUS Mainboards"
ergebnis = "Komponenten"
Case Is = "Beamer"
ergebnis = "Digital Lifestyle"
Case Is = "CPU Lüfter"
ergebnis = "Komponenten"
Case Is = "Data Cartridges (Medien)"
ergebnis = "Festplatten & Medien"
Case Is = "digitale Kamera"
ergebnis = "Digitalfoto & Webcam"
Case Is = "Disketten"
ergebnis = "Festplatten & Medien"
Case Is = "Drucker"
ergebnis = "Drucken, Scannen & Faxen"
Case Is = "Drucker Verbrauchsmaterial"
ergebnis = "Drucken, Scannen & Faxen"
Case Is = "Drucker Zubehör"
ergebnis = "Drucken, Scannen & Faxen"
Case Is = "DSL Produkte"
ergebnis = "Netzwerk & WLAN"
Case Is = "Festplatten"
ergebnis = "Komponenten"
Case Is = "Festplattencontroller"
ergebnis = "Komponenten"
Case Is = "Flashspeicherbausteine"
ergebnis = "Komponenten"
Case Is = "Floppy Laufwerke"
ergebnis = "Komponenten"
Case Is = "Gehäuse"
ergebnis = "Gehäuse & Netzteile"
Case Is = "Gehäuse Lüfter"
ergebnis = "Gehäuse & Netzteile"
Case Is = "Gehäuse-Zubehör"
ergebnis = "Gehäuse & Netzteile"
Case Is = "Grafikkarten"
ergebnis = "Komponenten"
Case Is = "I/O Karten, Verteiler"
ergebnis = "Komponenten"
Case Is = "Intel-Mainboard"
ergebnis = "Komponenten"
Case Is = "ISDN Produkte"
ergebnis = "Netzwerk & WLAN"
Case Is = "Kabel extern"
ergebnis = "Komponenten"
Case Is = "Kabel intern"
ergebnis = "Komponenten"
Case Is = "Labelkit/Papier"
ergebnis = "Drucken, Scannen & Faxen"
Case Is = "LCD-Display mit TV"
ergebnis = "Monitore & Displays"
Case Is = "LCD-Displays"
ergebnis = "Monitore & Displays"
Case Is = "Mainboard Zubehör"
ergebnis = "Komponenten"
Case Is = "Modem"
ergebnis = "Netzwerk & WLAN"
Case Is = "Motherboard"
ergebnis = "Komponenten"
Case Is = "Mäuse + Trackballs"
ergebnis = "Eingabegeräte"
Case Is = "NAS / SAN / CD - Server"
ergebnis = "Netzwerk & WLAN"
Case Is = "Netzteile"
ergebnis = "Gehäuse & Netzteile"
Case Is = "Netzwerk - Karten"
ergebnis = "Netzwerk & WLAN"
Case Is = "Netzwerk - Printserver"
ergebnis = "Netzwerk & WLAN"
Case Is = "Netzwerk - Router"
ergebnis = "Netzwerk & WLAN"
Case Is = "Netzwerk - Switch/HUB"
ergebnis = "Netzwerk & WLAN"
Case Is = "Netzwerk - WLAN / Bluetooth"
ergebnis = "Netzwerk & WLAN"
Case Is = "Notebook Ersatzteile"
ergebnis = "Notebooks & PDA's"
Case Is = "Notebook Zubehör"
ergebnis = "Notebooks & PDA's"
Case Is = "Optische Laufwerke"
ergebnis = "Komponenten"
Case Is = "Optische Medien"
ergebnis = "Festplatten & Medien"
Case Is = "PC BAREBONE"
ergebnis = "Gehäuse & Netzteile"
Case Is = "Prozessoren"
ergebnis = "Komponenten"
Case Is = "Scanner"
ergebnis = "Drucken, Scannen & Faxen"
Case Is = "SMARTBOOK Notebooks"
ergebnis = "Notebooks & PDA's"
Case Is = "Software"
ergebnis = "Software"
Case Is = "Software / OEM Betriebssysteme"
ergebnis = "Software"
Case Is = "Sonstiges"
ergebnis = "Sonstiges"
Case Is = "Soundk.,Lautspr., Kopfh., etc."
ergebnis = "Multimedia"
Case Is = "Speicherbausteine"
ergebnis = "Festplatten & Medien"
Case Is = "Speicherupgrade für Terra"
ergebnis = "Komponenten"
Case Is = "Streamer Bandlaufwerke"
ergebnis = "Komponenten"
Case Is = "Tastaturen"
ergebnis = "Eingabegeräte"
Case Is = "TERRA MPG PC Systeme"
ergebnis = "PC-Systeme"
Case Is = "TERRA Notebooks"
ergebnis = "Notebooks & PDA's"
Case Is = "TERRA PC Systeme"
ergebnis = "PC-Systeme"
Case Is = "Terra Server"
ergebnis = "PC-Systeme"
Case Is = "TV Karten"
ergebnis = "Multimedia"
Case Is = "USB Sticks"
ergebnis = "Festplatten & Medien"
Case Is = "USV Anlagen"
ergebnis = "Netzwerk & WLAN"
Case Is = "Videokarten"
ergebnis = "Multimedia"
Case Is = "Wechselmedien"
ergebnis = "Festplatten & Medien"
Case Is = "Zubehör für Monitore/LCD´s/TV"
ergebnis = "Monitore & Displays"
End Select
End Sub
Ich gehe davon aus, dass die Zeilen über die ich den Zellenzugriff realisieren will einfach Bullshit sind? |