Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveSheet.Cells ....(Target.Row+3,1)

ActiveSheet.Cells ....(Target.Row+3,1)
28.06.2017 21:59:25
STeve
Hallo Leute.
Probiere seit einer Stunde folgende Variable zu füllen:
In einer Userform soll eine Label damit beschrieben werden:
Dim MitarbeiterinArbeit As String
MitarbeiterinArbeit = ActiveSheet.Range("A21").Value 'liefert den richtigen Wert
Dachte mir:
MitarbeiterinArbeit = ActiveSheet.Cells(Target.Row + 3, 1).Value ' hat jemand eine Idee
Bitte um Hilfe
Danke

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveSheet.Cells ....(Target.Row+3,1)
28.06.2017 22:05:31
Matthias
HAllo! Wo kommt den Target her? Normalerweise nutzt man das bei ChangeEreignisse im Blatt. So kann man nicht erkennen, wie diese Variabele definiert ist und auf was sie sich bezieht. VG
AW: ActiveSheet.Cells ....(Target.Row+3,1)
28.06.2017 22:09:22
STeve
Hallo Matthias........super dass dich meldest.
Ja genau........... ist in einem Workbook SheetChange - Ereignis in ein Modul rein und von dort wird eine Userform aufgerufen und dort würde ich die Variable benötigen
lg
AW: ActiveSheet.Cells ....(Target.Row+3,1)
28.06.2017 22:24:32
Matthias
Hallo! Also ganz so einfach ist das nicht. Würde es wie folgt lösen. In deinem Change Event lädst du die USerform und weißt der Tag Eigenschaft deine Zahl zu. Dann zeigst du die Form an. In der Form kannst du dann mit Me.tag auf den Wert zugreifen. So zum Beispiel: 
Private Sub Worksheet_Change(ByVal Target As Range)
Load UserForm1
UserForm1.Tag = Target.Row + 3
UserForm1.Show
End Sub

Im Code dann so
MitarbeiterinArbeit = ActiveSheet.Cells(Me.tag , 1).Value
Einfach mal probieren. Was einfacheres fällt mir grad nicht ein. VG
Anzeige
AW: ActiveSheet.Cells ....(Target.Row+3,1)
28.06.2017 22:32:04
Matthias
Achja, eins noch. Die Zuweisung müsste dann im Userform.activate oder einem andern Ereignis passieren. Im UF.initialize klappt es nicht, da beim Aufruf davon der Wert noch nicht an Tag geschrieben wurde. (initialize starte ja schon beim load Befehl). VG
Danke an Matthias.....werde es versuchen
28.06.2017 22:43:01
STeve
Wouw.....Matthias........also da überforderst mich jetzt mal ordentlich.
Danke für deinen Tipp.
Werde versuchen es umzusetzen...........Sollte ich scheitern hoffe ich darf ich mich nochmal melden.
LG STeve
AW: Danke an Matthias.....werde es versuchen
28.06.2017 22:55:43
Matthias
Kein Problem, wird dann aber erst morgen. Habe noch ne dritte Antwort (vermtl. einfacher) gepostet. So schwierig ist es nicht, schaffste schon. Viel Glück und VG:
Anzeige
AW: ActiveSheet.Cells ....(Target.Row+3,1)
28.06.2017 22:42:08
Matthias
Zum Letzten. Bei näherem Überlegen, war die Variante davor auch zu kompliziert. Das mit dem Laden bleibt, an Stelle der Zuweisung an die Tag Eigenschaft kann man natürlich auch gleich auf das Label etc. zugreifen. Sieht dann so aus. 
Private Sub Worksheet_Change(ByVal Target As Range)
Load UserForm1
UserForm1.MitarbeiterinArbeit  = ActiveSheet.Cells(Target.Row + 3, 1)
UserForm1.Show
End Sub
VG
Klappt nicht..........
29.06.2017 08:26:20
STeve
Guten Morgen Matthias...........Vorab schon mal großes Danke für deine Mühen und dass dich mit mir hier abplagst.
Aber das klappt nicht.
wenn ich im Modul welches durch das Change Ereignis aufgerufen wird:
Load Userform1
mache - dann beginnt natürlich die Initialisierung - dort dann die Target.Row +3 als .Tag (Zahl) bei Userform- Activate zu speichern 

Private Sub UserForm_Activate()
Userform1.Tag = Target.Row + 3
End Sub

geht nicht weil Activate erst bei .Show gestartet wird und dann

Fehlermeldung - Objekt erforderlich
erscheint.
....mfg STeve
Anzeige
DANKE an Matthias und Nepumuk (vor 12 Jahren)
29.06.2017 08:47:21
STeve
Hallo Matthias.........Danke dir hat sich erledigt.
Habe es gefunden und zwar unter:
So gehts:
Change-Modul:
Dim MitarbeiterinArbeit As String
MitarbeiterinArbeit = ActiveSheet.Cells(Target.Row + 3, 1)
UserForm1.Tag = MitarbeiterinArbeit
Userform:

Private Sub UserForm_Activate()
Label1.Caption = Me.Tag
End Sub
Wünsche noch schönen Tag.
LG STeve

62 Forumthreads zu ähnlichen Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
ActiveCell.Offset(0, 1).Value
Franz

Hallo Leute,
vermutlich eine blöde Frage, aber ich komme nicht auf die Lösung.
Wie kann ich den Inhalt von ActiveCell.Offset(0, 1).Value ---- es ist ein Datum ---- um 1 Tag bzw.
1 Monat erhöhen. Rechne ich + 1, so erhöht sich das Jahr.
Grummel, grummel....
Danke für die Hilf...
20.06.2009 17:19:12
Thread-ID: 1083105
3 Beiträge
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
Anzeige
Range.Address und ActiveCell.Offset
Urmila

Hallo zusammen,
ich habe ein Problem, und zwar...versuche ich einen Range.Address in Cells umzuwandeln, also durch den Makro bekomme ich z.B. $A$14, diese würde ich gerne in Cells(1, 14) umwandeln, oder ihr könnt mir eine Alternative vorschlagen......
Ich habe einen Code der mir die "ro...
10.09.2010 07:19:06
Thread-ID: 1176758
3 Beiträge
Offset - ActiveCell
Philipp

Hi!Bitte um eure Hilfe:
Ich muss aus der Quelltabelle einen Wert auslesen, diesen dann in eine andere Tabelle eintragen (der Teil läuft OK), dann in der Quelltabelle die ActiveCell eine Zeile nach unten verschieben, diese neue ActiveCell kopieren, zur Zieltabelle wechseln, ... einfügen, ......
16.05.2002 15:01:37
Thread-ID: 121392
2 Beiträge
ActiveCell.offset Bug, Combobox range
Max

Hallo liebe Com,
Ich arbeite seit geraumer Zeit mit Excel und Vba.
Zurzeit bin ich in einen kleinen Projekt mit dem ich einen "Generator" schreibe.
Hier zuerst einmal ein paar Bilder und Daten.
http://i51.tinypic.com/33cu2kp.jpg
ist die Userform
http://i53.tinypic.com/r7...
22.06.2011 21:54:31
Thread-ID: 1219374
10 Beiträge
ActiveCell.Row ( Spalte dann von : bis ) ?
:

Hallo Forum,
bräuchte bitte eure Hilfe bei einer VB Anweisung
ich möchte gerne an irgendeiner Stelle meiner ganzen Anweisungen folgendes anweisen
Bei der aktiven gewählten Zeile soll dann Spalte 2 bis 9 leer sein ( ="" ) ( .clearcontent ? )
habe folgendes probiert : ' Cells(Act...
20.10.2011 10:31:33
Thread-ID: 1234656
4 Beiträge
kopieren von ActiveCell.Row zu Target
ActiveCell.Row

Hallo Excelspezis
bräuchte bitte eine passende Anweisung für folgende Problematik
Target.Row , 4 = Cells(ActiveCell.Row,4).Value oder so ähnlich, bzw. richtig eben.
Hier fehlt mir die richtige Definition wie man Target als aktiveZeile,Spalte 4 angibt.
Das ganze soll dann im "B...
26.10.2011 16:47:19
Thread-ID: 1235531
7 Beiträge

Links zu Excel-Dialogen

Label UserForm

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
17
5
2
10
2
2
1
9
3
6
10
3
27
12
7
3
5
3
10
2
5
5
2
3
2