Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro funktioniert nicht...vielleicht Sepp ?

Forumthread: Makro funktioniert nicht...vielleicht Sepp ?

Makro funktioniert nicht...vielleicht Sepp ?
26.04.2017 16:50:46
walter
Hallo zusammen,
anbei meine Musterdatei die mir Sepp erstellt hat.
Einzeln funktioniert diese Einwandfrei. Wenn alle Sheet in eine
andere Datei kopiere, werden die Kreuze nicht gezählt, warum auch immer.
Bitte mal schauen, vielleicht evtl ein anderes Makro ?
Ich muss immer die Kreuze zählen aus den vorhandenen Sheet außer
"Lager" und "Bestand".
https://www.herber.de/bbs/user/113131.xlsm
mfg
walter mb
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Vielleicht hat noch jemand einen Tip...
26.04.2017 17:50:32
walter
Hallo,
anbei das Makro, auch aus Forum, damit wurden die Anzahl der
OptionButton gezählt. Funktionierte auch, da es jetzt schon über 300 OptionButton sind
habe ich auf die Kreuze umgestellt, da die Eingabe der Kreuze einwandfrei (von Sepp)
klappt.
Hier das Makro: 
Public Sub Klicks_anzeigen()
Dim wksSheet As Worksheet
Dim objOLEObject As OLEObject
Dim objButtonRange As Range
Dim alngCount() As Long
Dim ialngCount As Long
Dim blnFirstSheet As Boolean
With ThisWorkbook
Set objButtonRange = .Worksheets("Bericht").Range("D59:I67,D69:I71,D83:I87,D89:I93")
For Each wksSheet In .Worksheets
If Not (wksSheet Is .Worksheets("Übersicht") Or wksSheet Is .Worksheets("Master")) Then
For Each objOLEObject In wksSheet.OLEObjects
With objOLEObject
If .progID = "Forms.OptionButton.1" Then
ialngCount = ialngCount + 1
With .Object
If Not blnFirstSheet Then
ReDim Preserve alngCount(ialngCount - 1) As Long
If .Value Then alngCount(ialngCount - 1) = 1
ElseIf .Value Then
alngCount(ialngCount - 1) = alngCount(ialngCount - 1) + 1
End If
End With
End If
End With
Next
blnFirstSheet = True
ialngCount = 0
End If
Next
For Each objOLEObject In .Worksheets("Bestand").OLEObjects
With objOLEObject
If .progID = "Forms.OptionButton.1" Then
ialngCount = ialngCount + 1
If alngCount(ialngCount - 1) > 0 Then _
.TopLeftCell.Value = alngCount(ialngCount - 1)
End If
End With
Next
End With
Set objButtonRange = Nothing
End Sub
gruß
walter mb
Anzeige
was hat dieser Code mit der Datei zu tun? owT
26.04.2017 19:33:47
robert
Nichts, war doch auch nur ein Beispiel...
26.04.2017 19:48:59
walter
Hallo zusammen,
ich brauch ein Makro, welches die Kreuze der vorhandenenen Sheet zählt, außer
der "Lager" und "Bestand" Sheet.
Wenn ich die vorhandenen Daten in meine Datei exportiere, läuft die
Zählung nicht mehr.
Die Klicks in den Zellen um ein Kreuz zu setzen einwandfrei !
gruß
walter b
Anzeige
erledigt ... -)
26.04.2017 20:06:55
walter
Guten Abend,
ich weiss nicht wieso aber das Makro funktioniert wieder,
gruß
walter b
wenn erledigt, warum "offengelassen" ... ?
26.04.2017 20:16:44
Matthias
AW: erledigt ... -)
26.04.2017 20:20:20
AlterDresdner
Hallo Walter,
vielleicht hattest Du nur das Kopieren der Makros aus Diese Arbeitsmappe vergessen?
Gruß der AlteDresdner
Anzeige
wieso schon wieder offen ?
26.04.2017 20:28:37
Matthias
Hallo
Guten Abend,
ich weiss nicht wieso aber das Makro funktioniert wieder,
gruß
walter b
Gruß Matthias
AW: wieso schon wieder offen ?
26.04.2017 20:39:54
AlterDresdner
Hallo Matthias,
diesmal war ich es aber in momentaner...
Gruß der ALteDresdner
erledigt ... -)
27.04.2017 10:10:55
walter
Guten Abend,
ich weiss nicht wieso aber das Makro funktioniert wieder,
gruß
walter b
Anzeige
erledigt, aber offen? Nein, geschlossen! (owT)
27.04.2017 10:41:56
EtoPHG

