Hallo liebe Community,
ich bin pure Anfängerin auf dem Gebiet der "Excel VBA-Programmierung" und momentan "leicht" verzweifelt, da ich zu keinem Ergebnis komme.
Beim Rescherchieren für ein mögliches Ergebnis, bin ich auf eure Website, gestoßen.
Ich habe folgendes Problem:
Im Arbeitsblatt "Unternehmensprofil" habe ich jeweils zwei Tabellen (noch nicht fertig gestylt) erstellt.
Die erste Tabelle enthält unterschiedliche Kategorien mit meinen Interessen und den daraus resultierenden Skills.
Die Tabelle auf der rechten Seite (kleinere von beiden) gibt jeweils die Kategorien sowie Interessen wieder.
Die Kategorien sind voreingestellt und können nicht geändert werden. Die Interessen wiederum können nach belieben ausgewählt werden.
Was soll gemacht werden?
Nach Auswahl der jeweiligen Interessen, soll Excel in der Tabelle (rechte Seite) jeweils die Prozentanzal ermitteln.
Ich habe schon unterschiedliche Methoden versucht, aber keines funktionierte.
Hier ist einmal der Quellcode:
Über eure Tipps oder Unterstützungen, freue ich mich.
Beste Grüße
ich bin pure Anfängerin auf dem Gebiet der "Excel VBA-Programmierung" und momentan "leicht" verzweifelt, da ich zu keinem Ergebnis komme.
Beim Rescherchieren für ein mögliches Ergebnis, bin ich auf eure Website, gestoßen.
Ich habe folgendes Problem:
Im Arbeitsblatt "Unternehmensprofil" habe ich jeweils zwei Tabellen (noch nicht fertig gestylt) erstellt.
Die erste Tabelle enthält unterschiedliche Kategorien mit meinen Interessen und den daraus resultierenden Skills.
Die Tabelle auf der rechten Seite (kleinere von beiden) gibt jeweils die Kategorien sowie Interessen wieder.
Die Kategorien sind voreingestellt und können nicht geändert werden. Die Interessen wiederum können nach belieben ausgewählt werden.
Was soll gemacht werden?
Nach Auswahl der jeweiligen Interessen, soll Excel in der Tabelle (rechte Seite) jeweils die Prozentanzal ermitteln.
Ich habe schon unterschiedliche Methoden versucht, aber keines funktionierte.
Hier ist einmal der Quellcode:
Quellcode
- Sub BarometerAuswertung()
- Dim i
- Dim varBegrArr As Variant
- Dim intAnz As Integer, j As Integer
- Dim singleArea As Range, cell1 As Range, rangeToUse As Range, rangeToUse1 As Range
- Dim fil(53) As String
- 'Kategorien anlegen
- fil1 = Sheets("Unternehmensprofil").Cells(5, 2).Value
- fil2 = Sheets("Unternehmensprofil").Cells(6, 2).Value
- fil3 = Sheets("Unternehmensprofil").Cells(7, 2).Value
- fil4 = Sheets("Unternehmensprofil").Cells(8, 2).Value
- fil5 = Sheets("Unternehmensprofil").Cells(9, 2).Value
- fil6 = Sheets("Unternehmensprofil").Cells(10, 2).Value
- fil7 = Sheets("Unternehmensprofil").Cells(11, 2).Value
- fil8 = Sheets("Unternehmensprofil").Cells(12, 2).Value
- fil9 = Sheets("Unternehmensprofil").Cells(13, 2).Value
- fil10 = Sheets("Unternehmensprofil").Cells(14, 2).Value
- fil15 = Sheets("Unternehmensprofil").Cells(15, 2).Value
- fil16 = Sheets("Unternehmensprofil").Cells(16, 2).Value
- 'Deklaration der Interessen Webentwicklung
- Fil17 = Sheets("Unternehmensprofil").Cells(5, 3).Value
- fil18 = Sheets("Unternehmensprofil").Cells(6, 3).Value
- fil19 = Sheets("Unternehmensprofil").Cells(7, 3).Value
- fil20 = Sheets("Unternehmensprofil").Cells(8, 3).Value
- fil21 = Sheets("Unternehmensprofil").Cells(9, 3).Value
- fil22 = Sheets("Unternehmensprofil").Cells(10, 3).Value
- 'Deklaration der Interessen Büro
- fil23 = Sheets("Unternehmensprofil").Cells(11, 3).Value
- fil24 = Sheets("Unternehmensprofil").Cells(12, 3).Value
- fil25 = Sheets("Unternehmensprofil").Cells(13, 3).Value
- fil26 = Sheets("Unternehmensprofil").Cells(14, 3).Value
- 'Deklaration der Interessen Gestaltung
- fil27 = Sheets("Unternehmensprofil").Cells(15, 3).Value
- fil28 = Sheets("Unternehmensprofil").Cells(16, 3).Value
- 'Deklaration Prozentwerte
- fil29 = Sheets("Unternehmensprofil").Cells(5, 4).Value
- fil30 = Sheets("Unternehmensprofil").Cells(6, 4).Value
- fil31 = Sheets("Unternehmensprofil").Cells(7, 4).Value
- fil32 = Sheets("Unternehmensprofil").Cells(8, 4).Value
- fil33 = Sheets("Unternehmensprofil").Cells(9, 4).Value
- fil34 = Sheets("Unternehmensprofil").Cells(10, 4).Value
- fil35 = Sheets("Unternehmensprofil").Cells(11, 4).Value
- fil36 = Sheets("Unternehmensprofil").Cells(12, 4).Value
- fil37 = Sheets("Unternehmensprofil").Cells(13, 4).Value
- fil38 = Sheets("Unternehmensprofil").Cells(14, 4).Value
- fil39 = Sheets("Unternehmensprofil").Cells(15, 4).Value
- fil40 = Sheets("Unternehmensprofil").Cells(5, 4).Value
- 'Auswertungstabelle Skill Barometer Kategorien
- fil41 = Sheets("Unternehmensprofil").Cells(4, 7).Value
- fil42 = Sheets("Unternehmensprofil").Cells(4, 8).Value
- fil43 = Sheets("Unternehmensprofil").Cells(4, 9).Value
- 'Auswertungstabelle Skill Barometer Interessen
- fil44 = Sheets("Unternehmensprofil").Cells(6, 7).Value
- fil45 = Sheets("Unternehmensprofil").Cells(6, 8).Value
- fil46 = Sheets("Unternehmensprofil").Cells(6, 9).Value
- varBegrArr = Array(fil1, fil2, fil3, fil4, fil5, fil6, fil7, fil8, fil9, fil10, fil11, fil12, fil13, fil14, fil15, fil16, Fil17, fil18, fil19, fil20, fil21, fil22, fil23, fil24, fil25, fil26, fil27, fil28, fil29, fil30, fil31, fil32, fil33, fil34, fil35, fil36, fil37, fil38, fil39, fil40, fil41, fil42, fil43, fil44, fil45, fil46)
- 'Meldung zum Löschen des Tabellenblattes abschalten-umgehen
- Application.DisplayAlerts = False
- 'Bereich (Haupttabelle) deklarieren
- Set rangeToUse = Range("C5:C16")
- 'Farbe für Bereich Haupttabelle wählen + Rahmenlinie(dicke)
- Cells.Interior.ColorIndex = 0
- Cells.Borders.LineStyle = xlNone
- rangeToUse.Interior.ColorIndex = 0
- 'Bereich eingrenzen
- For Each singleArea In rangeToUse.Areas
- singleArea.BorderAround ColorIndex:=0, Weight:=xlThin
- Next singleArea
- 'Allgemeine Abfrage
- Application.DisplayAlerts = False
- With Sheets("Unternehmensprofil").Range("A5:D16")
- End With
- End Sub
Über eure Tipps oder Unterstützungen, freue ich mich.
Beste Grüße