Spalte nach spalte addieren

[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??

Beispiel.ods

(14.17 KiB) 165-mal heruntergeladen

[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.

[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.

[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.

[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?

[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).

[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

[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

[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.

[karolus]

Hallo

Ich bin Baujahr 1960 und habe erst ~1999 angefangen mit dem Thema, hauptberuflich mach was ganz anderes.

Karolus