Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

OT Add-In zum testen: Zellen Deselektieren

Forumthread: OT Add-In zum testen: Zellen Deselektieren

OT Add-In zum testen: Zellen Deselektieren
Josef
Hallo Forumsfreunde,
angeregt durch eine Thread von gestern und aus etwas Langeweile, hab ich
ein kleines Add-in erstellt, mit dem man Zellen De-Selektieren kann.
Wer will kann es mal testen. VBA-Projektschutz: PW = "x"
https://www.herber.de/bbs/user/66615.xla
Gruß Sepp

Anzeige
AW: OT Add-In zum testen: Zellen Deselektieren
15.12.2009 18:10:53
Uduuh
Hallo Sepp,
ich hab ja ne Vermutung, was das soll, aber bei mir tut sich nichts.
Kleine Bedienungsanleitung?
Gruß aus’m Pott
Udo

Bedienungsanleitung
15.12.2009 18:14:09
Josef
Hallo Udo,
na da gibt's nicht viel Anzuleiten.
Genau so, wie du bei gedückter Strg-Taste mehrere Zellen/Bereiche auswählen kannst,
kannst du, bei aktiver De-Select Funktion, Zellen/Bereiche wieder "entwählen".
Gruß Sepp

Anzeige
Jau
15.12.2009 18:24:04
Uduuh
Hallo Sepp,
jetzt geht's.
Irgendwo hab ich diese Funktion mal auf einer Wunschliste für XL2010 gesehen.
Ist ja auch zu ärgerlich. 1x verklickt und schon kann man wieder von vorne anfangen.
Gruß aus’m Pott
Udo

Nützliche Sache! Kleine Zusatzinfo,...
15.12.2009 18:37:28
Luc:-?
...Sepp (u. alle Interessenten):
Da ich an diesem PC kein MSO, aber dafür Gnumeric u. OO3.0 z.V. habe, habe ich das mal mit letzterem getestet. Scheint zu fkt! OO3.0 enthält wohl einen VBA-Adapter (da stand so etwas bei den OO-typischen „Vorschaltmakros“, der das bewirkt. Jedenfalls wdn VBA-Makros nicht mehr grdsätzlich auskommentiert.
(Leider haben sie da das Matrixkonstantenproblem noch nicht wirklich gelöst. Angeblich geht's, aber die Bspp fktn nicht!)
Gruß Luc :-?
Anzeige
AW: OT Add-In zum testen: Zellen Deselektieren
15.12.2009 18:16:47
Jens
Hallo Sepp
Läuft bei mir Fehlerfrei.
Habe den Thread gestern mal kurz überflogen. Prima Idee.
Wird bestimmt ab und an mal Verwendung finden :-)
Gruß Jens
AW: nur noch Deselektieren ...
15.12.2009 18:59:47
Erich
Hi Sepp,
, weil das jetzt mit deinem AddIn so schön geht, bringt einen aber doch auch nicht viel weiter,
zwischendurch muss man ja immer wieder "nachselektieren" - sonst ist Ende.
Funzt prima, hat nur einen Nachteil: Es gibt überhaupt nix zu meckern. ;-))
Grüße von Erich aus Kamp-Lintfort
Anzeige
Ergänzung
15.12.2009 19:11:24
Erich
Hi Sepp,
eine (für mich) Besonderheit ist mir aufgefallen:
Wenn ich bei deaktiviertem De-Select in einem markiertenBereich herumklicke,
merkt Excel sich die angeklickten Zellen.
Wenn ich dann das De-Select aktiviere und eine weitere Zelle mit Strg anklicke,
werden diese eine und alle vorher angeklickten Zellen deselektiert.
Ich hab jetzt nicht nachgeforscht, woran da liegt...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Ergänzung
15.12.2009 19:18:30
Josef
Hallo Erich,
das liegt daran, daß bei gedrückter Strg-Taste, Excel sich alle angeklickten Zellen "merkt", daß heißt
in "Target" speichert. Dabei werden mehrfach selektierte Zellen auch mehrfach aufgenommen.
Und genau darauf baut mein Add-In auf, es wird eben Target auf Zellen durchsucht, die mehrfach
in Target enthalten sind.
Gruß Sepp

