Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1512to1516
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code mit Target funktioniert nicht (mehr)

Code mit Target funktioniert nicht (mehr)
05.09.2016 21:00:50
Oisse
Hallo Zusammen,
folgenden Codeschnipsel verwende ich in meiner Tabelle: 
 If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Target Is Range("J" & Target.Row) Then
Range("T" & Target.Row).Interior.ColorIndex = 4
Exit Sub
End If
End If
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Target Is Range("T" & Target.Row) Then
'WAV
MsgBox "Bitte ändere den Einzelpreis." & Chr(10) & "Du darfst hier keine Änderungen  _
mehr vornehmen!", vbOKOnly
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Range("J" & Target.Row).Select
Exit Sub
End If
End If

Kann mir bitte jemand helfen, warum das nun nicht mehr funktioniert?
Gruß Oisse

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code mit Target funktioniert nicht (mehr)
06.09.2016 06:06:45
Hajo_Zi
Du benutzt kein Ereignis der Tabelle.
Warum 2x 

If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
warum
If Target Is Range("T" & Target.Row) Then
benutze
If Target.Column = 9 Then


AW: Code mit Target funktioniert nicht (mehr)
06.09.2016 08:19:17
Oisse
Guten Morgen Hajo,
und danke für die Antwort.
Entschuldige, ich vergaß, dass am Anfang des Codes noch folgendes steht: 
Private Sub Worksheet_Change(ByVal Target As Range)

Ich habe gestern noch rumprobiert aber offensichtlich nimmt er die Bedingung: "If Target" nicht.
Obwohl das in der Vergangenheit schon funktioniert hat.
Jetzt habe ich gestern noch Folgendes ausprobiert: 
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Not Application.Intersect(Target, Range("J" & Target.Row)) Is Nothing Then
Range("T" & Target.Row).Interior.ColorIndex = 4
Exit Sub
End If
End If
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Not Application.Intersect(Target, Range("T" & Target.Row)) Is Nothing Then
WAV
MsgBox "Bitte ändere den Einzelpreis." & Chr(10) & "Du darfst hier keine Änderungen  _
mehr vornehmen!", vbOKOnly
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Range("J" & Target.Row).Select
Exit Sub
End If
End If

Bisher funktioniert es wie gewollt.
Ist der Code o.k. so oder bin ich in meiner Denke falsch?
L.G.
Oisse
Anzeige
AW: Code mit Target funktioniert nicht (mehr)
06.09.2016 17:13:26
Hajo_Zi
es fehlt ein If 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("J" & Target.Row)) Is Nothing Then
Range("T" & Target.Row).Interior.ColorIndex = 4
Exit Sub
End If
End If
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Not Application.Intersect(Target, Range("T" & Target.Row)) Is Nothing Then
WAV
MsgBox "Bitte ändere den Einzelpreis." & Chr(10) & "Du darfst hier keine Änderungen " _
& "mehr vornehmen!", vbOKOnly
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Range("J" & Target.Row).Select
Exit Sub
End If
End If
End Sub
Schaue hier http://hajo-excel.de/version.htm
Anzeige
AW: Code mit Target funktioniert nicht (mehr)
06.09.2016 18:08:35
Oisse
Danke für den Hinweis
Ich habe mir den Link angesehen. In beiden Fällen, also als der Code noch funktionierte und jetzt, wo er nicht mehr funktionierte, wurde und wird Office 365 verwendet. Der ursprüngliche Code wurde im Mai/Juni 2016 geschrieben mit der Version Office 365.
Warum funktionierte If Target is Range und funktioniert jetzt nicht mehr? Hat man da was geändert?
AW: Code mit Target funktioniert nicht (mehr)
06.09.2016 18:45:30
Hajo_Zi
der link war ein Fehler.
Der Code lief in keiner Excel Version. Da ein If fehlt.
Gruß Hajo
AW: Code mit Target funktioniert nicht (mehr)
06.09.2016 18:58:30
Oisse
Danke für alles.
Gruß Oisse
Anzeige

310 Forumthreads zu ähnlichen Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Anzeige
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Tabelle in einer Zelle
Urs

Hallo Excel - Kenner
Eine bescheidene, vielleicht auch dumme Frage:
Kann man eine Tabelle in einer Zelle haben..
So dass ich eigentlich z.B. immer die Zelle A1 offen hätte aber darin meine Tabelle hätte..
Vielen Dank und bis denn
23.10.2008 22:06:04
Thread-ID: 1018815
4 Beiträge
Pivottabelle wird nicht mehr geupdated / Makro
Brigitte

Hallo,
wir führen eine Call Statistik, die wöchentlich aktualisiert wird.
Es gibt eine Sheet "Rohdaten", wo wöchentlich die neuen Calls hinzukommen.
Mit einem Makro wird eine Pivot Tabelle geupdatet; es gibt dazu dann noch Charts.
Letzten Montag haben wir 72 neue Rows hinzugefü...
24.10.2008 15:17:20
Thread-ID: 1019036
4 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
7
2
3
3
1
4
3
3
2
1
11
1
7
2
5
6
3
6
2
2
5
18
3
10