Autor
|
Thema: Hilfe! (2167 mal gelesen)
|
Ben222 Mitglied Dipl.-Ing. Maschinenbau (FH)
Beiträge: 99 Registriert: 04.10.2005 Windows 2000/ XP OneSpaceDisigner BeckerCAD 4.0 PRO-E
|
erstellt am: 14. Mai. 2009 14:56 <-- editieren / zitieren --> Unities abgeben:
hallo zusammen.... brauche dringend hilfe vielleicht weis ja einer hier wie das geht.... folgendes problem: ich wünsche mir.... ich drücke auf ein symbol, da wo jetzt Min.Requirement steht, dann werden alle SPALTEN ausgeblendet in denen kein x steht... dann drück ich da nochmal drauf und es werden wieder alle spalten eingeblendet... geht sowas
also ich weis das es geht... habs mal wo gesehen... find es aber nicht mehr...
freu mich über eure hilfe!!!!
------------------ "Und jetzt, ohne blumige Worte zu verschwenden, ohne gross aufzutragen: Hier kommt er, der Fahnder der Stille, der Beschützer italienischer Jungfräulichkeit, die Exekutive unseres Allmächtigen, der große, der einzige Sir Beeeeeeeeeeeeennn222!" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 14. Mai. 2009 15:00 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2013 ADT 2005 bis 2013 Arcibem System: Windows NT, 2000, XP Internet-Startseite: http://www.archi.de
|
erstellt am: 14. Mai. 2009 16:24 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
|
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 14. Mai. 2009 18:16 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
|
Nepumuk Mitglied Entwicklungsleiter
Beiträge: 351 Registriert: 16.10.2004
|
erstellt am: 14. Mai. 2009 22:27 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
Hallo, es ginge auch ohne Schleife: Code: Private Sub CommandButton1_Click() Dim objCell As Range If CommandButton1.Caption = "x" Then With Range(Cells(9, 4), Cells(9, Columns.Count)) Set objCell = .Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) If Not objCell Is Nothing Then .RowDifferences(Comparison:=objCell).EntireColumn.Hidden = True End With Else Columns.Hidden = False End If CommandButton1.Caption = IIf(CommandButton1.Caption = "x", "Alle", "x") End Sub
------------------ Gruß Nepumuk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ben222 Mitglied Dipl.-Ing. Maschinenbau (FH)
Beiträge: 99 Registriert: 04.10.2005 Windows 2000/ XP OneSpaceDisigner BeckerCAD 4.0 PRO-E
|
erstellt am: 18. Mai. 2009 11:24 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen! Vielen Danke für die Antworten.... leider bin ich wohl - so wie es aussieht einfach ein bissle zu doof und bekomme es einfach nicht zum laufen @Thomas: bei deiner Version bekomme ich immer ne Fehlermeldung (siehe Bild 1), in der Zeile mit den Mauscursor... "Objekt fehlt" @Nepumuk: bei dir kommt hier der Fehler: If CommandButton1.Caption = "x" Then Könnt ihr mir evtl. erklären was ich machen soll - vielleicht so das es auch ein 3 jähriger versteht Bin nicht so der Fuchs!
Wäre echt SUPER! ------------------ "Und jetzt, ohne blumige Worte zu verschwenden, ohne gross aufzutragen: Hier kommt er, der Fahnder der Stille, der Beschützer italienischer Jungfräulichkeit, die Exekutive unseres Allmächtigen, der große, der einzige Sir Beeeeeeeeeeeeennn222!" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 18. Mai. 2009 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
Zitat: Original erstellt von Ben222: [...]@Nepumuk: bei dir kommt hier der Fehler: If CommandButton1.Caption = "x" Then Könnt ihr mir evtl. erklären was ich machen soll - vielleicht so das es auch ein 3 jähriger versteht Bin nicht so der Fuchs!
Wäre echt SUPER!
Du sollst einen button einfügen (ActiveX-Steuerelement Befehlsschaltfläche) Der soll den Text x auf sich tragen (Caption) Die x in Deiner Mappe stehen in Zeile 9 Den Code von Nepumuk trägst Du unter Tabelle1 ein (bzw. da, wo das ganze passieren soll) Du klickst auf den button. ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ben222 Mitglied Dipl.-Ing. Maschinenbau (FH)
Beiträge: 99 Registriert: 04.10.2005 Windows 2000/ XP OneSpaceDisigner BeckerCAD 4.0 PRO-E
|
erstellt am: 18. Mai. 2009 13:45 <-- editieren / zitieren --> Unities abgeben:
danke runkelruebe, Du sollst einen button einfügen (ActiveX-Steuerelement Befehlsschaltfläche) -> ok Der soll den Text x auf sich tragen (Caption) -> da kommt immer ne Fehlermeldung mit bezug oder so?? wenn ich das steuerelemnt erstelle sieht es dann so wie auf dem bild1 aus... Die x in Deiner Mappe stehen in Zeile 9 -> jo, passt! Den Code von Nepumuk trägst Du unter Tabelle1 ein (bzw. da, wo das ganze passieren soll) -> ja - ab er irgendwie komisch.... weil so wie das beim Nepumuk aussieht ist das kein ActiveX-Steuerelement... also bei mir kommt das hier nur: Private Sub CommandButton1_Click() wenn ich ein Formularelement erstelle??? ------------------ "Und jetzt, ohne blumige Worte zu verschwenden, ohne gross aufzutragen: Hier kommt er, der Fahnder der Stille, der Beschützer italienischer Jungfräulichkeit, die Exekutive unseres Allmächtigen, der große, der einzige Sir Beeeeeeeeeeeeennn222!" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 18. Mai. 2009 14:03 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
|
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 18. Mai. 2009 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
Zitat: also bei mir kommt das hier nur:Private Sub CommandButton1_Click() wenn ich ein Formularelement erstelle???
Beim Formularelement kommt bei mir: Zitat: Sub Schaltfläche4_KlickenSieAuf()End Sub
und zwar als eigenes Modul. Beim ActiveX-Element kommt der code in das Sheet, wo sich das Element drauf befindet. Das meinte ich mit "Den Code von Nepumuk trägst Du unter Tabelle1 ein (bzw. da, wo das ganze passieren soll)" Die Caption bekommst Du über RMT > Eigenschaften angepaßt, ist aber bei Nepumuks code wurscht, mußt halt 2x klicken, dann hast Du den auch auf "x" stehen Woher jetzt Deine Bezugsmeldung kommt, kann ich Dir leider nicht sagen, wenn Du den code in dem sheet hast, in dem auch der button ist. Wenn sich sonst auch kein anderer dafür findet, wäre es vielleicht hilfreich, Du lädst die Mappe hoch. Gewährleisten, dass der Code da steht, wo er hinsoll kannst Du übrigens mit RMT > Code anzeigen.
------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ben222 Mitglied Dipl.-Ing. Maschinenbau (FH)
Beiträge: 99 Registriert: 04.10.2005 Windows 2000/ XP OneSpaceDisigner BeckerCAD 4.0 PRO-E
|
erstellt am: 18. Mai. 2009 14:27 <-- editieren / zitieren --> Unities abgeben:
ich bin einfach zu doof hab die .xls datei mal angehängt.... also, da wo jetzt "Min. Requirement" steht (D9), sollte so ein Elemente sein, dass wenn ich da drauf klicke, nur noch die Spalten zu sehen sind, die mit x makiert sind... Danke für eure Mühen!!! ------------------ "Und jetzt, ohne blumige Worte zu verschwenden, ohne gross aufzutragen: Hier kommt er, der Fahnder der Stille, der Beschützer italienischer Jungfräulichkeit, die Exekutive unseres Allmächtigen, der große, der einzige Sir Beeeeeeeeeeeeennn222!" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 18. Mai. 2009 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
Sodele, der Fehler, der da kommt, kommt nicht beim Aufruf, sondern beim .RowDifferences(Comparison:=objCell).EntireColumn.Hidden = True-Teil. Warum: kA, da bin ich überfragt, setze ich statt ColumnsCount = 45 läuft es, bei 46 nicht mehr, bzw. wenn ich in Spalte 46 ein x setze geht es wieder usw. Ist für mich nur ein Rumprobieren, ich habe RowDifferences noch nie verwendet. Mußt Du auf den Chef warten sorry. ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 18. Mai. 2009 18:28 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
|
Ben222 Mitglied Dipl.-Ing. Maschinenbau (FH)
Beiträge: 99 Registriert: 04.10.2005 Windows 2000/ XP OneSpaceDisigner BeckerCAD 4.0 PRO-E
|
erstellt am: 19. Mai. 2009 07:08 <-- editieren / zitieren --> Unities abgeben:
Hallo und Danke an alle die mir helfen wollen kann mir jemand vielleicht das File mit eingebauter Schalterfläche hier uploaden? Auch wenn es nur 100% Zoom funktioniert? ------------------ "Und jetzt, ohne blumige Worte zu verschwenden, ohne gross aufzutragen: Hier kommt er, der Fahnder der Stille, der Beschützer italienischer Jungfräulichkeit, die Exekutive unseres Allmächtigen, der große, der einzige Sir Beeeeeeeeeeeeennn222!" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 19. Mai. 2009 08:05 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
|
Nepumuk Mitglied Entwicklungsleiter
Beiträge: 351 Registriert: 16.10.2004
|
erstellt am: 19. Mai. 2009 08:23 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
Hallo, entschuldigt bitte, aber gestern hatte ich absolut keine Zeit für euch. Ich schau jetzt mal wie es sich weiter entwickelt und wenn's noch Probleme gibt, dann melde ich mich wieder. Mein liebstes Runkelrübchen, RowDifferences gibt es mindestens seit Excel 2000 (weiter kann ich jetzt nicht zurückschauen). Nancy hat mich vor längerer Zeit darauf gebracht. ------------------ Gruß Nepumuk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 19. Mai. 2009 08:31 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
|
Ben222 Mitglied Dipl.-Ing. Maschinenbau (FH)
Beiträge: 99 Registriert: 04.10.2005 Windows 2000/ XP OneSpaceDisigner BeckerCAD 4.0 PRO-E
|
erstellt am: 19. Mai. 2009 08:49 <-- editieren / zitieren --> Unities abgeben:
SUPER! vielen dank runkelruebe... klappt! kann ich den namen der schaltfläche noch ändern? wenn ja, wie? hm - leider kann ich das makro nicht mehr sehen... hätte mich ja jetzt schon intressiert, was du gemacht hast, das es funktioniert.... danke auch an alle anderen!! ------------------ "Und jetzt, ohne blumige Worte zu verschwenden, ohne gross aufzutragen: Hier kommt er, der Fahnder der Stille, der Beschützer italienischer Jungfräulichkeit, die Exekutive unseres Allmächtigen, der große, der einzige Sir Beeeeeeeeeeeeennn222!" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 19. Mai. 2009 08:55 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
Zitat: kann ich den namen der schaltfläche noch ändern?
Der Code steht in VBA unter Microsoft Excel Objekte - Tabellex. Überall, wo ein "x" (immer mit Gänsefüßchen!) steht, machst Du "SoSollMeineSchaltflächeHeißen" draus. Zitat: hätte mich ja jetzt schon intressiert, was du gemacht hast, das es funktioniert....
Das steht hier: "ich hab die Tabelle jetzt mal als .xlsm abgespeichert (=2007 Datei mit Makros)..." ------------------ DIN1055.de | Lastannahmen für Anwender NEU: Foren zu DIN 1055 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 19. Mai. 2009 08:59 <-- editieren / zitieren --> Unities abgeben: Nur für Ben222
Zitat: Original erstellt von Ben222: kann ich den namen der schaltfläche noch ändern? wenn ja, wie?
Namen oder "Aufschrift"? Könntest Du beides, aber da im Code die Caption vergeben wird, wäre die Freude dabei nur von kurzer Dauer :D Du findest aber bestimmt raus, wo Du drehen mußt, beugt auch dem Copy&Paste-Wahn vor, wenn man mal selber ein wenig schaut, was wann wo passiert... Zitat: Original erstellt von Ben222: hm - leider kann ich das makro nicht mehr sehen...
Es ist das von Nepumuk, ich hab da nix dran geändert. Und Du solltest es (wie immer) im VBA-Editor sehen können... Zitat: Original erstellt von Ben222: hätte mich ja jetzt schon intressiert, was du gemacht hast, das es funktioniert....
Das, was ich oben geschrieben habe ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |