Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Makro keine Zelle selektieren

Nach Makro keine Zelle selektieren
23.02.2006 17:51:04
Louis
Hallo Forum,
da ich in der Recherche nichts passendes gefunden habe melde ich mich hier.
Ist es möglich nach Ablauf eines Makros keine Zelle zu selektieren ?
Wenn nicht habt ihr eine Idee das ganze zu umgehen?
schönen Dank für Eure Hilfe
mfg
louis

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Makro keine Zelle selektieren
23.02.2006 18:22:27
Nepumuk
Hallo Louis,
ich kenne nur zwei Fälle, in denen es überhaupt notwendig ist eine Zelle zu selektieren.
Gruß
Nepumuk
Da wird wohl in deinem Makro üppig mit Select...
23.02.2006 19:05:26
Luc:-?
...gewuchert, Louis!
Das ist typisch für Recorder-Makros. Glaube uns, das geht auch ohne, aber eben nur im Makro. 'Ne einfache Kompromisslösung wäre es, am Anfang des Makros die aktuell ausgewählte Zelle zu merken und dann am Ende des Makros wieder zu wählen.
Gruß Luc :-?
AW: Da wird wohl in deinem Makro üppig mit Select...
ransi
hallo nepumuk
"ich kenne nur zwei Fälle.."
nur der interessehalber.
Verrätst du mir welche?
ransi
AW: Da wird wohl in deinem Makro üppig mit Select...
23.02.2006 19:25:43
Nepumuk
Hallo ransi,
Public Sub test1()
    Range("A1:H25").Select
    ActiveWindow.Zoom = True
    Cells(1, 1).Select
End Sub

Public Sub test2()
    With Cells
        .Copy
        .PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
    Cells(1, 1).Select
End Sub

Gruß
Nepumuk
Anzeige
...und was ist mit diversen Formatierungen von...
23.02.2006 22:36:20
Luc:-?
...Objekten, Nepumuk?
Wenn man z.B. Texte in Kommentaren formatieren, nachsetzen oder ähnliches tuen will?
Na!? Manche Eigenschaften können hier nicht ohne weiteres angewendet wdn, nur auf Selection.
Gruß Luc :-?
AW: ...und was ist mit diversen Formatierungen von...
23.02.2006 22:51:57
Nepumuk
Hallo Luc,
wenn du mir kein Beispiel lieferst, wo ich einen Kommentar selectieren muss, darf ich dann behaupten das deine Aussage Quatsch ist?
Kleines Beispiel:
Public Sub test()
    With Cells(1, 1)
        .AddComment
        With .Comment
            .Visible = False
            .Text Text:="Nepumuk:" & vbLf & vbLf & "Hallo Luc"
            With .Shape.OLEFormat.Object.ShapeRange
                .AutoShapeType = msoShapeExplosion1
                .Fill.ForeColor.SchemeColor = 11
                .ScaleWidth 1.96, msoFalse, msoScaleFromTopLeft
                .ScaleHeight 2.84, msoFalse, msoScaleFromTopLeft
            End With
        End With
    End With
End Sub

Gruß
Nepumuk
Anzeige
@Nepumuk
23.02.2006 23:09:45
MichaV
Hallo Nepumuk,
was ist eigentlich hiermit?
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=5162&h=5161
Ich finde allerdings kein Beispiel, was hier zutreffen würde. Bei mir gibts immer einen Fehler 1004. Welches Shape hat eine Caption?
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: @Nepumuk
23.02.2006 23:50:14
Nepumuk
Hallo Micha,
hier mal der Code für die Symbolleiste Formular. Bei den Controls der Symbolleiste Steuerelemente-Toolbox wird es allerdings schwierig, da es sehr viele zusätzliche Controls gibt. Die Standardcontrols sind drin.
Public Sub test()
    Dim objShape As Shape
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoFormControl Then
            Select Case objShape.FormControlType
                Case xlButtonControl, xlOptionButton, xlCheckBox, xlLabel, xlGroupBox
                    MsgBox objShape.OLEFormat.Object.Caption
            End Select
        ElseIf objShape.Type = msoOLEControlObject Then
            Select Case objShape.OLEFormat.Object.ProgId
                Case "Forms.CheckBox.1", "Forms.CommandButton.1", "Forms.OptionButton.1", _
                        "Forms.ToggleButton.1", "Forms.Label.1"
                    MsgBox objShape.OLEFormat.Object.Object.Caption
            End Select
        End If
    Next
End Sub

