Überregional: Excel VBA

Ist schon etwas her, dass ich in VBA programmiert habe.
With Range("B" & Target.Row, "P" & Target.Row)
Heißt dieser Part nicht, dass es nur in den Spalten B bis P funktioniert?

Teste dein Zufallsweise mal mit diesem Hintergedanken.
Viel Erfolg!

Ich habe da noch ein paar Fragen zu Deinen Anforderungen:
1. Soll das nach Aktivierung für mehrere, nacheinander angeklickte Zellen gehen?
2. Soll da nur eine vordefinierte (oder verschiedene bei mehreren Schaltflächen) Farbe genutzt werden?
3. Soll dieser Code bei verschiedenen Tabellen der gleichen Mappe funktionieren oder nur auf einem bestimmten Tabellenblatt?
4. Wo kommt Deine Bedingung "ausfuehren=true" her?

LG Aqua_Tiger

Du meinst Zellen in den Spalten B bis P?

Wie willst du denn die Variable "ausführen" an deinen Code, der im Excelsheet hinterlegt wurde, übergeben? Man Könnte ausführen in eine Zelle speichern (zB: in Zelle (1000,1000))
Du könntest den Code hinter dem Button so gestalten:
If Cells(1000,1000)<>0 then
Cells(1000,1000)=0
else
Cells(1000,1000)=1
endif

Dein Code würde dann so aussehen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1000,1000)<>0 then Then
With Range("B" & Target.Row, "P" & Target.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub

Warum über VBA und nicht über Benutzerdefinibare Formatierung?

1 = Farbe
0 = keine Farbe

Mit deinem Code wird die Zeile eingefärbt, aber nur eine Zelle entfärbt.
Willst du wiede die ganze Zeile entfärben dann sieht es so aus:

Private Sub CommandButton1_Click()
If Cells(1000, 1000) <> 0 Then
Cells(1000, 1000) = 0
Else
Cells(1000, 1000) = 1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
1
If Cells(1000, 1000) <> 0 Then
With Range("B" & Target.Row, "P" & Target.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Range("B" & Target.Row, "P" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub

Du musst mal ganz exakt beschreiben was genau passieren soll.
Du klickst in welche Zelle und was soll sich dann einfärben?

Das nennt sich "bedingte Formatierung" und man kann Zellen abhängig von dem, was in ihnen steht, formatieren.

Zum Beispiel kann man bei Eingabe von "0" die Zelle rot färben, bei Eingabe von "1" die Zelle grün. Das geht auch mit größer/kleiner, Datumsangaben, etc. und natürlich kann man statt der Zellenfarbe auch den Text anpassen und vieles mehr.

Einfach mal mit der bedingten Formatierung spielen, denn wenn es nur darum geht, dass eine Zelle (oder auch mehrere) abhängig von ihrem Inhalt anders ausschauen sollen, dann kannst du das auch mit dieser Funktion umsetzen.

Das ist kein Problem.

Vorher müssen wir unser Zelle 1000/1000 löschen. Sie würde sonst vermutlich als letzte Zeile erkannt.
Dann wird die letzte Zeile ermittelt und zuletzt dahin gesprungen.

Code:
Cells(1000,1000)=""
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
cells(letztezeile,1).select

Den Rest schafst du, oder?

schaffst du. sorry

Es ist ein wenig problematisch beim Programmieren mit der Bezeichnung A1, B1 usw zu arbeiten leichter ist es nur mit Zahlen. A1 = Cells(1,1)
Range("A5:P2000") entspricht dann Range(cells(1,5), cells(16,2000))

Quatsch
Range("A5:P2000") entspricht dann Range(cells(5,1), cells(2000.16))