Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Next Schleife -

For Next Schleife -
27.06.2018 14:50:39
Lilli
Hallo Ihr lieben,
ich habe 132 Optionsfelder, die einzeln markiert werden und formatiert werden.
ich habe über das Makrorekorder folgendes aufgenommen. 
Sub test()
ActiveSheet.Shapes.Range(Array("Option Button 1")).Select
Application.CutCopyMode = False
With Selection
.Value = xlOff
.LinkedCell = "$P$29"
.Display3DShading = True
End With
End Sub
kann mir bitte jemand helfen eine Schleife um diese Befehle zu machen, wo der Name von "Option Button 1" automatisch steigt und dadurch die vorhandenen Buttons ausgewählt und formatiert werden.
Die Zahl soll bei 1 anfangen und bei 132 enden.
Nach Möglichkeit soll die Bildschirmaktivität am Anfang ausgeschaltet und am Ende wieder eingeschaltet werden.
Vielen Dank für die Mühe im Voraus.
Liebe Grüße,
Lilli :)

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Fehlende Info: .LinkedCell Addresse ! (owT)
27.06.2018 14:55:55
EtoPHG

AW: Fehlende Info: .LinkedCell Addresse ! (owT)
27.06.2018 18:24:21
Lilli
Hallo EtoPHG,
was meinst Du bitte mit
Fehlende Info: .LinkedCell Adresse! (owT)
ich kann leider mit den Makroinhalt wenig anfangen. Es ist alles über den Makro gelaufen.
Was bedeutet bitte owT?
viele Grüße,
Lilli
AW: Fehlende Info: .LinkedCell Addresse ! (owT)
27.06.2018 18:24:48
Lilli
Kontrollkasten aktiviert ;)
AW: Fehlende Info: .LinkedCell Addresse ! (owT)
27.06.2018 18:27:15
Lilli
Die Adresse bleibt bei allen Option Button gleich
.LinkedCell = "$P$29"
AW: Fehlende Info: .LinkedCell Addresse ! (owT)
27.06.2018 23:31:11
Luschi
Hallo Lilli,
so klapt das bei mir: 

Sub MachMal()
Dim s As String, i As Integer
With ActiveSheet.Shapes
For i = 1 To 132
'Bezeichnung als String zusammenbauen
s = "Option Button " & i
.Range(Array(s)).Select
Application.CutCopyMode = False
With Selection
.Value = xlOff
.LinkedCell = "$G$2"
.Display3DShading = True
End With
Next i
End With
Range("G2").Select
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Fehlende Info: .LinkedCell Addresse ! (owT)
28.06.2018 15:03:20
Lilli
Hallo Luschi :)
Kollege MachMal hat alles erwartungsgemäß gemacht.
Vielen herzlichen Dank für Deine Mühe. :)
Viele liebe Grüße,
Lilli :)
AW: Fehlende Info: .LinkedCell Addresse ! (owT)
27.06.2018 23:38:22
Mullit
Hallo,
na bitte, dann wird's klarer, mal 2 Mögl., eine mit Array....
Option Explicit

Public Sub test()
   Dim lngIndex As Long
   For lngIndex = 1 To 132
       With ActiveSheet.OptionButtons("Option Button " & lngIndex)
            .Value = xlOff
            .LinkedCell = "$P$29"
            .Display3DShading = True
       End With
   Next
End Sub

Public Sub test2()
   Dim astrNames() As String
   Dim ialngIndex As Long
   With ActiveSheet.OptionButtons
        Redim astrNames(.Count - 1) As String
        For ialngIndex = 1 To .Count
           astrNames(ialngIndex - 1) = "Option Button " & ialngIndex
        Next
   End With
   With ActiveSheet.OptionButtons(astrNames())
        .Value = xlOff
        .LinkedCell = "$P$29"
        .Display3DShading = True
   End With
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 14

Gruß, Mullit
Anzeige
AW: Fehlende Info: .LinkedCell Addresse ! (owT)
28.06.2018 14:30:33
Luschi
Hallo Mullit,
auf eine Rückantwort von Lilli werden wir wohl vergebens warten - sie/er jammert immer nur, solange es nicht klappt; auf erfolgreiche Antworten gibt es einfach kein response.
Gruß von Luschi
aus klein-Paris
AW: Fehlende Info: .LinkedCell Addresse ! (owT)
28.06.2018 15:09:17
Lilli
Hallo Mullit,
ich habe beide ausprobiert und es funktionieren beide einwandfrei.
Vielen lieben Dank für Deine Mühe.
viele liebe Grüße und ab morgen ein schönes Wochenende.
Liebe Grüße,
Lilli :)
Hier kommt der (Be)lehrer....
29.06.2018 12:09:19
EtoPHG
Hallo Lilli,
owT heisst ohne weiteren Text, soll heissen der Betreff sagt schon alles.
In deiner Anfrage fehlten
a) ob es sich um ein Formularsteuerelement oder ein ActiveX-Control handelt.
Das ist oft wichtig für den zu erstellenden Codes.
b) Das alle Option Buttons die gleiche Linkedcell haben. Das hast du nachgereicht.
Dann allgemein: Ich würde sowas niemals mit VBA Code machen. VBA Code in einer XL Datei macht zur Voraussetzung das Makros zugelassen sind, was in vielen Unternehmen gar nicht oder nur unter besonderen Auflagen (z.B. Code mit Sicherheitszertifikat) der Fall ist.
Du hättest viel einfacher alle Steuerelement selektiert und in den (Formatierungs) Eigenschaften die LinkedCell auf die gemeinsame Adresse und das DisplayShading gesetzt.
Das Setzen aller Optionbutton auf xlOff hättest du dann mit dem einfachen Löschen des Zellinhalts der LinkedCell erreicht, ohne VBA Code einsetzen zu müssen.
Für mich sind solche Codes absolute Einmalbrauchen-Wegwerfen-Software!
Gruess Hansueli
Anzeige
AW: Hier kommt der (Be)lehrer....
02.07.2018 10:38:33
Lilli
Hallo Hansueli,
In deiner Anfrage fehlten
a) ob es sich um ein Formularsteuerelement oder ein ActiveX-Control handelt.
Das ist oft wichtig für den zu erstellenden Codes.
darf ich Dich fragen, worin der Unterschied liegt? vielleicht auch sowohl für mich als Nutzer als auch für den Hilfegebender?

Du hättest viel einfacher alle Steuerelement selektiert und in den (Formatierungs) Eigenschaften die LinkedCell auf die gemeinsame Adresse und das DisplayShading gesetzt.
Das Setzen aller Optionbutton auf xlOff hättest du dann mit dem einfachen Löschen des Zellinhalts der LinkedCell erreicht, ohne VBA Code einsetzen zu müssen.
Für mich sind solche Codes absolute Einmalbrauchen-Wegwerfen-Software!

Für mich ist das kein einmalbrauchen-Wegwerfen-Software, da ich dieses mal für 10 Arbeitsblätter (10 Jahre) machen soll. Das sind jedes mal 132 Option Button einzeln anklicken / wählen dann formatieren.
Dazu kommt es noch, dass ich diese Methode für verschiedene Bereiche noch machen muss. Ich werde das erste Makro mindestens 50 Mal nutzen. Für mich ist das ein großes Zeitersparnis. Worüber ich meinen Helfer sehr dankbar bin.
Viele Grüße,
Lilli
Anzeige

300 Forumthreads zu ähnlichen Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge
Anzeige

Links zu Excel-Dialogen

OptionButton

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
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7