Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Queelun vom 11.08.2021, 17:50 Options
XP SP3; Excel 2002; VBA; Ereignis auswerten
Hallo SN-Fans,
In meinem VBA-Programm wird eine Integervariable n berechnet.
Das Programm soll diese Variable in eine Zelle einschreiben, wenn diese mit einem Cursor angesteuert wird.
Dazu habe ich ein Unterprogramm an den Anfang des o.g. Programms gesetzt. Das Unterprogramm soll diesen Einschreibvorgang in Gang setzen:
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Target.Column = 13 And Target.Row = rx Then
Range.ActiveCell.Value = n
End If
End sub
Das heißt also, wenn eine bestimmte Zeile rx vorliegt und die Spalte Nr. 13 (Spalte M) mittels Tabulator erreicht ist (das Ereignis), soll der Wert n in die Zelle eingeschrieben werden.
An Range.ActiveCelll.Value = n scheitert das Programm aber. Weiß jemand, woran das liegt?
Gruß Queelun
In meinem VBA-Programm wird eine Integervariable n berechnet.
Das Programm soll diese Variable in eine Zelle einschreiben, wenn diese mit einem Cursor angesteuert wird.
Dazu habe ich ein Unterprogramm an den Anfang des o.g. Programms gesetzt. Das Unterprogramm soll diesen Einschreibvorgang in Gang setzen:
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Target.Column = 13 And Target.Row = rx Then
Range.ActiveCell.Value = n
End If
End sub
Das heißt also, wenn eine bestimmte Zeile rx vorliegt und die Spalte Nr. 13 (Spalte M) mittels Tabulator erreicht ist (das Ereignis), soll der Wert n in die Zelle eingeschrieben werden.
An Range.ActiveCelll.Value = n scheitert das Programm aber. Weiß jemand, woran das liegt?
Gruß Queelun
Antwort 1 von fedjo vom 11.08.2021, 18:13 Options
Hallo Queelun
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zfrei As Long
If Target.Column = 13 And Cells(Target.Row, Target.Column) = "rx" Then
ActiveCell.Value = "n"
End If
End Sub
Gruß
fedjo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zfrei As Long
If Target.Column = 13 And Cells(Target.Row, Target.Column) = "rx" Then
ActiveCell.Value = "n"
End If
End Sub
Gruß
fedjo
Antwort 2 von Hajo_Zi vom 11.08.2021, 19:37 Options
Hallo Fedjo,
ob das die Lösung ist?
Ich hätte aber die endlosschleife verhindert.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zfrei As Long
If Target.Column = 13 And Target = "rx" Then
Application.EnableEvents = False
Target = "n"
Application.EnableEvents = True
End If
End Sub
Gruß Hajo
ob das die Lösung ist?
Ich hätte aber die endlosschleife verhindert.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zfrei As Long
If Target.Column = 13 And Target = "rx" Then
Application.EnableEvents = False
Target = "n"
Application.EnableEvents = True
End If
End Sub
Gruß Hajo
Ähnliche Themen
Daten aus 20 excel dateien in eine excel datei kopieren mit einem vba script
Syrell 11.08.2008 - 348 Hits - 5 Antworten
Excel Tabelle auswerten
max123kl 22.08.2008 - 78 Hits - 1 Antwort
XP SP3; Excel 2002; Zahlenformatierung
Queelun 23.12.2008 - 22 Hits - 2 Antworten
Excel 2002; Diagramm von Zeitverläufen
Queelun 31.12.2008 - 8 Hits - 1 Antwort
XP; Excel 2002; Autoausfüllen
Queelun 05.04.2009 - 246 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
