Seite 1 von 3
Spalte nach spalte addieren
Verfasst: Do 27. Okt 2016, 12:09
von Atwist
Ich glaube es ist mein letzte Herausforderung.
Möchte gerne wenn man nach dem nächste Monat geht dann sollte die Zellen F9:F27 addiert werden mit die neben Zelle aus die E Spalte (E7:E27).
Also F7+E7 hier ist F7 das Total und F8+E8 hier ist F8 das Total usw bis F27
Ich hoffe das ich es richtig Erklär, mit diesen Umschreibung hab ich schon gesucht mit freund Google und bei
dannenhoefer.de und
pitonyak.orgaber damit komm ich auch nicht weiter.
Habt ihr bitte noch einen Lösung??
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 10:21
von Atwist
Ich habe einen Anfang gefunden und die Funktioniert, es ist nicht schöne zusammen gebastelt
Code: Alles auswählen
Option VBASupport 1
Sub OptellenJaarkosten
Doc = ThisComponent
Sheets = Doc.Sheets()
Worksheets("Jaarkosten").Range("F9").Formula = "=G9+E9"
End Sub
Aber wenn ich auf mein Button klicke dann macht er die Berechnung nur 1 mal aber es muss bei jede Aktivierung des Makro die Berechnung machen.
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 12:23
von karolus
Hallo
Warum zum Geier, benutzt du dafür überhaupt einen Button, schreib die Formel so in die Zelle und gut…die berechnet sich nämlich automatisch wenns einen Grund dafür gibt.
Das Makro besteht aus sinnfrei zusammengewürfelten Versatzstücken aus Basic und VBA und ist IHMO ein tolles Beispiel dafür das dieser ganze VBASUPPORT nur noch zu mehr Verwirrung und noch schlechteren Geschreibsel führt.
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 12:47
von Atwist
Ich weiß dass es sch***e ist aber mit die Zelle ist keine Lösung für mich
wenn man nach dem nächste Monat geht dann sollte die Zellen F9:F27 addiert
Darum hab ich es erst mal als Test unter einen Button gebaut
Früher konnte ich mit "Excel" viel zusammen bauen aber mit StarBasic komm ich noch nicht zurecht daher auch die viele Fehler in meine Makros ich denk zu viel in VBA.
Es tut mir leid das du dich aufregst und kann es auch gut nachvollziehen.
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 13:08
von karolus
Nur damit nicht der nächste DAU über dieses Thema stolpert und meint das
müsste so gemacht werden, nein, entweder:
Code: Alles auswählen
Option VBASupport 1
Sub OptellenJaarkosten
Worksheets("Jaarkosten").Range("F9").Formula = "=G9+E9"
End Sub
oder aber so:
Code: Alles auswählen
Sub OptellenJaarkosten
sheet = ThisComponent.Sheets.getByName("Jaarkosten")
sheet.getCellRangeByName("F9").Formula = "=G9+E9"
End Sub
Bei der Gelegenheit.
Hat hier jemand eine Idee wie man sich ohne Gedöns die ganzen Namen|Objecte|Symbole
anzeigen lassen kann die per 'Option VBASupport 1' anfallen?
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 13:26
von Atwist
Karolus ich DANKE dir
Ich war auch fast so weit (die VBA code) aber ich beschäftige mich noch mit das es bei jeden klick addiert dar lauf ich gegen eine Mauer ich komme jedes mal in eine Kreisschleife (Error 522).
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 14:25
von Atwist
Na also es geht doch
Code: Alles auswählen
Option VBASupport 1
Sub OptellenJaarkosten
maandkosten = Sheets("Jaarkosten").Range("E9")
Sheets("Jaarkosten").Range("F9") = Sheets("Jaarkosten").Range("F9") +maandkosten
End sub
Jetzt noch aus knobel wie ich das mit mehr-deren Zellen auf einmal machen kann, Oke ich kann es auch so machen.
Code: Alles auswählen
Option VBASupport 1
Sub OptellenJaarkosten
maandkosten_1 = Sheets("Jaarkosten").Range("E9")
Sheets("Jaarkosten").Range("F9") = Sheets("Jaarkosten").Range("F9") +maandkosten_1
maandkosten_2 = Sheets("Jaarkosten").Range("E10")
Sheets("Jaarkosten").Range("F10") = Sheets("Jaarkosten").Range("F10") +maandkosten_2
End sub
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 15:38
von karolus
Wie oft muss man dirs zeigen bis du irgendetwas kapierst.
Code: Alles auswählen
Sub Optellen_Jahrkosten
sheet = ThisComponent.Sheets.GetByName("Jaarkosten")
maand = sheet.getCellRangeByName("E9:F27")
data = maand.DataArray
for each row in data
row(1) = row(0)+row(1)
next
maand.DataArray = data
End Sub
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 16:15
von Atwist
Wie oft muss man dirs zeigen bis du irgendetwas kapierst.
Aber HALLO du bist einen Profi hab ich mal gelesen die meiste Leute hier können nicht mit dir mithalten.
Und ich bin von Baujahr 1953 und bin nicht mit eine Computer, Tablett usw groß geworden.
ABER trotzdem dank für deine Hilfe.
Re: Spalte nach spalte addieren
Verfasst: Fr 28. Okt 2016, 16:26
von karolus
Hallo
Ich bin Baujahr 1960 und habe erst ~1999 angefangen mit dem Thema, hauptberuflich mach was ganz anderes.
Karolus