Gruß
Nepumuk
Anzeige
Danke! mT
24.02.2006 00:00:10
MichaV
Hallo,
.Object.Object.Caption ...alles klaro ;o)
Gruß- Micha
Na, da hab ich ja was ausgelöst,...
23.02.2006 23:59:53
Luc:-?
...Nepumuk,
ich hoffe du verzeihst, dass ich jetzt nicht Dutzende meiner userdefined Functions durchkrame, nur um so'ne Stelle zu finden. Weiß aber, dass das mal in Zusammenhang mit Shapes oder Comments vorkam. Allerdings habe ich da bestimmt nicht ...OLEFormat.Object... verwendet.
Auf jeden Fall gibt's noch eine Trivialanwendung, wenn wirklich was ausgewählt wdn soll...;-))
Gruß Luc :-?
AW: Na, da hab ich ja was ausgelöst,...
24.02.2006 00:15:04
Nepumuk
Hallo Luc,
ein Kommentar ist wie alle Shapes ein Objekt und auf die Eigenschaften eines Objektes kannst du ohne Select zugreifen. Wenn du eine Eigenschaft nicht kennst, dann Verweise das Objekt an eine Objektvariable und schau dir die Eigenschaften im Lokalfenster an. Manchmal musst du halt ein paar Ebenen aufklappen um sie zu finden. So wie eben
Cells(1, 1).Comment.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 11
Gruß
Nepumuk
Anzeige
Naja, irgendwann wär's mir aufgefallen. Danke! owT
24.02.2006 00:23:47
Luc:-?
:-?
AW: ...und was ist mit diversen Formatierungen von...
23.02.2006 22:56:17
Louis
Hallo Luc,
sorry, Dir natürlich auch ein Danke an Deinem Interesse für mein Problem.
Wenn Du eine Idee oder einen Ansatz weisst immer her her damit
mfg Louis
AW: Da wird wohl in deinem Makro üppig mit Select...
23.02.2006 22:46:33
Louis
Hallo nepumuk,
Hallo ransi,
danke Euch für Euer Interesse für mein Problem.
Solangsam wird mir das ganze jetzt peinlich.Aber vieleicht habe ich mich auch nur falsch ausgedrückt.
Wenn ich eine UserForm über folgende Anweisung aufrufe, und diese wieder schliesse habe ich die active Zelle selectiert. 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("AD1")) Is Nothing Then
Else
Jahr.Show
End If
End Sub

Ich drücke mich jetzt mal ganz banal aus.
Nach dem schliessen der UserForm möchte ich um keine Zelle einen schwarzen Rand.
Ist das möglich ?
Wenn ihr Euch meiner noch einmal annehmen würdet, würde ich mich freuen.
mfg Louis
Anzeige
AW: Da wird wohl in deinem Makro üppig mit Select...
23.02.2006 23:02:06
Nepumuk
Hallo Louis,
eine Tabelle ohne aktive Zelle? Das geht nur, wenn die Tabelle komplett geschützt ist und die EnableSelection - Eigenschaft auf xlNoSelection gesetzt ist. Aber, dann kannst du keine Zelle mehr anklicken um dein Userform aufzurufen. Ein Wiederspruch in sich.
Gruß
Nepumuk
AW: Da wird wohl in deinem Makro üppig mit Select...
23.02.2006 23:07:02
Louis
Hallo nepumuk,
nochmal Danke für Deine Antwort.
Ich habe bis jetz die "selectierte Zelle" immer hinter irgendwelchen Shapes versteckt.
Dachte das geht auch irgenwie anders.
Für heute reichts auch einfach.
gute Nacht
Louis
Anzeige

6 Forumthreads zu ähnlichen Themen

VBA: Zellen selektieren bei geteiltem Fenster ?
Melanie

Hallo,
ich habe ein grosse Excel Tabelle mit vielen Zeilen und habe das Fenster horizontal aufgeteilt, damit ich beim manuellen Scrollen nach unten immer die obersten Zeilen unveraendert sichtbar habe.
Nun moechte ich per VBA verschiedene Zellen im unteren Bereich selektieren und aktiv...
21.10.2009 23:54:36
Thread-ID: 1111215
3 Beiträge
Anzeige
Makro - Spalte A jede Zelle einzeln auswählen
Stef@n

Hallo Excel-Freunde
ich habe ein Sheet mit knapp 10.000 Zeilen.
Wenn eine Zelle in Spalte A markiert wird, wird ein Makro ausgelöst
Ich möchte jetzt einen komplette "Neuberechnung" (Ausführen des Makros)
durchführen.
Also müsste mein Makro ganz fleissig der Reihe nach jede Z...
05.03.2012 09:10:45
Thread-ID: 1253601
5 Beiträge
VBA Schleife Zellen auswählen und selektieren
Andreas

Hallo,
trotz langem Suchen habe ich keine Lösung gefunden. Ich hoffe Ihr könnt mich helfen.
Folgende Ausgangssituation:
- Mappe „Makro“ befindet sich nur ein Button mit meiner Makro.
- In der Mappe „Daten“ befinden sich alle Informationen die selektiert und kopiert werden sollen...
08.06.2015 14:34:45
Thread-ID: 1429823
4 Beiträge
Anzeige
VBA - Zellen selektieren
wolf

Liebe Excel Gemeinde,
in Spalte A steht in unterschiedlichen Zeilen "/". Alle Zeilen in Spalte A mit "/" sollen per VBA zu Krontollzwecken selectiert werden, mehr nicht.
Wer kann weiterhelfen.
Gruß
wolf ludwig
06.05.2020 13:17:53
Thread-ID: 1757145
10 Beiträge
Anzeige

Links zu Excel-Dialogen

ToggleButton 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
2
4
4
3
3
9