erledigt, aber offen? Nein, geschlossen! (owT)
27.04.2017 10:41:57
EtoPHG

;

Forumthreads zu verwandten Themen

Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Anzeige
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Makro funktioniert nicht
Diegel,

Hallo,
ich bin schon fast am verzweifeln.
Ein Makro funktioniert in der einen Datei und in der anderen Datei nicht. Obwohl ich genau dasselbe hinein kopiert habe.
Woran kann es liegen?
Viele Grüße von der Nordsee
Peter
12.03.2009 17:20:12
Thread-ID: 1059586
3 Beiträge
Makrorekorder funktioniert nicht richtig
peter

Hallo Profis,
hätte mal eine Frage zum Makrorekorder. Wenn ich es aufzeichne und dann abspiele funktionierts nicht.
Ich will einen Autofilter setzten, der diverse Zellen ausblendet, und die noch sichtbaren will ich in ein anderes Tabellenblatt kopieren...aber warum will er nicht?
'M...
22.03.2009 20:46:13
Thread-ID: 1062704
5 Beiträge
Anzeige
Makro funktioniert nicht
mike49

Hallo,
ich habe ein bestehendes Makro versucht zu erweitern, das aber misslungen ist.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E8:E38")) Then Cancel = True If Target = "" Then Target = "9:15" Else Target = "...
29.03.2009 11:08:37
Thread-ID: 1065018
5 Beiträge
Makro aus Excel 2003 funktioniert nicht in Ex 2007
Lene

Hallo zusammen,
ich habe in 2003er Version ein kleines Makro, das in der 2007er Version einen Fehler verursacht.
Hat jemand einen Tipp, woran es liegt ich wie man das Makro so umschreiben kann, dass es in möglichst vielen Excel-Versionen läuft? Der künftige Benutzerkreis hat leider dive...
07.04.2009 19:27:56
Thread-ID: 1067511
9 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Anzeige
Makro Frage beim Öffnen von pdf Dateien verhindern
pdf

Hallo Herber Fans,
ich baue gerade an einem Code, der den Wert der ActiveCell als Dateinamen annimmt und aus einem vorgegebenen Pfad die Datei öffnen soll. Wenn keine Dateiendung angegeben ist, werden alle gängigen Endungen durchgeloopt. Bei .pdf Dateien habe ich nun das Problem, daß die Fr...
15.01.2010 17:42:31
Thread-ID: 1130350
3 Beiträge
Makroeditor stürzt beim Öffnen ab
andi

Hallo zusammen,
ich habe jetzt seit ca. 2 wochen das Problem, dass auf einem Rechner Excel abstürzt, sobald man versucht den Makro-Editor zu öffnen, oder irgendein Makro auszuführen. Es stürzt selbst dann ab, wenn man den Editor in einem neuen, leeren Workbook öffnet. Hat also nichts mit de...
24.02.2010 13:07:32
Thread-ID: 1140626
3 Beiträge
Makro Daten übertrag funktioniert nicht
Chris

Hallo an alle Sonntagsfrühaufsteher,
ich habe ein Problem mit einem Makro zum Drucken und komme einfach nicht weiter.
Folgender Sachverhalt:
Ich habe eine Tabelle mit Daten für Überseecontainer. Kommt ein Container im Depot an oder wird abgeholt gibt es einen sogenannten "Inter Chan...
06.06.2010 09:32:50
Thread-ID: 1160481
23 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige