OpenOffice.info

Private Sub Main
myDoc = thisComponent
mySheet = myDoc.Sheets().getByName("Tag")

myCell = mySheet.getCellRangeByName("U5")

myDoc1 = thisComponent
mySheet1 = myDoc1.Sheets().getByName("Monat")

For m = 6 to 36 step 1
myCell1 = mySheet1.getCellRangeByName("C"+m)
   If myCell1.formula = "" Then
      myCell1.value=myCell.value
      exit for
   End if
Next
 
End Sub

Sry für den Doppelpost, aber ich den Fehler bei mir gefunden.,. ;)

[code]
Private Sub Main
myDoc = thisComponent
mySheet = myDoc.Sheets().getByName("Tag")

myCell = mySheet.getCellRangeByName("U5")

myDoc1 = thisComponent
mySheet1 = myDoc1.Sheets().getByName("Monat")

For m = 6 to 36 step 1
myCell1 = mySheet1.getCellRangeByName("C"+m)
If myCell1.formula = "" Then
myCell1.value=myCell.value
exit for
End if
Next

End Sub[/code]

Ich bedanke mich für die Hilfe, sonst wäre ich noch immer nicht weiter !! Hat gut geklappt.,.

Jetzt gibt er mir immer folgendes aus

[quote]
'4,19560185185186E-03
[/quote]

Ich habe die Formatierung geändert, bringt auch nix.,. Hast du noch ne Idee ??

Danke dir schon mal ;)

Leider nein.,.

Ich bekomme den Wert von der Spalte "U5" aus der Tabelle "Tag" nicht auf die Tabelle "Monat" in das nächste freie Feld von "C"

Ich erhalte auch eine Fehlermeldung wenn ich das Makro direkt ausführe .,.

REM  *****  BASIC  *****

Private Sub Kopieren

myDoc = thisComponent
mySheet = myDoc.Sheets().getByName("Tag")
myCell = mySheet.getCellRangeByName("U5")

myDoc1 = thisComponent
mySheet1 = myDoc1.Sheets().getByName("Monat")
myCell1 = mySheet1.getCellRangeByName("C6:C36")
iSpaltS = myCell1.rangeAddress.startColumn
iSpaltE = myCell1.rangeAddress.EndColumn

For m = 0 to iSpaltS-iSpaltE

   If myCell.value = "" Then
   
   		myCell.getValue()
		myCell.setValue()
		
   End if

	Next m
	
End Sub

Hallo .,.

da ich ja das erste mal falsch gepostet habe, hier der 2. Versuch.,.

[quote]
ich bin gerade dabei eine Datei zu schreiben für die Arbeit.,. Es funktioniert auch alles soweit, bis auf eine Sache und dass ist eine Kopierfunktion.,.

Diese soll folgendes können.,.

Einen Wert aus der Tabelle1 [ Tag ] Zelle: "U5" in eine andere Tabelle [ Monat_2 ] kopieren. Die Besonderheit hierbei ist, dass wenn der oberste Eintrag bereits belegt ist, dass er diesen in die Zelle darunter schreibt. Der Bereich hier für ist C6:C36.

Dieses soll über einen Button geschehen, da dieser Wert sich erst zum Ende aus diversen anderen Formeln ermittelt.

Könnt ihr mir bei der Erstellung dieses Makro helfen ?

[/quote]

[code]

REM ***** BASIC *****

Private Sub Kopieren

myDoc = thisComponent
mySheet = myDoc.Sheets().getByName("Tag")
myCell = mySheet.getCellRangeByName("U5")

myDoc1 = thisComponent
mySheet1 = myDoc1.Sheets().getByName("Monat")
myCell1 = mySheet1.getCellRangeByName("C6:C36")
iSpaltS = myCell1.rangeAddress.startColumn
iSpaltE = myCell1.rangeAddress.EndColumn

For m = 0 to iSpaltS-iSpaltE

If myCell.value = "" Then

myCell.getValue()
myCell.setValue()

End if

Next m

End Sub
[/code]

dass habe ich dazu erstellt.,. leider sind meine Kenntnisse sehr sehr minimal , daher würde ich mich über Hilfe freuen und bedanken.,.

Mfg

Setto