Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten automatisch ändern - Worksheet_Change

Daten automatisch ändern - Worksheet_Change
26.03.2006 13:26:14
Pia
Hi!
Ich habe in Tabelle1 in einer Spalte verschiedene Werte stehen (Text), in Tabelle2 kommen diese auch wieder vor, dort aber mehrmals.
Nun möchte ich, wenn ich in Tabelle1 ein Wort änder, dieses auch in Tabelle2 gesucht und entsprechend geändert wird.
Wenn ich das Worksheet_Change Ereignis benutze, das Wort änder, dann sucht er ja nach dem neuen Wort, nicht nach dem Alten!
Hat jemand von Euch eine Idee?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten automatisch ändern - Worksheet_Change
26.03.2006 13:45:13
Pia
Hi!
Ich habe es jetzt mal so getestet:
Public wert_alt As String
Public wert_neu As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
wert_alt = Selection
End Sub

Nun dachte ich, ich könnte den neuen Wert mit 

Private Sub Worksheet_Change(ByVal Target As Range)
wert_neu = Selection
End Sub

übernehmen, doch hier wird ja immer die aktuelle Auswahl ausgegeben!
Wie komme ich an den neuen Wert?
AW: Daten automatisch ändern - Worksheet_Change
26.03.2006 13:49:31
Reinhard
Hi Pia,
Option Explicit
Public wert_alt As String
Public wert_neu As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
wert_alt = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
wert_neu = Target.Value
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Daten automatisch ändern - Worksheet_Change
26.03.2006 14:14:44
Pia
Hi Reinhard!
Hier meine Versuche:

Private Sub Worksheet_Change(ByVal Target As Range)
Set quelle = Sheets("Daten")
Set ziel = Sheets("Tabelle1")
wert_neu = Target.Value
'MsgBox wert_alt
'MsgBox wert_neu
If wert_alt <> "" And wert_neu <> "" And wert_alt <> wert_neu Then
anzahl = 0
For i = 1 To ziel.Cells(ziel.Rows.Count, 1).End(xlUp).Row
i = i + 1
If ziel.Cells(i, 1) = wert_alt Then
'MsgBox "gefunden"
anzahl = anzahl + 1
ziel.Cells(i, 1) = wert_neu
End If
Next
If anzahl > 0 Then
MsgBox "Es wurde(n) " & anzahl & " Datensätze auf den Wert " & wert_neu & " geändert.", 64 + 0, "Information"
End If
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Mehrfachauswahl verhindern
If Target.Count > 1 Then
MsgBox "Es ist keine Mehrfachauswahl von Zellen möglich!", 16 + 0, "Hinweis"
Range("A1").Select
Else
wert_alt = Target.Value
End If
End Sub

Das klappt auch - meistens jedenfalls!
Es werden nicht immer alle Daten erkannt und ersetzt! Obwohl sie gleich sind!
Wo kann der Fehler leigen?
Danke!
Anzeige
AW: Daten automatisch ändern - Worksheet_Change
26.03.2006 14:26:39
Pia
Fehler gefunden:
i=i+1
Bin ich blöd!
AW: Daten automatisch ändern - Worksheet_Change
26.03.2006 14:29:05
Reinhard
Hi Pia,
ungetestet:
Private Sub Worksheet_Change(ByVal Target As Range)
wert_neu = Target.Value
If wert_alt = "" Or wert_neu = "" Or wert_alt <> wert_neu Then Exit Sub
With Worksheets("Tabelle1")
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = wert_alt Then
anzahl = anzahl + 1
.Cells(i, 1) = wert_neu
End If
Next i
If anzahl > 0 Then MsgBox "Es wurde(n) " & anzahl & " Datensätze auf den Wert " & wert_neu & " geändert.", 64 + 0, "Information"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Mehrfachauswahl verhindern
If Target.Cells.Count > 1 Then
MsgBox "Es ist keine Mehrfachauswahl von Zellen möglich!", 16 + 0, "Hinweis"
Range("A1").Select
Else
wert_alt = Target.Value
End If
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Daten automatisch ändern - Worksheet_Change
26.03.2006 13:47:06
Reinhard
Hi Pia,
kompliziert wird es wenn du ganze Zellenbereiche löschst/änderst.
Für Einzelzellen, deklariere eine globale Variable "alt". Beim Ereignis SelectionChange in "alt" den Zellenwert einlesen, dann im Ereignis Change nach "alt" in Blatt2 suchen usw.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Daten automatisch ändern - Worksheet_Change
26.03.2006 13:48:41
Pia
Hi!
Genau das habe ich gemacht! ;-)
Aber woher bekomme ich den neuen Wert?

30 Forumthreads zu ähnlichen Themen

dynamische Range Anzeige im TB
Reinhardt

Hallo.
Ich habe in einem TB Daten in den Zeilen 1 - 5000, ab der Spalte B, C, D.... stehen
In Spalte A trage ich jeweils ein Range ein. z.B. N50:R99.
Dieses frage ich in einem zweiten TB ab, um in den entsprechenden Bereich zu "hüpfen".
Mein Problem:
Füge ich Zeilen ein,...
18.09.2008 08:24:14
Thread-ID: 1010590
3 Beiträge
Anzeige
For Each rCell In Worksheets("_HISTORY").Range("_H
Peter

Guten Abend
Weshalb läuft mein Code nicht, wenn ich
den Range wie folgt anspreche:
For Each rCell In Worksheets("_History").Range("_HIST")
...
Next
Wenn ich "In Wroksheets" weglasse, funktioniert es.
Der Worksheet-Name ist richtig geschrieben, wie die Abfrage im Dire...
09.12.2013 22:29:02
Thread-ID: 1341925
4 Beiträge
Eintrag aus Liste als Worksheet aufrufen
Dieter

Guten Morgen libe Excelgemeinde.
Ich komm mal wieder nicht weiter, mein Makro bleibt hängen.
Aus einer Listbox wähle ich den Namen eines Blattes aus.
Die Zellen aus diesem Blatt (andere Arbeitsmappe) sollen anschließend Kopiert werden.
Was mache ich falsch?
Dim TR_Blatt As W...
30.01.2015 09:37:36
Thread-ID: 1406241
6 Beiträge
Anzeige
VBA: Verweis auf unben. Worksheets, Datei geschl.
Daniel

Hallo werte Community,
In meiner Not muss ich aufgrund mangelnder VBA-Erfahrung leider um eure Hilfe bitten:
Ich schreibe momentan meine Bachelorthesis und stehe dabei vor folgendem Problem. Für eine Altdatenanalyse würde ich gerne aus verschiedenen Excel-Dateien, die sich alle in einem...
25.07.2016 13:20:26
Thread-ID: 1506122
7 Beiträge
Atomatismus vonPrivate Sub Worksheet_change stoppe
markus

Hallo Leute,
kann ich irgendwie steuern, dass die Routine
"Private Sub Worksheet_change(ByVal Target As Range)"
nicht grundsätzlich bearbeitet wird?
Wenn ich Daten von außerhalb hereinkopiere bekomme ich nämlich Schrierigkeiten.
Danke für eure Hilfe
Markus
16.03.2017 11:29:02
Thread-ID: 1547796
3 Beiträge
Automatisierung Range Balkendiagramm
heiko

Hallo zusammen,
ich habe ein Balkendiagramm erstellt mit 2 X-Achsen. Jetzt soll der Diagrammbereich per VBA angepasst warden, sobald sich die Anzahl der anzuzeigenden Zeilen ändert.
Dazu verwende ich folgenden Code (Ausschnitt): Sub Chart_anpassen() Dim Chart_MinScale As Double Dim Char...
17.07.2017 13:49:17
Thread-ID: 1569581
6 Beiträge
Dynamischce Range bei Diagrammerstellung
Dennis

Hallo zusammen,
ich bin relativ neu im VBA-Bereich und habe eine Frage bzgl. einer dynamischen Range für ein Diagramm.
Ich habe in einer Tabelle Daten. Diese werden per Makro in den Reiter "Produktivität" kopiert (geht wahrscheinlich auch schöner).
Aus diesen Daten möchte ich Diagra...
06.02.2018 13:54:37
Thread-ID: 1607244
6 Beiträge
Automatisch Range mit Eingabewert multiplizieren
Torsten

Hallo,
ich habe ein paar Fragen.
1. Ich habe eine Excel-Liste erstellt und möchte das eine bestimmte Range mit einem Eingabewert multipliziert wird. Bei mir funktioniert dieser Befehl allerdings nur für die erste Zelle, danach kommt eine Fehlermeldung. Was ist hier falsch?
Range...
18.07.2018 08:43:57
Thread-ID: 1634547
11 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
2
4
3
5
2
6
2
5
5
10
11
9
2
1
2
12
2
8
14
1
5
4
4
1
4