Werte eintragen / Auslesen UF VBA

Private Sub Worksheet_Change(ByVal Target As Range) Dim Sheet As Worksheet Dim strPath As String, strSearch As String strSearch = "Training" strPath = ThisWorkbook.Path strPath = Left(strPath, InStr(1, strPath, strSearch) + Len(strSearch)) Dim sUser As String Dim rZelle As Range Application.EnableEvents = False sUser = Environ$("USERNAME") Set rZelle = Target.Offset(0, 17) 'Sverweisformel With rZelle .Formula = "=VLookup(" & sUser & ",'" & _ strPath & "Basisdaten\[Basis.xls]Tabelle1'!K5:N200, 2, False) & "","" & "" "" & _ VLookup(" & sUser & ",'" & _ strPath & "Basisdaten\[Basis.xls]Tabelle1'!K5:N200, 3, False)" .Formula = .Value & " Ort " & Date End With ActiveSheet.EnableAutoFilter = True Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…dabei helfen will, Alex,
muss ich mir doch sehr überlegen… :-]
Wahrscheinlich hast du nicht den Einfluss, an der Vorgabe etwas zu ändern, aber dem, der das verbrochen hat, kann man gut und gern bescheinigen, dass er wohl ursprünglich nicht das notwendige Maß an Überlegung walten lassen und damit Nutzern/Auswertern unnötigerweise die Arbeit schwer gemacht hat. :->
Der von dir festgestellte Effekt ist darin begründet, dass Target mal eine und mal 2 Zellen umfasst. Das Offset erfolgt dabei stets ab der letzten Zelle dieses Bereichs. Mit der ActiveCell wird aber stets die erste Zelle eines Auswahlzellbereichs, die hier entweder mit der Zelle oder der Hauptzelle des Zellverbunds identisch ist, angesprochen.
Die ganze Tabelle und ihr „Schatten“ wurden so hingedrechselt, dass der Versatz um 17 Zellen unbedingt erforderlich ist (nebenbei, wie konntest du nur annehmen, dass die bloße Erklärung ohne die Tabelle zu zeigen, die kritischen Geister eines XlFachForums davon - und von der evtl Notwendigkeit von VbZellen - so ohne Weiteres überzeugen würde? ), nur eben immer an der jeweils letzten AuswahlZelle orientiert.
Ich kann verstehen, dass deine Box stets leer bleibt → bei mir nämlich auch! Aber das mag ja in 1.Linie daran liegen, dass in allen Zellen deiner Schattentabelle, die ja hier immer angesprochen wird, auch absolut nichts steht („ein Schelm, wer Arges dabei denkt!“)… :->
Also fragt sich der geneigte Betrachter der vorhanden Subprozeduren, wie da wohl irgendwelche Angaben hineingelangen, und, falls das manuell geschieht, warum steht da nix?! Man könnte gar glatt an der Funktion der Tabelle verzweifeln — wo wird denn nun was und von wem wann eingetragen? Was erscheint dann in der UF und warum scheinen letztendlich alle Daten doppelt vorliegen zu sollen? Oder ist das nur scheinbar so? Da muss man unwillkürlich an die 8 großen W der Kriminalistik denken (Andere würden jetzt viell „glaskugeln“)…
Aber vielleicht reicht dir ja schon, wenn du in der Subproz, in der du zwingend ActiveCell verwenden zu müssen glaubst, stattdessen Selection oder besser ActiveWindow.RangeSelection wählst. In der Ereignisproz kannst du dann wieder Target verwenden.
Gruß + schöSo, Luc :-?

Luc,
ich verstehe nicht, warum du so sarkastisch bist (falls ich den Ton missverstehe, betrachte folgende Zeilen als nichtig).
Ich bin (im Vergleich zu Dir und vielen anderen Antwortern) ein blutiger Anfänger, wie viele Andere auch hier im Forum. Deshalb sind wir Anfänger ja hier - um uns Hilfe, Rat und Tipps zu holen. Das ist wohl der Sinn und Zweck eines Forums. Nicht falsch verstehen bitte. Ich bin diesem Forum unendlich dankbar für die großartige Hilfe, die es mir in so vielen Jahren gegeben hat. Ich weiß, dass ich hier nicht die Lobby habe mich zu beschweren, denn ICH möchte ja etwas vom Forum und seinen vielen Helfern und nicht umgekehrt. Wenn ich dann aber lesen muß:
"Tja, geschaut hab' ich, aber ob ich dir ...dabei helfen will, Alex,
muss ich mir doch sehr überlegen :-]", dann enttäuscht mich das doch sehr.
Zu:
"Wahrscheinlich hast du nicht den Einfluss, an der Vorgabe etwas zu ändern" - nein, das schrieb ich bereits.
Zu:
"(nebenbei, wie konntest du nur annehmen, dass die bloße Erklärung ohne die Tabelle zu zeigen, die kritischen Geister eines XlFachForums davon - und von der evtl Notwendigkeit von VbZellen - so ohne Weiteres überzeugen würde? )" - auch das hatte ich bereits erklärt, ich befand mich zu diesem Zeitpunkt auf Arbeit, wo ein Einstellen von Dateien ins Internet geblockt wird. Deshalb habe ich eine in mühevoller Arbeit erstellte Musterdatei (stark vereinfacht) von zu Hause aus nachgeliefert.
Zu:
"Also fragt sich der geneigte Betrachter der vorhanden Subprozeduren, wie da wohl irgendwelche Angaben hineingelangen, und, falls das manuell geschieht, warum steht da nix?! Man könnte gar glatt an der Funktion der Tabelle verzweifeln wo wird denn nun was und von wem wann eingetragen? Was erscheint dann in der UF und warum scheinen letztendlich alle Daten doppelt vorliegen zu sollen? Oder ist das nur scheinbar so?"
Ich möchte Dir noch einmal den Sinn der Datei erläutern.
Die von mir gesendete ist stark vereinfacht und deshalb ist der Sinn (oder für dich: Unsinn) vllt. nicht so eindeutig.
Die von dir sogenannte "Schattentabelle" ist natürlich ausgeblendet und beinhaltet die Daten (User-ID) der Eintragenden plus das Datum der Eintragung.
Diese Daten werden später in anderen Dateien wieder benötigt, um z.B. den Abnehmenden von Sportleistungen zu ermitteln (für Personalakten ect.).
Es werden also Leistungen und das dazu gehörige Datum vom Sportleiter eingetragen (in dem für alle Eintragenden sichtbaren Bereich), per VBA wird der "Eintragende" plus das Datum der Eintragung festgehalten (im nicht sichtbaren Bereich - "Schattentabelle". Also keine Dopplung der Daten.
Weiterhin kann in der selben Datei "Sport" jeder den "Eintragenden" einer Leistung ermitteln, falls es Ungereimtheiten (Falsche Leistung, ect.) geben sollte.
Zu:
"Oder ist das nur scheinbar so? Da muss man unwillkürlich an die 8 großen W der Kriminalistik denken (Andere würden jetzt viell glaskugeln)"
Dies hat sich also nur scheinbar so für Dich dargestellt - mag an meiner Fähigkeit (oder Unfähigkeit) zu erläutern liegen.
Das 8. W müsstest Du mir mal erläutern, ich kenne nur die 7 W. ;-)
Ergebnis, falls es noch jemanden interessieren sollte (was ich nicht glaube):
"Sub Bearbeiteranzeigen()" war das Makro, welches nicht mit Target.Offset lief.
Mit Selection oder ActiveWindow.RangeSelection ging es leider auch nicht.
Mit ActiveCell.Offset(0, 17).Value kam ich allerdings zum gewünschten Ergebnis.
Wen es also interessiert, der ändert in der Beispieldatei den Code Bearbeiteranzeigen() entsprechend ab. Dann läuft es wie gewünscht und es erschließt sich nun - zusammen mit meinen Erläuterungen auch der Sinn (oder Unsinn) für den Ein oder Anderen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sheet As Worksheet
Dim rZelle As Range
On Error GoTo Err
Application.EnableEvents = False
Set rZelle = Target.Offset(0, 17)
With rZelle
.Formula = "=VLOOKUP(4682232,ListeHäufigerEintragungen!A1:C5, 2, FALSE)"
.Formula = .Value & Date
End With
ActiveSheet.EnableAutoFilter = True
Application.EnableEvents = True
Err: Exit Sub
End Sub

Sub Bearbeiteranzeigen()
'bei diesem Code funktioniert Target.Offset nicht aber ActiveCell.Offset
UserForm1.TextBox1.Text = ActiveCell.Offset(0, 17).Value
UserForm1.Show
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If UserForm1.Visible = True Then UserForm1.TextBox1.Value = Target.Offset(0, 17).Value
End Sub

Dank an dich, Luc und das gesamte Forum (ist ernst gemeint)
Gruß und schönen Sonntag
Alex

Beliebteste Forumthreads (12 Monate)

Werte eintragen / Auslesen UF VBA

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte eintragen / Auslesen UF VBA

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread