OpenOffice.info

Wow

Dieses makro funktioniert perfekt.

Genau das ist es was ich lange gesucht habe. Hatte zwar schon die Seite über eine spalte in oo einfügen gelesen, kam aber mit der abfrage über die wochentage nicht so richtig zurecht.

vielen dank.

Gruß Hermann

Sub Wochenspalteeinfuegen
oSheet = ThisComponent.CurrentController.getActiveSheet()
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Spalte = oCellCursor.getRangeAddress.EndColumn
For i = 0 To letzte_Spalte
'Doppelabfrage um Wiederholung der Schleife zu verhindern :
   If oSheet.GetCellByPosition(i, 0).String = "So" AND _
      oSheet.GetCellByPosition(i+1, 0).String = "Mo" Then
      oSheet.Columns.insertByIndex(i+1,1)
      letzte_Spalte = letzte_Spalte + 1
   End If
Next i
'Falls der Monat mit "Mo" beginnt :
If oSheet.GetCellByPosition(0, 0).String = "Mo" Then
      oSheet.Columns.insertByIndex(0,1)
      End if
End Sub

Hallo Hermann

Nein übersetzen kann ich dir das nicht, aber statt nach Excel-VBA zu recherieren, hättest du genausogut diesen Thread suchen und finden können :


[url]http://de.openoffice.info/viewtopic.php?t=7819[/url]
dort reinschauen können:
[url]http://www.dannenhoefer.de/faqstarbasic/zeileneinfuegen.html[/url]

und mit etwas "trial and Error" folgenden funktionierenden Code zu erhalten :

[code]Sub Wochenspalteeinfuegen
oSheet = ThisComponent.CurrentController.getActiveSheet()
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Spalte = oCellCursor.getRangeAddress.EndColumn
For i = 0 To letzte_Spalte
'Doppelabfrage um Wiederholung der Schleife zu verhindern :
If oSheet.GetCellByPosition(i, 0).String = "So" AND _
oSheet.GetCellByPosition(i+1, 0).String = "Mo" Then
oSheet.Columns.insertByIndex(i+1,1)
letzte_Spalte = letzte_Spalte + 1
End If
Next i
'Falls der Monat mit "Mo" beginnt :
If oSheet.GetCellByPosition(0, 0).String = "Mo" Then
oSheet.Columns.insertByIndex(0,1)
End if
End Sub[/code]

Das funktioniert sowohl mit einer Textfolge (Mo,Di,Mi....), als auch mit 'TTT'-formatierten Datumswerten in Zeile 1.

Gruß Karo

Sub Einfuegen()															
    Dim I As Integer															
    For I = 31 To 1 Step -1															
        If Weekday(Cells(1, InI), 2) = 1 And Cells(1, InI) <> "" Then															
            Columns(InI).Insert Shift:=xlToRight															
        End If															
    Next InI															
    Columns(1).Insert Shift:=xlToRight															
End Sub			

[b]Also in Excel VBA sieht das makro für spalteneinfügen neben einem montag als datum folgendermaßen aus:[/b]



[code]Sub Einfuegen()
Dim I As Integer
For I = 31 To 1 Step -1
If Weekday(Cells(1, InI), 2) = 1 And Cells(1, InI) <> "" Then
Columns(InI).Insert Shift:=xlToRight
End If
Next InI
Columns(1).Insert Shift:=xlToRight
End Sub
[/code]
Könnte mir das jemand übersetzen?


Hermann

Hallo
Ich benutze oo 1.1 und habe bei Calc ein kl. Problem:

In der Zeile A1 bis AE 1 eines Tabellenblattes stehen als Wochentage aufgelistet (mo., di. mi., etc..) die einzelnen Tage eines Monats( 1. bis 31.)

Wie gelingt es mir, per makro links neben jedem Montag eine Leerspalte einzufügen?

Danke im voraus für Hilfe.


Hermann