ich scheitere momentan an folgendem Problem:
Kann ich die folgende Codezeilen auch über eine Schleife ermitteln,
so dass die Namen "Feldxx" und "rngxx" automatisch "aufaddiert" werden?
ActiveSheet.Range("Feld01").Resize(1, intANZAHL).Name = "rng01"
ActiveSheet.Range("Feld02").Resize(1, intANZAHL).Name = "rng02"
ActiveSheet.Range("Feld03").Resize(1, intANZAHL).Name = "rng03
.... usw bis
ActiveSheet.Range("Feld200").Resize(1, intANZAHL).Name = "rng200
Danke für Unterstützung
Klaus