Anzeige
Danke Sepp! Alles klar. (owT)
15.12.2009 19:23:03
Erich
AW: Prima Ergänzung
15.12.2009 19:57:19
dieter(drummer)
Hi Sepp,
es hat mich schon immer genervt, dass man nicht einzelne der markierten Zellen wieder zurücknehmen konnte ohne gleich alle markierten Zellen wieder komplett neu aktivieren zu müssen.
Es ist eine weitere Erleichterung in der Arbeit mit Excel.
Auch wenn ich nicht zu den Excelprofis zähle, finde ich das prima und werde es gerne nutzen. Habe es direkt eingebunden.
Gruß
Dieter(Drummer)
Anzeige
Fragen und Anregungen
15.12.2009 19:55:56
Uduuh
Hallo,
warum machst du das?
strR = Target.Address(0, 0)
...
For Each rng In Range(strR)
warum nicht gleich so:
For Each rng in Target
Und warum hängst du hier die '# an?
strRange(lngI) = rng.Address & "#"
Ich hab's mal ohne # getestet, ging auch.
Nichtsdestotrotz: Die Idee ist saugut!
Ich konnte aber nicht an mich halten und habe das ein wenig modifiziert. Ist ca. 2,5x schneller. Merkt man aber nur bei mehr als 1000 Zellen. Vielleicht gibt's noch mehr Potenzial.
https://www.herber.de/bbs/user/66618.xla
Gruß aus’m Pott
Udo

