von Lupo_12_67 » Fr, 03.06.2011 17:24
Hallo zusammen,
habe mir eine Datenbank in Excel mit folgendem VBA erstellt um Produktionssteuerung zu kontrollieren, jetzt habe ich ein VBA mit dem ich etwas anfangen kann, nun will ich das ganze in OpenOffice umsetzen da wir an verschiedenen Orten Arbeiten.Das ganze funktioniert so:
Ich habe zwei Tabellen eine mit "Aktuell" die andere mit "Erledigt" und jeweils 11 Spalten mit verschieden Daten wie Auftragsnummer, Bezeichnung, Kunde etc.. Die Datenbank sollte so funktionieren: wenn ich "ja" eingebe in Spalte J egal welche Zelle dann verschiebt er die ganze Zeile nach Tabelle2 und fügt es ans Ende der Liste an ohne dass er die vorherigen Einträge ändert oder sogar löscht sonst gehen Produktionsdaten verloren.
Geht das mit einem Makro? Wenn ja wie, mit Excell ist das ganz gut geworden aber wir benötigen jetzt OpenOffice und ich bin da nicht so ganz Fit.
Hier mal das VBA von Excel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:J")) Is Nothing Then
If Intersect(Target, Range("J:J")).Cells.Count = _
WorksheetFunction.CountIf(Intersect(Target, Range("J:J")), "ja") Then
With Range("J:J")
On Error Resume Next
With .Resize(.Rows.Count - 1).Offset(1).ColumnDifferences(.Find("")).EntireRow
.Copy Tabelle2.Cells(Rows.Count, 17).End(xlUp).Offset(1, -16)
.Delete
End With
On Error GoTo 0
End With
End If
End If
End Sub
Wäre Super wenn mir irgendwer Helfen könnte bin schon am verzweifeln.
Hallo zusammen,
habe mir eine Datenbank in Excel mit folgendem VBA erstellt um Produktionssteuerung zu kontrollieren, jetzt habe ich ein VBA mit dem ich etwas anfangen kann, nun will ich das ganze in OpenOffice umsetzen da wir an verschiedenen Orten Arbeiten.Das ganze funktioniert so:
Ich habe zwei Tabellen eine mit "Aktuell" die andere mit "Erledigt" und jeweils 11 Spalten mit verschieden Daten wie Auftragsnummer, Bezeichnung, Kunde etc.. Die Datenbank sollte so funktionieren: wenn ich "ja" eingebe in Spalte J egal welche Zelle dann verschiebt er die ganze Zeile nach Tabelle2 und fügt es ans Ende der Liste an ohne dass er die vorherigen Einträge ändert oder sogar löscht sonst gehen Produktionsdaten verloren.
Geht das mit einem Makro? Wenn ja wie, mit Excell ist das ganz gut geworden aber wir benötigen jetzt OpenOffice und ich bin da nicht so ganz Fit.
Hier mal das VBA von Excel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:J")) Is Nothing Then
If Intersect(Target, Range("J:J")).Cells.Count = _
WorksheetFunction.CountIf(Intersect(Target, Range("J:J")), "ja") Then
With Range("J:J")
On Error Resume Next
With .Resize(.Rows.Count - 1).Offset(1).ColumnDifferences(.Find("")).EntireRow
.Copy Tabelle2.Cells(Rows.Count, 17).End(xlUp).Offset(1, -16)
.Delete
End With
On Error GoTo 0
End With
End If
End If
End Sub
Wäre Super wenn mir irgendwer Helfen könnte bin schon am verzweifeln.