Hallo liebes Forum,
als VBA "Laie" habe ich mein Problem wie folgt gelöst:
Worksheets("Firmenkunden").Range("F17:J17").ClearContents
Worksheets("Firmenkunden").Range("F24:J24").ClearContents
Worksheets("Firmenkunden").Range("F31:J31").ClearContents
Worksheets("Firmenkunden").Range("F38:J38").ClearContents
Worksheets("Private Banking").Range("F17:J17").ClearContents
Worksheets("Private Banking").Range("F24:J24").ClearContents
Worksheets("Private Banking").Range("F31:J31").ClearContents
Worksheets("Private Banking").Range("F38:J38").ClearContents
... usw. JA, das ist schon sehr anfängerhaft.
Ich weiß aber, dass man dieses Problem sicherlich mit folgenden Komponenten lösen kann, damit der Code nicht so unendlich lang wird:
Select Case Target.Column
Case 6 To 10 'F:J
Select Case Target.Row
Case 17, 24, 31, 38, 45, 52, 59, 66, 73, 80, 87, 94, 101, 108, 115, 122, 129, 136, 143, 150, 157, 164, 171, 178, 185, 192, 199, 206, 213, 220, 227, 234, 241, 248, 255, 262, 269, 276, 283, 290, 297, 304, 311, 318, 325, 332, 339, 346, 353, 360, 367, 374, 381, 388, 395, 402, 409, 416, 423, 430, 437, 444, 451, 458, 465, 472, 479, 486, 493, 500, 507, 514, 521, 528, 535, 542, 549, 556, 563, 570, 577, 584, 591, 598, 605, 612, 619, 626, 633, 640, 647, 654, 661, 668, 675, 682, 689
Leider bin ich noch nicht in der Lage diese Informationen zusammenzufassen.
Also folgende Komponenten sollte der Code lösen:
- Eingaben Tabellenblätter Firmenkunden, Private Banking, Vorsorge und Mitarbeiterbindung sollen "bereinigt" werden
- Bereiche sind immer F:J in 7er Schritten wie dem Case-Befehl zu entnehmen.
Vielen Dank für eure Hilfe! Ich hoffe es ist soweit verständlich.
Schönes Wochenende
Gruß
Manu