Hallo VBA-Profis,
nach einigen Jahren als Forumsleser, will ich mich jetzt aktiv an diesem hervorragendem Forum beteiligen und starte heute meinen ersten Beitrag mit meinem akutellen Problem:
Ausgehend von der aktiven Zelle, soll um x Spalten erweitert werden. Knackpunkt:
... und zwar um soviele Spalten wie Einträge in definiertem Bereich vorhanden.
Als Beispiel stelle ich den Code ein, wie ich den Bereich per VBA um Zeilen erweitere:
ActiveCell.Offset(0, 0).Range("A1:E" & WorksheetFunction.CountA(Range "Strg_AuftragsID")) * 21).Select
Das funktioniert perfekt, obwohl vieleicht nicht perfekt geschrieben, aber egal, es funzt.
So etwas ähnliches brauche ich, um den Bereich um die Anzahl der IST-Monate zu erweitern wie im definiertem Bereich Einträge vorhanden. Meine kläglichen Versuche sehen so oder so ähnlich aus, aber COUNTA liefert nicht die richtige Anzahl.
Weder mit RANGE:
Range(ActiveCell, ActiveCell.Offset(Range(WorksheetFunction.CountA(Strg_ISTMonate)), 0)).Select
noch mit:
ActiveCell.Resize(1, WorksheetFunction.CountA("Strg_ISTMonate")).Select
oder als Schleife (um die Formel in die Zellen einzeln zu setzen):
Range("J29").Select
ActiveCell.FormulaR1C1 = "=SUMIFS(Data_01Jan,Data_AuftragsID,RC2,Data_KPInr,RC23)"
Selection.Copy
For i = 1 To WorksheetFunction.CountA(Strg_ISTMonate)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Next i
kleine Zusatzfrage zu folgender Aussage:
Wenn ich in VBA einen definierten Namen verwende, ist es egal ob in Anführungszeichen oder nicht. Stimmt das?
So wie ich das Forum kenne, habe ich am Dienstag zum Arbeitsbeginn bestimmt eine Menge hilfreicher Antworten und freue mich schon jetzt darauf.
Vielen Dank schon mal für Eure Unterstützung.
Darko