If Zellen G u. K der aktiven Zeile leer, dann....

Forumthread: If Zellen G u. K der aktiven Zeile leer, dann....

04.12.2015 11:34:37

Peter

Hallo zusammen
Wie könnte ein Code aussehen, der folgende Funktionen ausführt?
Werte, Gitternetzlinien und Hintergrundfarbe der aktiven Zeile (A:S) löschen, wenn die Zellen der aktiven Zeile der Spalte G und K leer sind.
Bin dankbar für jede Hilfe.
Viele Grüsse,
Peter

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

z.B. so:

04.12.2015 12:34:26

Michael
AW: z.B. so:

04.12.2015 13:40:56

Peter
Sorry, verschaut

04.12.2015 19:22:13

Michael
AW: Sorry, verschaut

08.12.2015 10:28:51

Peter
na fein, schöne Grüße zurück owT

08.12.2015 20:16:06

Michael
wie ab Zeile 4

10.12.2015 10:39:40

Peter
AW: wie ab Zeile 4

10.12.2015 15:13:39

Michael
AW: wie ab Zeile 4

10.12.2015 15:36:33

Peter
freut mich,

10.12.2015 15:46:34

Michael

z.B. so:

04.12.2015 12:34:26

Michael

Hi Peter,
versuch mal:

Option Explicit
Sub leeren()
Dim zeile As Long
zeile = Selection(1).Row
If WorksheetFunction.CountA(Range("G" & zeile & ":H" & zeile)) = 0 Then _
Range("A" & zeile & ":S" & zeile).Clear
End Sub

Schöne Grüße,
Michael

AW: z.B. so:

04.12.2015 13:40:56

Peter

Hallo Michael
Ja, es funktioniert, danke für Deine wertvolle Hilfe!
Jedoch fehlt mir noch ein Detail.
Es wird gelöscht, wenn G leer ist, jedoch nicht wenn beide Zellen G und K der aktiven Zeile leer sind. Ich hab rumgebastelt, es jedoch nicht hin bekommen. Wie müsste ich den Code an passen, so dass erst dann gelöscht wird, wenn beide Zellen leer sind.
( & (and) anstelle "or" steht ja schon?)
Danke jetzt schon für Deinen nützlichen Support.
Viele Grüsse,
Peter
Viele Grüsse,
Peter

Sorry, verschaut

04.12.2015 19:22:13

Michael

Hi Peter,
sorry, ich hatte mich verschaut und G+H betrachtet statt G und K.
Hier der geänderte Code:

Sub leeren()
Dim zeile As Long
zeile = Selection(1).Row
If Range("G" & zeile) = "" And Range("K" & zeile) = "" Then _
Range("A" & zeile & ":S" & zeile).Clear
End Sub

Schöne Grüße,
Michael

AW: Sorry, verschaut

08.12.2015 10:28:51

Peter

Hallo Michael
oh wie peinlich, das hätte ich auch selber merken müssen :-(
Danke Dir für den wertvollen Hinweis, jetzt läuft's :-)
Viele Grüsse,
Peter

na fein, schöne Grüße zurück owT

08.12.2015 20:16:06

Michael

wie ab Zeile 4

10.12.2015 10:39:40

Peter

Hallo Michael
wie muss ich den Code anpassen, damit es erst ab der 4. Zeile greift?
Hab bei zeile = Seleciton(1).Row auf (4) geändert, funktioniert jedoch nicht.
Danke schon jetzt für Deine beschätzte Hilfe.
Viele Grüsse,
Peter

AW: wie ab Zeile 4

10.12.2015 15:13:39

Michael

Hi Peter,
dann wird es aber kompliziert von der Bedienung...
Ich weiß ja nicht, was Du genau machst, aber im Moment bezieht sich alles auf den *seletierten* Bereich.
Möchtest Du nun, daß *nichts* passiert, falls die linke, obere Zelle in den ersten drei Zeilen liegt...

Sub leeren()
Dim zeile As Long
zeile = Selection(1).Row
if zeile

... oder daß grundsätzlich die vierte Zeile des *selektierten Bereichs* genommen wird?
Selection(1) ist immer die linke, obere Zelle eines *selektierten* Bereichs, wobei die Nummerierung jeweils nach rechts, dann nach unten geht.
Hast Du meinetwegen A2:B5 markiert, entspricht (0) A2, (1) B2, (2) A3 usw. bis (7) B5.
Lade bitte mal ne anonymisierte Beispieldatei hoch und hebe farblich hervor, was Du typischerweise markierst.
Schöne Grüße,
Michael

AW: wie ab Zeile 4

10.12.2015 15:36:33

Peter

Hallo Michael
Funktioniert sehr gut, vielen Dank für Deine Unterstützung.
Viele Grüsse,
Peter

freut mich,

10.12.2015 15:46:34

Michael

Peter,
außerdem hab ich's oben falsch verbeispielt...
Wenn schon, dann isses so: A2:B5 markiert, entspricht (1) A2, (2) B2, (3) A3 usw. bis (8) B5.
Einer der seltenen Fälle, bei denen der Informatiker nicht bei 0 das Zählen beginnt. Es gibt halt keine nullte Zelle, Zeile oder Spalte.
Happy Exceling,
Michael

Beliebteste Forumthreads (12 Monate)

If Zellen G u. K der aktiven Zeile leer, dann....

Forumthread: If Zellen G u. K der aktiven Zeile leer, dann....

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread