VBA Bearbeitungsbereich defininieren

Hallo- Excelexperten!
Nun mein Projekt nimmt Gestallt an. Dank den Unterstützern dieses Forums.
Da ich aber nicht wusste, das beim Kopieren und Einfügen von Zeilen die Zellen nicht Verbunden sein dürfen- suche ich nach einer anderen Lösung für folgendes Vorhaben.
Meine Befehlsschaltläche "weiter" in meiner Userform trägt alle Daten ein, schließt sich, springt zur nächsten Zeile nach unten und öffnet sich wieder. Das geht wunderbar.
Nun bräuchte ich aber ein Makro für das Aktivieren eines festgelegten aber nicht zusammenhängenden Bereich, der Bearbeitet werden darf.
Also Click- und folgender Bereich darf bearbeitet werden:
Beginn bei Zeile 20 und Endet bei Zeile 49.
Der nächste Bereich beginnt bei Zeile 69 und endet bei Zeile 98.
Also kurz gesagt es dürfen die Zeilen 1-19 nein/Start bei 20-49 ja/ 50-68 nein/Start bei 69-98 ja usw. bis zur Zeile 5000 bearbeitet werden.
Ich hatte schon mal einen Bereich Versuchshalber ausgeblendet, jedoch hat meine WEITER Funktion auch diese ausgeblendeten Zellen mit bedient.
Kann jemand helfen?
Währe nicht schlecht wenn man da ein Makro zusammenbasteln kann. Gern auch mit Kommentare, das ich auch etwas nachvollziehen kann.
Danke Andreas D:

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
lustiges Teil...
"Keine Farbe" geht am einfachsten mit =xlnone:

Sub weiß_für_Fertig()
Dim i&
i = 19
Do
If (i Mod 49)  1 Then
Range("A" & i).Interior.Color = xlNone
i = i + 1
Else
i = i + 19
End If
Loop While i

wobei das bei 5000 Zellen EINZELN "ewig" dauert; zumindest das "Weißen" geht in der ganzen Spalte:

Sub weiß_für_Fertig()
Range("A:A").Interior.Color = xlNone
End Sub

Das mit dem Weiterspringen läßt sich viel "direkter" machen (hier incl. Grün):

Private Sub CommandButton19_Click()
Dim z As Long
Dim r As Long
Range(TextBox19.Value) = TextBox17.Value
Range(TextBox15.Value) = TextBox16.Value
' ich kommentiere das mal aus...
'z = Cells(ActiveCell.Row, "A")               'aktuelle Lfd. Nr
'r = ZeilenNr(z + 1)                          'zutreffende Zeilen# der nächsten Lfd. Nr
'Cells(r, ActiveCell.Column).Select           'auf nächste Zeile positionieren
' ... weil das so gedacht war:
ActiveCell.Interior.Color = vbGreen ' erst das Grün
If (ActiveCell.Row Mod 49)  0 Then
ActiveCell.Offset(1).Select
Else
ActiveCell.Offset(20).Select
End If
' ich kommentiere das mal aus...
' Unload Me
' UserForm1.Show
' ... weil das viel schneller läuft
UserForm_Initialize ' das lädt einfach die Variablen nach - wozu eigentlich?
End Sub

Viel Spaß beim Basteln & LG,
Michael

Beliebteste Forumthreads (12 Monate)

VBA Bearbeitungsbereich defininieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Bearbeitungsbereich defininieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread