Hilfe bei einem Makro [ Kopieren ]

[Setto]

Hallo .,.

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

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 ?

Code: Alles auswählen

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

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

Mfg

Setto

[Setto]

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

[Setto]

Jetzt gibt er mir immer folgendes aus

'4,19560185185186E-03

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

Danke dir schon mal

[Setto]

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

Code: Alles auswählen

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

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