Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SelectionChange(ByVal Target As Excel.Range)

SelectionChange(ByVal Target As Excel.Range)
23.02.2005 14:45:04
Stefan
Hallo Excel-Profis,
bin leider kein VBA-Experte,- schummle mich durch, etwas abschreiben etwas lesen ...
Untere Prozedur habe ich mir "zusammengelesen" und das wahrscheinlich schlecht, weils einfach nicht funktioniert
Also nun zum dem was ich eigentlich wollte...
...Möchte das beim Auswählen der Zelle A9, dass ein Makro abläuft, das funktioniert auch
bzw.wenn die Zelle y17 angewählt wird ,dann soll die Zelle A7 "selected" werden.
Meine Lösung funktioniert leider dann doch nicht, wie kann ich es erreichen
Das ist mein Makro "ehem,heul" 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$9" Then
Neuer_Artikel
ElseIf Target.Address = "$y$17" Then
Range("A7").Select
End If
End Sub

Gruß Stefan
AW: SelectionChange(ByVal Target As Excel.Range)
bst
Hi Stefan,
Address liefert was in Großbuchstaben.
Nimm also "$Y$17".
HTH, Bernd
das ist nicht die Lösung leider nicht
Stefan(Grüni)
Hallo Bernd.
das ist es leider nicht
stefan
AW: SelectionChange(ByVal Target As Excel.Range)
bst
Hallo Stefan,
bei mir funktioniert das.
Schicke doch sonst mal Deine - ggf. verkleinerte - Datei.
Gruß, Bernd
--
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$9" Then
Neuer_Artikel
ElseIf Target.Address = "$Y$17" Then
Range("A7").Select
End If
End Sub

Sub Neuer_Artikel()
MsgBox "NeuerArtikel"
End Sub
Anzeige
AW: SelectionChange(ByVal Target As Excel.Range)
Stefan
Hey Bernd
Danke für deine Überprüfung und du hast recht, aber leider habe ich damit der Benutzer durch Enter(ist halt näher am Zahlenblock) durch die Zellen b17 bis Y17 geführt wird, einen Bereich markiert dessen Ende halt Y17 ist (Markro "Neuer_Artikel" mit letzter Zeile Range("b17:Y17").Select) Ich denke, daß ist der Fehler weiss aber nicht wie ich dies umgehe
Hast noch einen Tipp?
Gruß Stefan

AW: SelectionChange(ByVal Target As Excel.Range)
bst
Abend Stefan,
daran sollte es eigentlich nicht liegen.
Ohne Deine Datei und/oder Dein Makro gesehen zu haben, sehe ich keine Chance.
Gruß, Bernd
AW: SelectionChange(ByVal Target As Excel.Range)
An
Hallo Bernd
hier mein Makro

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$9" Then
Neuer_Artikel
ElseIf Target.Address = "$Y$17" Then
Range("A7").Select
End If
End Sub

Sub Neuer_Artikel()
'
' Makro3 Makro
' Makro am 22.02.2005 von Stefan Gruenert aufgezeichnet
Range("a17").Activate
If Not IsNumeric("a17") Then ' Hier sollte ansich auch geprüft werden ob ein text in
' in der Zelle steht
Range("a17").Value = Range("a7")
Range("B17:Y17").Select

Else
Rows("17:17").activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("a17").Value = Range("a7")
Selection.Copy
Range("A17").Activate
ActiveSheet.Paste
Range("B17:Y17").Select


End If
Anzeige
AW: SelectionChange(ByVal Target As Excel.Range)
bst
Hallo Stefan,
sollte doch eigentlich tun. Bis auf die Abfrage halt. Ersetze:
'If Not IsNumeric("a17") Then' durch sowas 'If Not IsNumeric(Range("a17").Value) Then'
Übrigens, setzte Dir im VBA einen Breakpoint auf die Zeile "If Target.Address = ..." (F9) und schau dann im Einzelschrittmodus (F8) nach was passiert.
Wenn ich's richtig verstanden habe, sollte sowas eigentlich reichen.
HTH, Bernd
--
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$9" Then
Neuer_Artikel
ElseIf Target.Address = "$Y$17" Then
Range("A7").Select
End If
End Sub

Sub Neuer_Artikel()
Application.EnableEvents = False
If IsNumeric(Range("a17").Value) Then
Rows(17).Formula = Rows(17).Value
Rows(17).Insert Shift:=xlDown
End If
Range("a17").Value = Range("a7").Value
Range("B17:Y17").Select
Application.EnableEvents = True
End Sub
Anzeige
AW: SelectionChange(ByVal Target As Excel.Range)
Stefan
Hallo Bernd
zunächst für Deinen Code für "neuer_Artikel" dankeschön , ist doch einfacher als meiner

aber mit dem Haltepunkt gibts Probleme, es debugged beim Haltepunkt egal welche Zelle ich ansteuere.
Es ist immernoch so, daß bei Zahlen Eingabe in das Range("B17:Y17") dieses immer wieder durchlaufen(Zahleneingabe) wird nach y17 folgt dann wieder b17
Na ja, wer weis was ich falsch eingestellt habe,
wenn Du noch was weißt, wäre das super, ansonsten kann ich mich nur für deine Bemühungen bedanken
Gruß Stefan
AW: SelectionChange(ByVal Target As Excel.Range)
bst
Hallo Stefan,
&gt aber mit dem Haltepunkt gibts Probleme, es debugged beim Haltepunkt egal welche Zelle ich ansteuere.
Ja. Das Ereignis Worksheet_SelectionChange wird halt immer dann aufgerufen, wenn Du eine andere Zelle anwählst. Laß es ggf. einfach via F5 weiterlaufen.
Oder setze den Haltepunkt woanders hin. Z.B. in die erste Codezeile von Neuer_Artikel.
&gt Es ist immernoch so, daß bei Zahlen Eingabe in das Range("B17:Y17") dieses immer wieder durchlaufen
Kann ich nicht nachvollziehen. Hast Du vielleicht noch andere Ereignisse benutzt ?
Vielleicht ein Worksheet_Change ?
cu, Bernd
Anzeige
AW: SelectionChange(ByVal Target As Excel.Range)
Stefan
Hallo Bernd
Nein ich denke nicht
gruß Stefan
AW: SelectionChange(ByVal Target As Excel.Range)
bst
Hi Stefan,
dann weiß ich nicht weiter. Schick halt mal Deine ganze Datei. Ggf. ge-zipped.
cu, Bernd

307 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Worksheet_Change(ByVal Target As Range)
Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 Beiträge
Anzeige
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
If Target = Range("l9") Then
Karsten


Hallo...
Kann mir jemand den Befehl für die gesamte Spalte L umschreiben.
Besten Dank
Gruß
Karsten
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("l9") Then
Set rngBereich = Nothing
Set rng = Nothing
Application.Run "a"
End I...
25.07.2009 14:27:04
Thread-ID: 1091230
5 Beiträge
Range(Target.Address, Target ... umschreiben
Karsten

Hallo,
ich möchte u.s. Makro im Modul verwenden. Dabei stoppt er immer bei:
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = xlNone
Kann mir da jemand weiterhelfen?
Gruß
Karsten
Sub a() Dim X, farbe As Byte Select Case Target Case Is = "Montag" Range(Tar...
25.07.2009 17:48:32
Thread-ID: 1091282
5 Beiträge
If Target.Address = "$A$1" Then
Karsten

Hallo,
in folgendem Beispiel habe ich A1 und A2 verbunden.
Der Befehl:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
18.11.2009 08:57:17
Thread-ID: 1118184
7 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge

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
3
6
13
6
4
3
4
4
6
6
2
4
4
6
10
12
2
3
5
8
2
6
5
2
4