Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1800to1804
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
Inhaltsverzeichnis

Variabler Verweis auf andere Zelle

Variabler Verweis auf andere Zelle
17.12.2020 08:57:52
Chris0102
Hallo zusammen,
ich stehe vor folgenden Problem.
Ich habe 2 Übersichten mit einmal Teilnehmern und Lehrgänge.
Als drittes Arbeitsblatt habe ich ein Änderungsjornal.
Nun möchte ich in diesen Änderungsjornal den jeweiligen Verweis auf den Lehrgang der sich geändert hat.
Dieser steht immer in der Spalte A,
Hier einmal das Änderungsjornal:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
Dim AlterWert As Variant, NeuerWert As Variant
Dim rngNeuSel As Range
Select Case Sh.Name
Case "Teilnehmer", "Lehrgangsplanung"
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Sh.Range("A1:Q550")) Is Nothing Then Exit Sub
Application.EnableEvents = False
NeuerWert = Target.Value
Set rngNeuSel = Selection
Application.Undo
AlterWert = Target.Value
Target.Value = NeuerWert
On Error Resume Next
rngNeuSel.Activate
On Error GoTo 0
With Sheets("Änderungsjornal")
ErsteFreieZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Sh.Name
.Cells(ErsteFreieZeile, 2) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 3) = Target.Value
.Cells(ErsteFreieZeile, 4) = AlterWert
.Cells(ErsteFreieZeile, 5) = Time
.Cells(ErsteFreieZeile, 6) = Date
.Cells(ErsteFreieZeile, 7) = Environ("username")
.Cells(ErsteFreieZeile, 8) =
End With
Application.EnableEvents = True
End Select
End Sub
Ich möchte jetzt also in Zeile 8, dass die Lehrgangsbezeichnung die in Spalte A auf dem Blatt Lehrgänge steht eingetragen wird.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variabler Verweis auf andere Zelle
17.12.2020 09:38:49
Rudi
Hallo,
=sh.cells(Target.Row,SpalteMitBezeichnung)
Gruß
Rudi
AW: Variabler Verweis auf andere Zelle
17.12.2020 09:57:52
Chris0102
Nein geht leider nicht, hinterlegt er gleich gelb und meckert rum :-(
AW: Variabler Verweis auf andere Zelle
17.12.2020 10:34:16
Chris0102
Ich möchte es konkreter darstellen
____________Spalte A____Spalte B____Spalte C
Zeile 1_______Schweißer___Huber_____Zugewiesen
Zeile 2_______Elektroniker___Meier_____Warteliste
Zeile 3_______Kraftfahrer___Sepp_____Warteliste
Jetzt ist der Meier nicht mehr auf Warteliste sondern Zugewiesen und bei den Änderungen soll der Verweis dann in Zelle 8 sein auf Spalte A, Zeile 2.
Aber eben Variabel
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige