Anzeige
Archiv - Navigation
1836to1840
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
VBA mit aktiver Zelle
27.06.2021 07:28:42
Bürsti
Hallo liebe Experten,
ich bräuchte bitte Eure Hilfe bei folgender Aufgabe:
In Tabelle2 stehen in der Spalte A verschiedene Artikelnummern. Klickt nun ein User
eine dieser Nummern an (z.B. A5) und drückt dann den dafür angelegt Markobutton
soll sich das Makro die zuvor ausgewählte Artikelnummer "merken" und in Tabelle1
in U2 einfügen.
Es klingt so einfach, aber mit dem Makorecorder funktioniert es natürlich
nicht weil der Bezug variable (activ.cell) sein muss. Ich versuch das schon
seit Stunden, für Euch ist das sicher ein Klacks.
Schon mal vielen Dank für Eure Hilfe!
Viele Grüße
Bürsti

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

Betreff
Datum
Anwender
Anzeige
AW: VBA mit aktiver Zelle
27.06.2021 07:42:28
Werner
Hallo,

Sub Schaltfläche1_Klicken()
If Selection.Column = 1 Then
If Selection(1)  "" Then
Range("U2") = Selection(1)
End If
End If
End Sub
Gruß Werner
AW: VBA mit aktiver Zelle
27.06.2021 08:02:42
Bürsti
Guten Morgen Werner,
vielen Dank für Deine schnelle Antwort, ich bin begeistert.
Habs auch gleich probiert, allerdings funktioniert es nicht, es passiert gar nichts,
keine Aktion - keine Fehlermeldung.
Vielleicht liegt es daran, dass in Tabelle2 in Spalte A eigentlich nur Formelergebnisse stehen?
Ich hatte daran gar nicht gedacht, das da eigentlich gar keine Nummer steht sondern
nur das Ergebnis einer Formel.
Hättest Du noch einen Tipp, wie man das lösen kann?
Vielen Dank nochmal!
Bürsti
Anzeige
AW: VBA mit aktiver Zelle
27.06.2021 08:09:36
Hajo_Zi
in meiner Datei geht es.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
GrußformelHomepage
Anzeige
AW: VBA mit aktiver Zelle
27.06.2021 08:39:55
Daniel
Hi
Deine "activ.cell" heißt in VBA "ActiveCell"

Sheets("Tabelle1").Value = ActiveCell.Value
Kleiner Tipp: wenn du beim Programmieren die Schreibweise nicht genau kennst, dann nutze die Intellisense, dh tippe die ersten Buchstaben ein und drücke dann STRG+Leer. Es erscheint eine Liste der möglichen Bezeichnung, so dass du den passenden auswählen kannst.
Werner hat in seiner Lösung vergessen, das Tabellenblatt anzugeben, so dass der Wert nicht in Tabelle1 sondern in der aktiven Tabelle, also Tabelle2.
Gruß Daniel
AW: VBA mit aktiver Zelle
27.06.2021 09:12:27
Bürsti
Hallo Daniel,
ich danke Dir sehr für Deine Hilfe und Tipps.
Im Moment bin ich hauptsächlich "Recorder-Nutzer", das mit der ActiveCell
habe ich nur bei meiner Recherche irgendwo aufgeschnappt ;-)
Wenn die Betitelung das Tabellenblatt (Tabelle2) in Werner´s Makro gefehlt hat,
müßte dann nicht auch beim einfügen in U2 die Tabelle1 erwähnt sein?
Ich hab Deinen String einfach mal als 1 Stelle ins Makro eingebaut, aber es gibt
eine Fehlermeldung. Wie müßte denn das komplette Makro mit den Informationen
der Tabellenblätter aussehen?
Vielen Dank für Deine / Eure Hilfe!
Viele Grüße,
Bürsti
Anzeige
AW: VBA mit aktiver Zelle
27.06.2021 09:34:17
Werner
Hallo,
dass das in ein anderes Tabellenblatt soll hatte ich übersehen.

Sub Schaltfläche1_Klicken()
If Selection.Column = 1 Then
If Selection(1)  "" Then
Worksheets("Tabelle1").Range("U2") = Selection(1)
End If
End If
End Sub
Gruß Werner
AW: VBA mit aktiver Zelle
27.06.2021 11:10:33
Daniel
Sorry, ich hab das Range("U2") vergessen.
So eine Zelladresse ist beim Ansprechen wie eine echte Adresse:
Stadt - Strasse - Hausnummer entspricht in VBA Datei - Tabellenblatt - Zelle bzw in korrekt geschrieben: Workbooks("Dateiname.xlsm").Sheets("Tabelle1"). Range("A1")
Das muss man aber nicht immer vollständig hinschreiben.
Workbooks() und Sheets() darf man weglassen, wenn das jeweilige Workbook und Sheet gerade aktiv ist.
Nur wenn man was ansprechen will, was grade nicht aktiv ist, dann muss man es angeben.
Ist wie bei der Adresse, willst du was innerhalb der Stadt verschicken, in der du gerade bist, reicht Strasse und Hausnummer. Bist du ach schon in der Strasse, musst du nur noch die Hausnummer angeben.
Gruß Daniel
Anzeige
AW: Wert aktiver Zelle in Zelle anderer Tabelle
27.06.2021 10:47:24
GerdL
Moin, selbst bei dieser Hitze kann man einen Zellenwert nicht an ein ganzes Tabellenblatt ohne Zielzelle zuweisen.
Unterstellt, Tabelle2 ist die aktive, teste mal.

Sub Unit()
If TypeOf Selection Is Range Then
If ActiveCell.Column = 1 Then
Worksheets("Tabelle1").Range("U2") = ActiveCell.Value
End If
End If
End Sub
Gruß Gerd
AW: Wert aktiver Zelle in Zelle anderer Tabelle
27.06.2021 13:35:08
Bürsti
Hallo lieber Gerd
Dein Makro funktioniert phänomenal - genau das was ich brauche, und das trotz der Hitze ;-)
Es sieht zwar ganz anders aus als ich dachte und was ich selbst versucht habe, aber es funktioniert bestens!!
Vielen Dank an Euch allen für die wertvollen Tipps.
Schönen Sonntag noch
Bürsti
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige