Frage : Excel vba - wie man feststellt, wenn 3 Zellen leer sind?

Ich bin Kodierung in Worksheet_BeforeDoubleClick () und Anwendung Buchstaben „r“ des Marlett Gusses, um ein X zu zeigen, wenn eine Zelle double-clicked, aber frei das X, wenn double-clicked again.

For 3 bestimmte Zellen (E46: E48) innerhalb dieses Double-clickbereiches, wenn ein X (Marlett „r“) und ein Double-click entfernt es (Ziel = vbNullString) existiert, muss ich überprüfen, um von den 3 Zellen wenn überhaupt zu sehen (E46: E48) enthalten noch ein X (Marlett „r“) und wenn alle sie freier Raum sind, mich müssen etwas zu einem anderen cell.

I tun können meinen Code nicht erhalten, um zu arbeiten: es ist Linie 8 im Code unter dem funktioniert nicht right.
Hope, das jemand help. kann 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

If Target.Cells.Count > 1 nehmen dann Unterseeboot heraus
Wenn nicht schneiden (Ziel, Strecke („E18: E328“)) Ist nichts dann
	Target.Font.Name = „Marlett“
	Wenn Ziel = dann vbNullString
		Ziel = „r“
	Sonst
		Ziel = vbNullStrung
		Wenn nicht schneiden (Ziel, Strecke („E46: E48“)) Ist nichts dann
			Wenn IsNull (Strecke („E46: E48“)) Dann
				… etwas zu einer anderen Zelle tun
			Sonst
				… Blabla - Blabla
			Beenden wenn
	Beenden wenn
Beenden wenn

Antwort : Excel vba - wie man feststellt, wenn 3 Zellen leer sind?

Ich hatte das Löschen = zutreffende Aussage in einem weniger als optimalen Platz. Wenn Sie ihn vor dem letzten Ende verschieben, wenn, das das normale Double-clickereignis ermöglichen würde aufzutreten, wenn der Benutzer außerhalb der Strecke E18 double-clicks: E328
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Privates VorWorksheet_BeforeDoubleClick (ByVal Ziel als Strecke, Löschen, wie Boolesch)
Wenn Target.Cells.Count > 1 dann Unterseeboot herausnehmen
Wenn nicht schneiden (Ziel, Strecke („E18: E328“)) Ist nichts dann
    Target.Font.Name = „Marlett“
    Wenn Ziel = dann vbNullString
        Ziel = „r“
    Sonst
        Ziel = vbNullString
        Wenn nicht schneiden (Ziel, Strecke („E46: E48“)) Ist nichts dann
            Wenn Application.CountA (Strecke („E46: E48“)) = 0 dann
                Strecke („F46“) = „zutreffend“
            Sonst
                Strecke („F46“) = „falsch“
            Beenden wenn
        Beenden wenn
    Beenden wenn
    Löschen = richtet aus
Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us