Anzeige
AW: Fragen und Anregungen
15.12.2009 20:19:19
Josef
Hallo Udo,
gut gemacht, das Add-in hab ich ja erst erstellt, da gibt' sicher noch Potenzial.
Zu deinen Fragen.
Bei meiner Methode mit "Filter" gab's Probleme, wenn ich das # nicht angehängt habe, weil Filter
scheinbar z.B. A1 auch in A11 findet und daher der Selectierte Bereich verschoben wurde.
Beim Dictionary ist das nicht der Fall, deshalb fällt das weg. Leider hat sich das Dictionary-Object
irgendwo in meinem Gehirn versteckt, deshal bin ich nicht darauf gekommen ;-((
Und zu deiner ersten Frage, das war noch ein Überbleibsel aus einem früheren Ansatz
den ich mitgeschleppt habe.
Gruß Sepp

Anzeige
AW: Fragen und Anregungen
15.12.2009 20:27:52
Uduuh
Hallo Sepp,
somit ist das geklärt.
Potenzial: Es ist natürlich unsinnig, die Selection neu zu schreiben, wenn gar nicht deselectiert wurde, d.h. eine Zelladresse doppelt vorkommt.
Ergo: 
      For Each rng In Target
If Not objRange.exists(rng.Address) Then
objRange.Add rng.Address, 1
Else
objRange(rng.Address) = 2
blnDeSelect = True
End If
Next
 If blnDeSelect Then
arrAddress = objRange.keys
arrCount = objRange.items
For lngI = 0 To UBound(arrAddress)
If arrCount(lngI) = 1 Then
If rngS Is Nothing Then
Set rngS = Range(arrAddress(lngI))
Else
Set rngS = Union(rngS, Range(arrAddress(lngI)))
End If
End If
Next
If Not rngS Is Nothing Then rngS.Select
End If
End If
End If
End If
ErrExit:
XLapp.EnableEvents = True
End Sub
Gruß aus’m Pott
Udo

Anzeige
neuer Ansatz
17.12.2009 22:50:55
Uduuh
Hallo,
es gibt ja auch noch die Areas-Auflistung. Die letzte Markierung ist auch die letzte in der Auflistung.
Probleme gibt es noch, wenn komplette Spalten und komplette Zeilen markiert werden. Einzelne Zellen aus kompletten Zeilen/ Spalten zu entfernen, klappt auch nicht richtig.
Was gut geht: Zellen deselektieren, Spalten deselektieren.
Wer Lust hat, kann ja weiter arbeiten. Ich denke auch noch nach.
https://www.herber.de/bbs/user/66686.xla
Gruß aus’m Pott
Udo

P.S. dummerweise landet der Thread in den nächsten Tagen im Archiv
Anzeige
;

Forumthreads zu verwandten Themen

UserForm ListBox Multiselekt deselektieren
Ximena

Guten Abend
Ich habe eine ListBox, bei der Multiselect möglich ist. Bevor man aber die Informationen des UserForms per Mail abschicken kann, möchte ich kontrollieren, ob auch alle Felder ausgefüllt wurden.
Das heisst ich habe in meiner Makro folgenden Code:
'Angaben kontrollieren If...
08.05.2012 16:52:49
Thread-ID: 1262802
5 Beiträge
Anzeige
Selektierte Zellen wieder deselektieren
Robin

Hallo,
wie kann man Zellen, die markiert wurden wieder deselektieren? Finde leider keinen Begriff hierfür.
Sheets("XXX").Range("A1:I1").Select Selection.Copy Sheets("XXX").Cells(i, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose...
24.04.2015 09:06:00
Thread-ID: 1422922
4 Beiträge
Anzeige
Deselektieren ?
Michael

Hallo Leute,ich hab ein kleines Problem (sorry, bin noch fast Anfänger)Ich habe einen Bereich selektiert (in einem VBA-Skript) Tabelle6.Range("B3:I20").SelectNun würde ich gerner wieder die Selektierung aufheben, damit man davon nichts mehr auf der Arbeitsmappe sieht.Kann mir da jemand h...
15.08.2002 19:39:07
Thread-ID: 149211
5 Beiträge
Per VBA mehrere Begriffe im Slicer deselektieren
Jörg

Hallo Forum,
ich benötige eine VBA Lösung für folgendes Problem:
In einer Pivottabelle gibt es bei einem Slicer die Ausprägungen von A bis Z.
An einer anderen Stelle gibt es eine Liste, in der untereinander verschiedene Buchstaben stehen, die im Slicer deaktiviert werden sollen (z.B...
04.04.2019 16:03:25
Thread-ID: 1685210
4 Beiträge
Userform DeSelektieren
Galenzo
Hallo,
heute stehe ich mal wieder vor einem Problem, wo ich nicht weiterkomme.
Mir fehlt die zündende Idee, und ich hoffe auf Eure Hilfe.
Ich habe eine Userform, die während der TabellenArbeit eingeblendet bleibt und u.a. Summen aus der Tabelle anzeigt. Diese Userform ist verschiebbar.
22.01.2004 12:02:37
Thread-ID: 368773
2 Beiträge
Userform "deselektieren"
Galenzo
Hallo XL-Spezies,
helft mir bitte bei diesem Problem(?):
Über dem Tabellenblatt lasse eine Userfom anzeigen, welche eine Übersicht über wichtige Tabellenwerte (z.B. Monatssummen) gibt.
Diese Userform ist auch verschiebbar.
Ich möchte nun, daß nach dem Verschieben gleich wieder das Tab...
29.01.2004 08:54:05
Thread-ID: 372715
5 Beiträge
Anzeige
Bildlaufleiste "deselektieren"
Galenzo
Hallo nochmal,
ich habe auf einem Formular mehrere Labels und ein Scroll-Steuerelement.
Dieses Laufleiste ist also das einzige aktivierbare Element auf der UF.
wenn ich nun an der Bildlaufleiste ziehe (hier: um ein Tabellenblatt zu steuern) - bleibt die Bildlaufleiste dann auch aktiv - und...
29.01.2004 08:58:38
Thread-ID: 372719
3 Beiträge
Shaperange deselektieren
BECK

Hallo,
wer kann mir helfen ?
Ich habe einige "Shapes" markiert und per VBA verändert. Am Ende des Makros möchte ich die Shapes wieder deselektieren und komme einfach nicht drauf wie's geht.
Danke für die Hilfe
14.06.2006 08:34:34
Thread-ID: 772887
4 Beiträge
Checkbox deselektieren
chris

Hallo Excelptrofis,
ich habe eine Problem bei dem ich nicht weiter weiß.
Ich dachte eigentlich VBA gut sollte mann das wissen aber ich komme nicht dahinter.
habe unten stehende Makro mit dem ich einen Pfad auswählen kann.
wenn ich einen Pfad auswähle kann ich in bevor ich in übe...
17.01.2007 14:39:53
Thread-ID: 838110
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige