Office: Objektvariable oder With Blockvariable nicht festgelegt

Kernig · 14. April 2017

Hallo,

ich habe folgenden Tabellen-Code

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'#####################################################################

Dim ASpalte As Range
Set ASpalte = [A2:A1000]
If Not Intersect(Target, ASpalte) Is Nothing Then
HinzufügenButton
End If
Set ASpalte = Nothing

'#####################################################################

Dim hinzufügenColumn As Range
Set hinzufügenColumn = [B2:B1000]
If Intersect(Target, hinzufügenColumn) = "Hinzufügen" Then
HinzufügenMakro
End If
Set hinzufügenColumn = Nothing

'#####################################################################

End Sub

Sub HinzufügenButton()
ActiveCell.Offset(0, 1) = "Hinzufügen"
ActiveCell.Offset(0, 1).Font.Bold = True
ActiveCell.Offset(0, 1).Interior.ColorIndex = 45
ActiveCell.Offset(0, 1).HorizontalAlignment = xlCenter
End Sub

Sub HinzufügenMakro()
Dim Kunde As String
Dim Auftrag As String
Dim Ort As String
Kunde = ActiveCell.Offset(0, 1)
ActiveCell.Offset(0, 5) = Kunde

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Soweit funktioniert alles aber ich bekomme immer folgenden Fehler:

:)

Hajo_Zi · 15. April 2017

wozu = "hinzufügen"
If Intersect(Target, hinzufügenColumn) = "Hinzufügen" Then
intersetct ergibt einen Bereich oder keinen Bereich.

Kernig · 15. April 2017

Ziel ist es für jede Zelle in der Spalte B bei Klick zu überprüfen ob das Wort "Hinzufügen" in dieser Zelle steht.
Wenn dies der Fall ist, soll er später ein Makro ausführen, welches aber noch nicht geschrieben ist, deshalb auch der Platzhalter im hinzufügenMakro.

EDIT:

Bin selbst auf eine Lösung gekommen, auch wenn diese nicht ganz so elegant ist wie ich das gerne hätte:

Code:

Dim hinzufügenColumn As Range
Set hinzufügenColumn = [B2:B1000]
If Not Intersect(Target, hinzufügenColumn) Is Nothing Then
HinzufügenMakro
End If
Set hinzufügenColumn = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibt es denn eine Möglichkeit bei Klick auf die jeweilige Zelle in der Range hinzufügenColumn zu überprüfen ob "Hinzufügen" in der Zelle steht?

Hajo_Zi · 15. April 2017

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaZelle As Range
Set RaZelle = Intersect(Range("A2:A1000"), Target)
If Not RaZelle Is Nothing Then
HinzufügenButton
Else
Set RaZelle = Intersect(Range("B2:B1000"), Target)
If Not RaZelle Is Nothing Then
HinzufügenMakro
End If
End If
Set RaZelle = Nothing
End Sub

Sub HinzufügenButton()
If ActiveCell.Offset(0, 1) = "Hinzufügen" Then
ActiveCell.Offset(0, 1).Font.Bold = True
ActiveCell.Offset(0, 1).Interior.ColorIndex = 45
ActiveCell.Offset(0, 1).HorizontalAlignment = xlCenter
End If
End Sub

Sub HinzufügenMakro()
Dim Kunde As String
Dim Auftrag As String
Dim Ort As String
Kunde = ActiveCell.Offset(0, 1)
ActiveCell.Offset(0, 5) = Kunde
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

drambeldier · 16. April 2017

Moin,

wie fast meistens gibt es mehr als einen Weg:
Code:

Dim hinzufügenColumn As Range
Dim gefunden As Range

Set hinzufügenColumn = Range("B2:B1000")
With hinzufügenColumn
Set gefunden = .Find("Hinzufügen", LookIn:=xlValues)
End With
If Not gefunden Is Nothing Then
HinzufügenMakro
End If
Set hinzufügenColumn = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kernig · 16. April 2017

Noch einmal zum Verständnis:

Wenn ich folgenden Code habe:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaZelle As Range
Set RaZelle = Intersect(Range("A2:A1000"), Target)
If Not RaZelle Is Nothing Then
HinzufügenButton
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dann bedeutet das doch, dass er das Makro "HinzufügenButton" ausführt sobald er eine Zelle gefunden hat in für die Range A2:A1000 oder nicht?

Wenn dies so ist, führt der Code ja nicht das aus, was ich vor habe! Ich suche nach einer Möglichkeit Auf eine Zelle zu klicken, zu prüfen ob sie in der Range A2:A1000 liegt und ob der Inhalt der Zelle leer ist.

RPP63 · 16. April 2017

Moin!
Code:

If Not Intersect(Range("A2:A100"), Target) Is Nothing And IsEmpty(Target) Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

Kernig · 16. April 2017

Eine weitere Frage ist mir aufgekommen.

Mein Hinzufügen Makro sieht nun wie folgt aus:

Code:

Sub HinzufügenMakro()
Dim strKunde As String
Dim strAuftrag As String
Dim strOrt As String
Dim strDatum As String
strKunde = ActiveCell.Offset(0, 1)
strAuftrag = ActiveCell.Offset(0, 2)
strOrt = ActiveCell.Offset(0, 3)
strDatum = ActiveCell.Offset(0, -1)

If Not strAuftrag = "" Then
With ActiveWorkbook.Worksheets
.Add After:=Sheets(1)
End With
ActiveSheet.Name = strAuftrag
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jedoch soll in dem If Statement noch vorher überprüft werden ob bereits ein Worksheet existiert mit dem String den strAuftrag speichert.

Hat da jemand einen Lösungsvorschlag ?

Edit: Habe selbst eine Möglichkeit gefunden

Code:

Sub HinzufügenMakro()
Dim strKunde As String
Dim strAuftrag As String
Dim strOrt As String
Dim strDatum As String
strKunde = ActiveCell.Offset(0, 1)
strAuftrag = ActiveCell.Offset(0, 2)
strOrt = ActiveCell.Offset(0, 3)
strDatum = ActiveCell.Offset(0, -1)

If Not strAuftrag = "" Then
If TabEx(strAuftrag) = False Then
With ActiveWorkbook.Worksheets
.Add After:=Sheets(1)
End With
ActiveSheet.Name = strAuftrag
End If
End If

End Sub

Function TabEx(strTab As String) As Boolean
Dim Blatt As Worksheet
TabEx = False
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name = strTab Then
TabEx = True
Exit Function
End If
Next Blatt
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Objektvariable oder With Blockvariable nicht festgelegt

Objektvariable oder With Blockvariable nicht festgelegt

Objektvariable oder With Blockvariable nicht festgelegt

Objektvariable oder With Blockvariable nicht festgelegt

Objektvariable oder With Blockvariable nicht festgelegt

Objektvariable oder With Blockvariable nicht festgelegt - Similar Threads - Objektvariable With Blockvariable

Objektvariable Blockvariable Laufzeitfehler 91

Objektvariable oder With-Blockvariable nicht festgelegt

Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

objektvariable oder with blockvariable nicht festgelegt

Objektvariable oder With-Blockvariable nicht festgelegt

Objektvariable oder With-Blockvariable nicht festgelegt?????

Objektvariable oder With-Blockvariable nicht festgelegt