Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Adresse von markierten Bereich auslesen.

Adresse von markierten Bereich auslesen.
15.03.2017 08:49:39
markierten
Hallo zusammen,
wie kann ich in Makros mit einem mit der Maus markiertem Bereich arbeiten?
Z.B. bräuchte ich die Adresse der ersten und letzten Zelle.
Ist es möglich diese in Variablen zu speichern?
Erste Zelle = B2
Letzte Zelle = B10
Userbild
Kann mir da jemand helfen?
thx

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
... mit Selection
15.03.2017 09:05:27
Michael
Hallo!
Du suchst nach "Selection" - damit kannst Du auf alle Infos des gerade markierten Blatt-Bereiches zugreifen...
Sub a()
Debug.Print Selection.Address
End Sub
Schau's Dir mal an.
LG
Michael
... na gut, erweitertes Beispiel...
15.03.2017 09:12:00
Michael
...weil ich nicht so bin:
Sub b()
With Selection
Debug.Print .Address 'Adresse Bereich
Debug.Print .Cells.Count 'Anzahl Zellen
Debug.Print Selection(1).Address 'Adresse erste Zelle
Debug.Print Selection(.Cells.Count).Address 'Adresse letzte Zelle
End With
End Sub
Klar?
LG
Michael
Anzeige
AW: ... na gut, erweitertes Beispiel...
15.03.2017 10:11:55
Tim
Ahh Klasse
Ich hätte mir das komplexer vorgestellt.
Danke für deine Beispiele.
Kannst Du mir noch verraten wie ich es in der Praxis anwende, anhand dieses Beispieles.
 Range("B3:B10").Select
With Selection.Interior
.Color = 65535
End With

Das wäre meine Logic, jedoch leider nicht die von VBA :/ 

Range(Debug.Print Selection(1).Address:Debug.Print Selection(.Cells.Count).Address).Select
With Selection.Interior
.Color = 65535
End With

AW: ... na gut, erweitertes Beispiel...
15.03.2017 10:28:10
Michael
Hallo!
Naja... bevor Du sowas machst, brauchst Du nicht mit Selection zu arbeiten:
 Range("B3:B10").Select
With Selection.Interior
.Color = 65535
End With
...denn, wenn Dir der Bereich sowieso bekannt ist, dann färbe den Bereich direkt, ohne ihn vorher zu selektieren (= unnötig):
Sub b()
With Range("B3:B10")
.Interior.Color = 65535
End With
End Sub
Mit Selection arbeitet man v.a. dann, wenn Deine Routine mit einem Bereich etwas machen soll, der manuell (von dem/der BenutzerIn) gewählt wurde, d.h. Dir also vorab nicht klar ist, um welchen Bereich es sich handelt.
Ansonsten funktioniert der von Dir gepostete Code genauso:
Sub b()
With Selection
.Interior.Color = 65535
End With
End Sub
Da wüsste ich jetzt nicht, was da bei Dir nicht funktioniert.
LG
Michael
Anzeige
AW: ... na gut, erweitertes Beispiel...
15.03.2017 10:46:19
Tim
Ich möchte dies natürlich nicht verwenden um nur die Farbe zu verändern. Das sollte nur als Beispiel dienen.
 With Selection.Interior
.Color = 65535
End With

reicht ja um die Felder Gelb zu färben.
?
15.03.2017 10:49:20
Michael
Ich möchte dies natürlich nicht verwenden um nur die Farbe zu verändern. Das sollte nur als Beispiel dienen.
reicht ja um die Felder Gelb zu färben.
Ähh... ok... hast Du jetzt noch eine Frage, oder wie?
LG
Michael
AW: ... na gut, erweitertes Beispiel...
15.03.2017 10:59:41
Tim
Ich gebe zu das Beispiel war ungeschickt gewählt.
Hier mal das echte Beispiel:
Ich möchte eine Bedingte Formatierung setzen.
In dem unteren Beispiel wird die Bedingte Formatierung in der Markierten Zeile gesetzt, die Rechnung geht aber bis Zeile 999. Ich möchte diesen gerne auf die letzte markierte Zelle beschränken.
a = Chr$(Selection.Column + 64): b = Selection.Row
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SUMME(" & a & b & ":" & a & "$" & b & ")/SUMME(" & a & "$" & b & ":" & a & "$999)

