Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code mit Target funktioniert nicht (mehr)

Forumthread: 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
Anzeige

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


Anzeige
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?
Anzeige
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
;

Forumthreads zu verwandten 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
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
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
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
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
Anzeige
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
Name von best. Tabellenblatt in Zelle
best.

Guten ABend ...
ich würde gerne in einer Zelle den Namen einer anderen Tabelle haben, und außerdem noch einen Hyperlink zu Ihm.
Der Linkname sollte dann auch den Tabellennamen haben (müsste das dann für versch. TB machen) .... außerdem würde ich gerne in einer modifizierten version nur...
11.11.2008 16:49:00
Thread-ID: 1023613
2 Beiträge
Zelleninhalt in andere Tabelle übertragen
Michael

Liebe Leute,
ich bin eben auf dieses tolle Forum gestossen und muss gleich mal mit einer Frage nerven. Mit der Suche habe ich leider keine passenden Antwort gefunden.
Ich habe folgendes Problem. Ich verarbeite mit Excel Informationen von mehreren tausend Mitarbeitern meines Arbeitgeber...
17.11.2008 16:29:54
Thread-ID: 1025295
12 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige