Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Change/Target

Forumthread: VBA: Change/Target

VBA: Change/Target
02.03.2019 21:13:00
charly84
Hallo Excel-Profis,
wer kann mir bei meinem Vorhaben helfen.
Ich trage eine Text in Tabelle1, Zelle C6 ein, der Eingegebene Text soll in Tabelle2 in Spalte N eingetragen werden.
Habe Bereits einen Code für diese Prozedur allerdings per TextBox, mit (Suche letzte Zelle)
Nun möchte Ich aber die Eingabe direkt in der Zelle u. nicht in der TextBox.
Ebenfalls mit dem Bezug der Letzten freien Zelle.
Habe von Daniel eine Möglichkeit bekommen dies Umzusetzen,
allerdings bin Ich mit Change-Event u. TARGET nicht vertraut.
Eine Bsp. Mappe in bereits Online.
https://www.herber.de/bbs/user/128036.xlsm
Danke für jede Hilfe
Gruß Charly
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Change/Target
03.03.2019 00:09:47
Werner
Hallo Charly,
so: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Spalte As Long, loLetzte As Long
If Target.Column = 3 Then
Select Case Target.Row
Case 6
Spalte = 14
Case 9
Spalte = 10
Case 12
Spalte = 12
Case 15
Spalte = 18
Case 18
Spalte = 20
Case 21
Spalte = 22
Case 24
Spalte = 24
Case Else
End Select
If Target  "" Then
With Worksheets("Werte")
loLetzte = .Columns(Spalte).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, _
searchdirection:=xlPrevious).Offset(1).Row
.Cells(loLetzte, Spalte) = Target
End With
End If
End If
End Sub
Gruß Werner
Anzeige
AW: VBA: Change/Target
03.03.2019 16:34:46
charly84
Hallo Werner,
Danke für deine Bemühung u. Hilfe.
Das ist es was Ich wollte.
Gibt es noch eine Möglichkeit den Inhalt der Case zu Löschen.
z.B. Case nach der Eingabe u. anschließend drücken der Entertaste, das danach die Case wieder Leer ist.
Wenn Ich einen Namen Eintrage u. Enter drücke, bleibt der Name in der Case stehen.
Danke im Voraus.
Gruß Charly
Anzeige
AW: VBA: Change/Target
03.03.2019 17:09:45
Werner
Hallo Charly,
was meinst du damit? Dass die Eingabezelle gleich wieder geleert wird?
Dann so: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Spalte As Long, loLetzte As Long
If Target.Column = 3 Then
Select Case Target.Row
Case 6
Spalte = 14
Case 9
Spalte = 10
Case 12
Spalte = 12
Case 15
Spalte = 18
Case 18
Spalte = 20
Case 21
Spalte = 22
Case 24
Spalte = 24
Case Else
End Select
If Target  "" Then
With Worksheets("Werte")
loLetzte = .Columns(Spalte).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, _
searchdirection:=xlPrevious).Offset(1).Row
.Cells(loLetzte, Spalte) = Target
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
End With
End If
End If
End Sub
Gruß Werner
Anzeige
AW: VBA: Change/Target
03.03.2019 17:34:09
charly84
Hallo Werner,
ja genau. das ist es.
Danke
Gruß Charly
Gerne u. Danke für die Rückmeldung. o.w.T.
04.03.2019 11:01:25
Werner
;

Forumthreads zu verwandten Themen

Private Sub Worksheet_Activate()
Vera

Liebe Forumsmitglieder
mir ist aufgefallen dass Worksheet_Activate() nur bei Tabellen funktioniert. z.B.
Private Sub Worksheet_Activate() MsgBox "hallo" End Sub
Bei eingefügten Diagrammen (als eigene Seite) funktioniert das aber leider nicht.
Gibt es da auch eine Methode um...
05.09.2008 09:09:00
Thread-ID: 1007583
4 Beiträge
VBA-Problem Change-Event/UDF/Gültigkeit
Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...
05.10.2008 11:52:00
Thread-ID: 1014215
2 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Anzeige
Private Sub Worksheet_Change
Gordon

Moin,
ich habe folgenden Code:
Sub Anzahl_Klassen() Dim anzKl As Integer anzKl = Worksheets("Tabelle1").Cells(1, 2).Value With Worksheets("Tabelle1") If anzKl = 0 Then .Rows("5:102").RowHeight = 0 Else: .Rows("5:" & anzKl * 11 + 3).RowHeight = 12.75 .Rows(anzKl * 11 + 5 & ":10...
19.11.2008 10:35:41
Thread-ID: 1025907
5 Beiträge
Anzeige
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
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
VBA calculate/change event
Frank

Guten Tag allerseits,
ich hoffe es ist jemand so nett, sich meiner anzunehmen und unterstützt mich bei der Lösung folgenden Problems:
Ich möchte ein Excel-Diagramm (2003) dynamisch über veränderbare Werte aus bestimmten Zellen skalieren. Es handelt sich um ein Diagramm mit jeweils primä...
09.04.2009 16:07:47
Thread-ID: 1068059
7 Beiträge
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
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Code nur in bestimmten Zellen
Stefanglander

Moin Moin Excelgemeinde,
habe beim recherchieren folgenden Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If IsEmpty(Target) Then Exit Sub If Target = "1" Then Target = "oben" If Target = "2" Then Target = "unten" If Target = "3" Then Target = "rechts" If Targe...
27.09.2009 13:43:00
Thread-ID: 1105840
6 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Private Sub Worksheet_Change
Larissa

Hallo VBA-Künstler,
Ich habe in meiner Excelmappe schon ein längeres
Private Sub Worksheet_Change(ByVal Target As Range)
auf dem ersten Tabellenblatt eingebaut.
Bisher habe ich es nur so hinbekommen, dass die direkte Spalte angesprochen wird, in der man gerade etwas einträgt.
05.10.2009 19:39:36
Thread-ID: 1107325
18 Beiträge

Beliebteste Forumthreads (12 Monate)

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