Forumbeitrag
Excel-Version des Fragestellers:
bis 2003
Erfahrungslevel des Fragestellers:
VBA nur mit Recorder
chris58
01.09.2024 20:59:37
AW: Formular bzw. Zahlen direkt in Zellen einlesen
Hallo ralf_b !
Ich habe die ZIP Datei genommen und den Code in die Originaldatei eingefügt. Warum das bei mir nicht ging....................
Jedenfalls danke ........................
Die Formel "=SUMME(C6-C1038)" ist nur dazu da, damit ich weiß, wieviel Anlaufstrom ich vom Netz trotz vollem Akku verbrauche um den Gesamtanlaufstrom fürs ganz Jahr hinzuschätzen.
Was ich noch gemacht habe ist:
Ich habe in den Code, der nun dank Deiner und Yal funktioniert, folgendes dazu gemacht:
Range("A1368:R65000").Select
Selection.Interior.ColorIndex = xlNone
Range("A2").Select
da, mir der Code immer in die folgenden Zeilen keine Linien mehr bringt bzw. mit weiß färbt und dadurch keine Linien mehr zu sehen sind.
Bei der Färbung der 3 Spalten ...............entfärbt der Code die vor der neuen Zeile Stück 5 Zeilen, sodaß dann insgesamt 6 Zeilen nicht gefärbt sind.
'Färbung
R.Interior.Pattern = xlSolid
R.Cells(5).Interior.ColorIndex = 36
R.Cells(7).Interior.ColorIndex = 34
R.Cells(7).Interior.ColorIndex = 35
Kann man das noch ändern..................ich bin begeistert. Einfach Toll
Danke
chris58
Ich habe die ZIP Datei genommen und den Code in die Originaldatei eingefügt. Warum das bei mir nicht ging....................
Jedenfalls danke ........................
Die Formel "=SUMME(C6-C1038)" ist nur dazu da, damit ich weiß, wieviel Anlaufstrom ich vom Netz trotz vollem Akku verbrauche um den Gesamtanlaufstrom fürs ganz Jahr hinzuschätzen.
Was ich noch gemacht habe ist:
Ich habe in den Code, der nun dank Deiner und Yal funktioniert, folgendes dazu gemacht:
Range("A1368:R65000").Select
Selection.Interior.ColorIndex = xlNone
Range("A2").Select
da, mir der Code immer in die folgenden Zeilen keine Linien mehr bringt bzw. mit weiß färbt und dadurch keine Linien mehr zu sehen sind.
Bei der Färbung der 3 Spalten ...............entfärbt der Code die vor der neuen Zeile Stück 5 Zeilen, sodaß dann insgesamt 6 Zeilen nicht gefärbt sind.
'Färbung
R.Interior.Pattern = xlSolid
R.Cells(5).Interior.ColorIndex = 36
R.Cells(7).Interior.ColorIndex = 34
R.Cells(7).Interior.ColorIndex = 35
Kann man das noch ändern..................ich bin begeistert. Einfach Toll
Danke
chris58
Als Antwort auf diesen Beitrag
ralf_b
01.09.2024 19:32:23
AW: Formular bzw. Zahlen direkt in Zellen einlesen
https://www.herber.de/bbs/user/171910.zip
du hast verwechselt das Commandbutton4 die Bezeichnung des Speicherbuttons in der Userform ist. Die hat nichts mit dem Namen des Commandbuttons auf dem Arbeitsblatt zu tun. Drückst du den Knopf auf dem Arbeitsblatt wird ein Makro im Codemodule des Arbeitsblattes gestartet. Darin wird dann die Userform geöffnet.
Eine kleine Änderung im Code mußte ich noch machen.
Weiterhin solltest du den Code von Yal verwenden, Hast du aber nicht. Denn es fehlten die beiden Functions in deiner Beispieldatei.
Zudem verwendest du solche festen Bezüge. "=SUMME(C6-C1038)"
Deine Daten sind aber schon in Zeile größer 1300
du hast verwechselt das Commandbutton4 die Bezeichnung des Speicherbuttons in der Userform ist. Die hat nichts mit dem Namen des Commandbuttons auf dem Arbeitsblatt zu tun. Drückst du den Knopf auf dem Arbeitsblatt wird ein Makro im Codemodule des Arbeitsblattes gestartet. Darin wird dann die Userform geöffnet.
Eine kleine Änderung im Code mußte ich noch machen.
Weiterhin solltest du den Code von Yal verwenden, Hast du aber nicht. Denn es fehlten die beiden Functions in deiner Beispieldatei.
Zudem verwendest du solche festen Bezüge. "=SUMME(C6-C1038)"
Deine Daten sind aber schon in Zeile größer 1300
Folgenachrichten
- AW: Formular bzw. Zahlen direkt in Zellen einlesen - von ralf_b am 01.09.2024 21:50:55
- AW: Formular bzw. Zahlen direkt in Zellen einlesen - von chris58 am 02.09.2024 11:19:25
- AW: Formular bzw. Zahlen direkt in Zellen einlesen - von chris58 am 02.09.2024 11:19:25
Antwort auf Beitrag erstellen