Ich habe mich in diesem Forum neu angemeldet weil ich
auf OOffice umgestiegen bin... Habe keine Lust mehr auf
MSWord... Meine Klassenkameraden haben OO auch und die
sagen alle durch die Bank weg, es wäre das Beste und so weiter...
Bei der Googlesuche habe ich herausgefunden, dass OOffice Probleme
damit hat mit VBA-Makros umzugehen. Alle sagen, mann müsste es
neu schreiben!
Ehrlich gesagt, will ich das auch...
Aber im Netz finde ich weder etwas über die Syntax noch Beispiele
wie man das Kompatibel bekommt...
Ich poste mal auf Verdacht meinen VBA-Code hier hinein,
in der Hoffnung, dass ihr mir etwas dabei helfen könnt...
Ihr sollt es nicht machen, nur sagt mir was ich beachten muss,
damit ich das selbst machen kann...
Code: Alles auswählen
Private Sub PostenNeu_Click()
With Sheets(" Angebote ").Range("D18:D117")
Do 'nächste Zeile einblenden
.Select
Loop While ActiveCell.RowHeight = 0
Do 'nächste Zeile einblenden
'Wenn der Artikel nicht leer ist...
If IsEmpty(ActiveCell) Then
MsgBox Title:=" Kein Artikel ausgewählt ", Prompt:="Bitte wählen Sie aus der Liste einen Artikel aus den Sie der Rechnung hinzufügen."
ActiveCell.Select
ElseIf ActiveCell.Offset(1, 0).RowHeight = "15,25" Then
MsgBox "Sie können keine neuen Artikel anlegen!"
Sheets(" Angebote ").Range("D117").Select
Exit Do
Else:
Sheets(" Angebote ").Unprotect ("...")
ActiveCell.Offset(1, 0).RowHeight = 15
ActiveCell.Offset(1, 0).Select
Sheets(" Angebote ").Protect ("...")
End If
Loop While Not IsEmpty(ActiveCell)
End With
End Sub
Private Sub PostenLoe_Click()
Sheets(" Angebote ").Unprotect ("...")
'Alle Angeben löschen
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ""
ActiveCell.Offset(0, -1).Select
Sheets(" Angebote ").Protect ("...")
If ActiveCell.Offset(-1, 0).RowHeight = "15,25" Then
'Message
Else:
Sheets(" Angebote ").Unprotect ("...")
'Zeile wieder ausblenden
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ""
ActiveCell.RowHeight = 15
ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(-1, -1).Select
Sheets(" Angebote ").Protect ("...!")
End If
End Sub
Private Sub Speichern_Click()
'Und drucken!
ActiveSheet.PrintOut
Sheets(" Angebote ").Unprotect ("...")
'Nach ausgewähltem Namen suchen
With Sheets(" Angebote ").Range("B3:U3")
Set Suchwort = .Find(Sheets(" Angebote ").Range("B3:U3").Value, LookIn:=xlValues)
End With
'Namen vergleichen
With Sheets("DAT-Kundenliste").Range("A1:A65536")
Set Mcase = .Find(Suchwort, LookIn:=xlValues)
'Wenn er gefunden wurde, Prozedur starten
If Not Mcase Is Nothing Then
Sheets("DAT-Kundenliste").Activate
'Rechnungsnummer um eins erhöhen
Sheets("DAT-Kundenliste").Range("M2").Select
rn = ActiveCell.Value
neurn = rn + 1
ActiveCell.Value = neurn
'Die Übersicht schreiben
Firma = Sheets(" Angebote ").Range("B3").Value
KN = Sheets(" Angebote ").Range("Y9").Value
rn = Sheets("DAT-Kundenliste").Range("M2").Value
Rvom = Sheets(" Angebote ").Range("Y15").Value
Betrag = Sheets(" Angebote ").Range("Z120").Value
Sheets(" Übersicht ").Activate
Sheets(" Übersicht ").Rows("2:2").Select
Selection.Insert Shift:=xlDown
Sheets(" Übersicht ").Rows("3:3").Select
Selection.Copy
Sheets(" Übersicht ").Rows("2:2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(" Übersicht ").Range("A2").Offset(0, 0).Value = Firma
Sheets(" Übersicht ").Range("A2").Offset(0, 1).Value = KN
Sheets(" Übersicht ").Range("A2").Offset(0, 2).Value = rn
Sheets(" Übersicht ").Range("A2").Offset(0, 3).Value = Rvom
Sheets(" Übersicht ").Range("A2").Offset(0, 4).Value = Betrag
Sheets(" Übersicht ").Range("A2").Offset(0, 5).Value = ""
Sheets(" Übersicht ").Range("A2").Offset(0, 6).Value = Betrag
Sheets(" Übersicht ").Range("A1").Select
'Wieder zurück auf die Angebotsseite und löschen
Sheets(" Angebote ").Activate
Sheets(" Angebote ").Range("D18:Z117").Value = ""
Sheets(" Angebote ").Range("D19:Z117").RowHeight = 0
Sheets(" Angebote ").Range("D18").Select
'Wenn nicht; auch egal! ^^
Else: MsgBox "Sorry, konnte Kunden nicht finden..."
End If
End With
Sheets(" Angebote ").Protect ("...")
End Sub
ich hab alle Zeit der Welt...
Ich würde mich freuen, wenn mir jemand helfen würde!
Vielen Dank,
maiskolben