Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code bischen abändern

Code bischen abändern
07.09.2017 23:58:38
Lorenz
Hallo werte Helfende
Im untenstehenden Code der (da aus diesem Forum) ausgezeichnet funktioniert, hat nach meinen Ansprüchen einen kleinen Schönheitsmangel. Und zwar: wird durchgehend ein Bereich markiert wird die rechte Nachbarzelle gelöscht. Werden hingegen mehrere (auch nicht zusammenhängende) Bereiche (Klick + Shift) Selectiert dann bleiben die Einträge rechts daneben bestehen. Genauso brauche ich es auch bei durchgehender Markierung einiger Zellen.
Dim Bereich As String, arrBereich As String, i As Long, strBereich As String
Dim KO$(0, 1 To 50)
For i = 1 To 13
If Cells(i, ActiveCell.Column) = 1 Then Exit Sub
Next
For i = 1 To 50
If (i) = 1 And 1 = 1 Then KO(0, i) = "Ko"
Next
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Selection.Areas(i) = KO
Selection.Areas(i).Font.ColorIndex = xlAutomatic
With wksWert
Range(Selection.Areas(i).Address) = KO
End With
Next i
Gruß
Lorenz

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code bischen abändern
08.09.2017 08:37:42
JoNNy
Guten Morgen Lorenz,
was genau soll der Code, denn bewerkstelligen?
P.S. Tipp am Rande: Mit Selections zu arbeiten ist meist nicht sehr performant. Das sollte man versuchen zu vermeiden.
Gruß JoNNy
und gelöscht wird ja auch nichts ... owT
08.09.2017 09:33:27
Matthias
AW: und gelöscht wird ja auch nichts ... owT
08.09.2017 10:40:39
JoNNy
Genau das hat mich auch gewundert deswegen habe ich gefragt :D
AW: und gelöscht wird ja auch nichts ... owT
08.09.2017 14:49:24
Lorenz
Hi JoNNy
Der Code soll bewirken: Bei Mehrfach-Markierung ab der ersten markierten Zelle soll nur jede zweite Zelle "bearbeitet" werden. Bevor der Eintrag getätigt wird sind schon Einträge (in den nicht zu bearbeitenden Zellen) vorhanden. Genau um diese Einträge handelt es sich (sollen erhalten bleiben)
Danke für dein Bemühen &
Gruß Lorenz
Anzeige
AW: Code bischen abändern
08.09.2017 16:09:23
Lorenz
Hi JoNNy
Der Code soll bewirken: Bei Mehrfach-Markierung ab der ersten markierten Zelle soll nur jede zweite Zelle "bearbeitet" werden. Bevor der Eintrag getätigt wird sind schon Einträge (in den nicht zu bearbeitenden Zellen) vorhanden. Genau um diese Einträge handelt es sich (sollen erhalten bleiben)
Danke für dein Bemühen &
Gruß Lorenz
AW: Code bischen abändern
11.09.2017 21:37:51
Lorenz
AW: Code bischen abändern
11.09.2017 12:58:12
Lorenz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige