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
1612to1616
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktive Zelle mit best. Wert bei Button

aktive Zelle mit best. Wert bei Button
16.03.2018 03:49:55
Steve
Hallo Leute,
irgendwie steh ich grad aufm Schlauch. Ich möchte bei ButtonClick, dass meine aktive Zelle den Wert aus einer anderen Zelle annimmt. Diese andere Zelle ist eine von 5 in der selben Spalte nur weiter oben. Diese 5 Zeilen beziehen sich auf 5 Bereiche der Tabelle.
Bsp.: So soll meine aktive Zelle z.B. den Wert aus Zeile 5 annehmen, wenn sie sich zwischen den Zeilen 27 und 45 befindet.

Ich habe die Auswahl welcher Zellwert übertragen werden soll mittels if then schleifen versucht zu bauen.
doch leider macht er das nicht. er schließt einfach nur meine UF
hier mein Code 

Private Sub CommandButton3_Click()                 'Originalinhalt soll hin
Dim z As Byte
If Cells(ActiveCell.Row)  Cells(ActiveCell.Row).Value  Cells(ActiveCell.Row).Value  Cells(ActiveCell.Row).Value

Ich hoffe es war verständlich beschrieben.
Kann man das auch eleganter lösen als mit 4 if-Schleifen?
Vielen Dank schonmal im vorraus.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktive Zelle mit best. Wert bei Button
16.03.2018 04:30:44
Rainer
Hallo Steve,
ich denke deine Argumente für die If-Schleife sind falsch. Auch braucht "Cells" 2 Argumente, aber du willst eigentlich doch die Zeilennummer und nicht den Zellinhalt?
Probier mal so:

If Selection.Row = 27 and Selection.Row = 45 and Selection.Row = 63 Then z = 7
Cells(Selection.Row, Selection.Column).Value = Cells(z, Selection.Column).Value
Gruß,
Rainer
AW: aktive Zelle mit best. Wert bei Button
16.03.2018 05:27:28
Gerd
Moin Steve! 
Private Sub CommandButton3_Click()                 'Originalinhalt soll hin
With ActiveCell
MsgBox .Parent.Name
MsgBox .Address
Select Case .Row
Case 9 To 26: .Value = Cells(4, .Column).Value
Case 27 To 45: .Value = Cells(5, .Column).Value
Case 46 To 62: .Value = Cells(6, .Column).Value
Case 63 To 82: .Value = Cells(7, .Column).Value
Case Is > 82: .Value = Cells(8, .Column).Value
End Select
End With
Unload Me
End Sub

Gruß Gerd
Anzeige
AW: aktive Zelle mit best. Wert bei Button
16.03.2018 07:19:13
Steve
Hallo Gerd.
Jetzt machts wieder klick :)
Was sollen die beiden msgboxen bewirken?
Kann das erst nächste Woche testen, wenn ich wieder auf Arbeit bin
AW: aktive Zelle mit best. Wert bei Button
16.03.2018 08:47:20
Dieter(Drummer)
Hallo Steve,
Im Code von Gerd zeigt: 
MsgBox .Parent.Name
den Tabellenblattnamen an und 
MsgBox .Address
die erste Zelladresse auf deinem Tabellenblatt an.
Gruß, Dieter(Drummer)
AW: aktive Zelle mit best. Wert bei Button
16.03.2018 14:12:06
Steve
Danke dir.
will ja schließlich auch was lernen hier und nicht nur schnödes Copy/Paste betreiben ;)
AW: Gerne und danke für Rückmeldung. owT
16.03.2018 18:46:22
Dieter(Drummer)

309 Forumthreads zu ähnlichen Themen

Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
Anzeige
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 08:52:34
Thread-ID: 1029679
8 Beiträge
Abstände zwischen Zellen mit gleichem Wert
Arn

Hallo, muß einen Fahrplan erstellen und den Abstand zwischen Logistikzügen berechnen
In der ersten Zeile ist die Uhrzeit in 5min Schritten abgetragen, darunter in der Zeile 2 bzw. 4 welcher Zug gerade in der Halle ist. Ich möchte jetzt für den Ankunft eines Zuges die Dauer bis zur Ankunft d...
02.02.2009 16:33:00
Thread-ID: 1046316
5 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
3
3
5
4
4
9
7
4
5
1
17
4
7
3
3
4
1
10
3
3
2
9
5
2
2