Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1660to1664
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

VBA 3 Abfragen

VBA 3 Abfragen
18.12.2018 11:11:41
Erik
Hallo zusammen,
ich habe diese Abfrage und benötige noch eine weitere dritte.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("M7:M250"), Target) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
ElseIf Not Intersect(Range("N7:N250"), Target) Is Nothing Then
Cancel = True
If Cells(Target.Row, 30)  "" Then
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
End If
End If
End Sub
ich habe den Code so abgeändert:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("M7:M250"), Target) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
ElseIf Not Intersect(Range("N7:N250"), Target) Is Nothing Then
Cancel = True
If Cells(Target.Row, 30)  "" Then
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
 ElseIf Not Intersect(Range("O7:O250"), Target) Is Nothing Then
Cancel = True
If Cells(Target.Row, 21)  "" Then
If Target = "" Then
Target = "a"
Else
Target.ClearContents
End If
End If
End If
End If
End Sub

Das klappt aber so nicht.
Was muß ich ändern ?
Liebe Grüße
Erik

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA 3 Abfragen
18.12.2018 11:28:09
UweD
Hallo
so...
Microsoft Excel Objekt Tabelle2
Option Explicit 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Range("M7:M250"), Target) Is Nothing Then 
        Cancel = True 
        If Target = "" Then 
            Target = "a" 
        Else 
            Target.ClearContents 
        End If 
     
    ElseIf Not Intersect(Range("N7:N250"), Target) Is Nothing Then 
        Cancel = True 
        If Cells(Target.Row, 30) <> "" Then 
            If Target = "" Then 
                Target = "a" 
            Else 
                Target.ClearContents 
            End If 
        End If 
     
    ElseIf Not Intersect(Range("O7:O250"), Target) Is Nothing Then 
        Cancel = True 
        If Cells(Target.Row, 21) <> "" Then 
            If Target = "" Then 
                Target = "a" 
            Else 
                Target.ClearContents 
            End If 
        End If 
    End If 
     
End Sub 

LG UweD
Anzeige
AW: VBA 3 Abfragen
18.12.2018 11:32:40
Erik
hmm ?
Was hatte ich falsch ?
Gruß
Erik
AW: VBA 3 Abfragen
18.12.2018 11:34:53
UweD
Hallo
das End If von...

If Cells(Target.Row, 30) "" Then

LG UweD
AW: VBA 3 Abfragen
18.12.2018 11:40:28
Erik
Ahh ja,
vielen Dank
und Gruß
Erik
AW: VBA 3 Abfragen
18.12.2018 12:09:10
hary
Moin
Etwas gekuerzt,sollte auch klappen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Spalte As Long
If Not Intersect(Range("M7:O250"), Target) Is Nothing Then
Cancel = True
Select Case Target.Column
Case 13
Target = IIf(Target = "", "a", "")
Case 14: Spalte = 30
Case 15: Spalte = 21
End Select
If Spalte Then
If Cells(Target.Row, Spalte)  "" Then
Target = IIf(Target = "", "a", "")
End If
End If
End If
oder wenn das a abhaengig von Spalten 21 oder 30 eingetragen werden soll.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Spalte As Long
If Not Intersect(Range("M7:O250"), Target) Is Nothing Then
Cancel = True
Select Case Target.Column
Case 13
Target = IIf(Target = "", "a", "")
Case 14: Spalte = 30
Case 15: Spalte = 21
End Select
If Spalte Then
Target = IIf(Cells(Target.Row, Spalte)  "", "a", "")
End If
End If
End Sub

gruss hary
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige