BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Zellen in bestimmten Bereich gleichen Wert zuweisen mit Makro

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
blubb_18
Beiträge: 15
Registriert: So 8. Okt 2017, 16:31

Zellen in bestimmten Bereich gleichen Wert zuweisen mit Makro

Beitrag von blubb_18 » Mi 20. Dez 2017, 17:33

Guten Abend allerseits,

ich bin Makro-Neuling und ich habe leider keine passende Antwort im Forum gefunden.
Ich möchte bei Button_click alle Zellen des Bereichs F7:G15 den Wert 0 zuweisen. => also überall steht nachdem klick die 0 drinnen (also nicht .clearcontents)

Bräuchte also eig. die Kurzversion für:
getcellrangebyname("F7").value = 0
getcellrangebyname("F8").value = 0
.
.
.
getcellrangebyname("G15").value = 0


Vll ist wer so lieb & kann mir sagen, wieso das hier nicht funktioniert? =>
getcellrangebyname("F7:G15").value = 0

Vielen Dank im Voraus!

F3K Total
Beiträge: 1007
Registriert: Mo 1. Aug 2011, 00:03

Re: Zellen in bestimmten Bereich gleichen Wert zuweisen mit Makro

Beitrag von F3K Total » Fr 22. Dez 2017, 14:34

Hi,
das ist das falsche Forum, für Makros gibt es ein eigenes.
Hier eine Möglichkeit, um im Bereich F7:G15 auf Tabelle1 eine Null einzutragen, führe das erste der beiden Makros aus.

Code: Alles auswählen

Sub Set_0_Value_for_Range_on_Sheet
    sRangeName = "F7:G15"
    sSheetname = "Tabelle1"
    Set_0_Value(sRangeName,sSheetname)
End Sub

Sub Set_0_Value(sRangeName,sSheetname)
     oSheet = Thiscomponent.Sheets.getbyName(sSheetname)
     oRange = oSheet.getCellRangebyName(sRangeName)
     aData = oRange.Data
     for i = 0 To uBound(aData)
         aRow = aData(i)
         for k = 0 to uBound(aRow)
             aRow(k) = 0
         next k
         aData(i) = aRow
     next i
     oRange.setDataArray(aData)
End Sub
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO

blubb_18
Beiträge: 15
Registriert: So 8. Okt 2017, 16:31

Re: Zellen in bestimmten Bereich gleichen Wert zuweisen mit Makro

Beitrag von blubb_18 » So 24. Dez 2017, 15:39

Hallo,
sry hab ich nicht gewusst. Danke für deine Hilfe, leider klappt das bei mir aber nicht. Iwie gefällt oo das "Set_0_value" nicht.

F3K Total
Beiträge: 1007
Registriert: Mo 1. Aug 2011, 00:03

Re: Zellen in bestimmten Bereich gleichen Wert zuweisen mit Makro

Beitrag von F3K Total » Mo 25. Dez 2017, 13:22

Tolle Antwort.
Es wäre hilfreich, wenn du die Fehlermeldung nennen würdest.
Bei mir klappt es wunderbar, heißt deine Tabelle vielleicht nicht "Tabelle1" ?
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO

Antworten