Hallo,
folgendes Problem: ich habe ein Tabellenblatt in Excel auf dem ich mehrere leere Bereiche habe die es zu füllen gilt. Diese Bereiche habe ich als Tabelle formatiert und benannt. Im vorliegenden Fall heißt der Bereich "UserNat".
Eine zweite Tabelle enthält die Daten dafür. In dieser zweiten Tabelle habe ich eine Spalte mit OrgEinheiten wie z.B. "AT". Ich zähle wie viele Zeilen mit der OrgEinheit "AT" es gibt und jetzt kommt der Knackpunkt. Die Bereiche in meiner Zieltabelle haben als Zeilenbeschriftung eben diese OrgEinheiten und als Spalten die Monate Jan-Dez. Jetzt muss die Zahl der Orgeinheiten in genau die Zelle der Tabelle eingetragen werden, die der OrgEinheit und dem aktuellen Monat entspricht. Ich denke mal den Monat auszulesen ist kein Problem. Aber für die Kombination aus beidem will mir einfach kein ordentlicher Lösungsansatz einfallen. Das ganze muss dynamisch bleiben, weil sich die Reihenfolge der OrgEinheiten ändern kann und die Monate sind ja eh dynamisch.
Mein Ansatz bisher:
Allerdings springt er schon in der 7. Zeile raus, weil das mit dem oTargetSheet.UserNat... scheinbar nicht geht.
Ich bin echt am verzweifeln, weil es einigermaßen dringend ist. Auch ein Ansatz würde mir schon sehr weiterhelfen. Falls meine Erklärung unklar ist, hiermal ein Ausschnitt der Zieltabelle:
Vielen Dank im Vorraus
Gruß MultiTobi96
folgendes Problem: ich habe ein Tabellenblatt in Excel auf dem ich mehrere leere Bereiche habe die es zu füllen gilt. Diese Bereiche habe ich als Tabelle formatiert und benannt. Im vorliegenden Fall heißt der Bereich "UserNat".
Eine zweite Tabelle enthält die Daten dafür. In dieser zweiten Tabelle habe ich eine Spalte mit OrgEinheiten wie z.B. "AT". Ich zähle wie viele Zeilen mit der OrgEinheit "AT" es gibt und jetzt kommt der Knackpunkt. Die Bereiche in meiner Zieltabelle haben als Zeilenbeschriftung eben diese OrgEinheiten und als Spalten die Monate Jan-Dez. Jetzt muss die Zahl der Orgeinheiten in genau die Zelle der Tabelle eingetragen werden, die der OrgEinheit und dem aktuellen Monat entspricht. Ich denke mal den Monat auszulesen ist kein Problem. Aber für die Kombination aus beidem will mir einfach kein ordentlicher Lösungsansatz einfallen. Das ganze muss dynamisch bleiben, weil sich die Reihenfolge der OrgEinheiten ändern kann und die Monate sind ja eh dynamisch.
Mein Ansatz bisher:
Quellcode
- ' Anzahl der OrgEinheiten zählen
- For k = 2 To oSourceBook.ActiveSheet.UsedRange.Rows.Count
- If ActiveSheet.Cells(k, 3).Value = ActiveSheet.Cells(k + 1, 3).Value Then
- a = a + 1
- Else
- 'Übertragen der Anzahl in die Zieltabelle
- For i = 1 To oTargetSheet.UserNat.UsedRange.Rows.Count
- If oSourceBook.Cells(k, 3).Value = oTargetSheet.UserNat.Cells(i, 1).Value Then
Allerdings springt er schon in der 7. Zeile raus, weil das mit dem oTargetSheet.UserNat... scheinbar nicht geht.
Ich bin echt am verzweifeln, weil es einigermaßen dringend ist. Auch ein Ansatz würde mir schon sehr weiterhelfen. Falls meine Erklärung unklar ist, hiermal ein Ausschnitt der Zieltabelle:
| Jan | Feb | Mär | Apr | Mai | Jun | |
| AT | ||||||
| BE |
Vielen Dank im Vorraus
Gruß MultiTobi96