Anzeige
AW: ... na gut, erweitertes Beispiel...
15.03.2017 11:27:23
Michael 

Selection(Selection.Cells.Count)
gibt Dir Zugriff auf die letzte Zelle in einer Auswahl.
LG
Michael
DANKE
15.03.2017 11:29:44
Tim
Danke Du bist Top!
So scheint es zu funktionieren ;)
a = Chr$(Selection.Column + 64): b = Selection.Row
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SUMME(" & a & b & ":" & a & "$" & b & ")/SUMME(" & a & "$" & b & ":" & a & Selection.Rows. _
Count & ")

Gerne! owT
15.03.2017 12:39:52
Michael

8 Forumthreads zu ähnlichen Themen

VBA Makro, Markierten Bereich bearbeiten
Kalli

Hallo,
ich bin leider nur blutiger Anfänger in der VBA-Makroprogrammierung, möchte künftig aber etwas häufiger programmieren, um meine Arbeit zu erleichtern. Mein Anliegen anhand eines Beispiels dargestellt:
1) Ich habe eine Exceltabelle, in der in einer (beliebigen) Spalte abwechselnd...
29.06.2013 10:17:04
Thread-ID: 1320373
3 Beiträge
Anzeige
Rows aus einer Adresse auslesen
Detlef

Hallo Ihr im Forum,wie kann ich aus einer eingelesenen Adresse z.B. Tabelle1!$A$4:$D$8 nur die Zeilen herauslesen? Übrigbleiben soll nur 4:8 Vielen DankDetlef
27.01.2003 14:27:20
Thread-ID: 209516
9 Beiträge
aus Adresse die zeile auslesen
Jonny

Gibt es eine Möglichkeit aus einer Adresse die Zeile auszulesen!?
Event. vorher die Adresse auf zwei Variablen speichern!?
Danke
11.02.2005 17:20:37
Thread-ID: 566568
9 Beiträge
Anzeige
Formel per VBA (zweiten Bereich autom. ermitteln)?
Selma

Hallo Leute,
ich habe in der Zelle A3 diese Formel =TEILERGEBNIS(3;L4:M1000) & " Dateien" stehen.
Wie kann ich per VBA in Zelle A3 die Formel so eintragen, dass der Zahl für M.... in letzte gefüllte Zelle der Spalte A automatisch beim Einfügen der Formel ermittelt und eingetragen wi...
20.03.2008 17:30:27
Thread-ID: 962506
5 Beiträge
vba maximalwert in bestimmtem Zahlenbereich ermitteln
Gerold

Ein Hallo in das Forum!
arbeite schon seit Jahren mit Excel und das Forum ist mir stets eine gute Stütze. Konnte immer eine Lösung finden.
Nur aktuell komme ich nicht so richtig weiter. Suche eigentlich nur einen einfachen VBA-Code der die Excelfunktion MAXWENNS umsetzt.
Konkret: i...
22.12.2019 12:30:40
Thread-ID: 1730273
8 Beiträge
Mit VBA Druckbereich ermitteln
Joschi
Hallo Forum.
Ich bin auf der Suche nach einem Code, um die Positionen des Druckbereichs auszulesen.
Im Internet habe ich ein Beispiel gefunden, doch die darin enthaltenen Codes funktionieren nicht mehr:
DrkRow = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") - 1
DrkCol = ExecuteExce...
28.02.2023 09:21:42
Thread-ID: 1922120
4 Beiträge
Anzeige

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
2
2
8
8
2
4
7
3