Office: Angebot mit Excel erstellen ?

Hallo!

Teste mal diesen Code:

Code:

Sub BlattKopieren()
Dim Mappe As Workbook
Set Mappe = Workbooks.Add
With Mappe
ThisWorkbook.Sheets("Tabelle1").Copy After:=.Worksheets(Worksheets.Count)
Application.DisplayAlerts = False
Do While .Sheets.Count > 1
.Sheets(1).Delete
Loop
Application.DisplayAlerts = True
End With
End Sub

 

Hey, super, das funktioniert :-)
Du hast echt was drauf... Wie geht´s Dir eigentlich ? Schon wieder fit ?

Wenn ja, hast Du vielleicht auch noch die Lösung für das letzte Problem mit den leeren Zeilen in der Angebotsseite. Ich habe eine Eingabeseite mit ca. 20 Zeilen für die Extras und übertrage die Eingaben dann auf das Angebotsformular. Wenn ich aber nicht alle Zeilen ausnutze, bleiben die Zeilen im Formular leer. Wie bekomme ich die weg ?

Viele Grüße

Doogie

 

Hallo!

Leider schreibst du nicht, um welche Zeilen und Spalten es sich handelt.
Daher hier ein (ungetestetes) Beispiel mit fiktiven Werten:

Code:

Sub BlattKopieren()
Dim Mappe As Workbook, i As Long, ErsteZeile As Long, LetzteZeile As Long
Set Mappe = Workbooks.Add
With Mappe
ThisWorkbook.Sheets("Tabelle1").Copy After:=.Worksheets(Worksheets.Count)
Application.DisplayAlerts = False
Do While .Sheets.Count > 1
.Sheets(1).Delete
Loop
ErsteZeile = 24
LetzteZeile = 45
For i = LetzteZeile To ErsteZeile Step -1
'Hier werden nun alle Zellen in Spalte Nr. 8 (also Spalte H)
'geprüft, ob sie einen Eintrag haben. Falls nicht, werden sie gelöscht.
If .Sheets(1).Cells(i, 8) = "" Then .Sheets(1).Rows(i).Delete
Next i
Application.DisplayAlerts = True
End With
End Sub

 

Dankeschön, ich werds morgen ausprobieren, heute schaffe ich es nicht mehr.
Aber ich denke mir, es wird nicht funktionieren, da die Zellen nicht "ganz leer" sind. Durch die Übergabe aus dem Eingabeformular stehen in den Zeilen, die im Eingabeformular mit dem Dropdown ausgewählt werden sollen eine "0" und in den Preisspalten, die per SVERWEIS ausgelesen werden ein "#NV". dazu kommt noch die Spalte mit der Menge des ausgewählten Artikels, die steht entsprechend auf "0"...

Was tun ? Ich habe die Werte für das Angebotsschreiben z.B. ganz simpel mit "=Tabelle1!A2" übertragen. Als Excel-Anfänger wusste ich nichts besseres...

Ich bin aber auch anstrengend :-)

 

Hallo!

Bau doch einfach noch eine Abfrage ein:

=WENN(Tabelle1!A2="";"";Tabelle1!A2)
oder auch beim SVERWEIS:
=WENN(D6="";"";SVERWEIS(D6;...

 

Ich bin leider noch nicht zum testen gekommen, aber was bedeutet das "";"" ??

 

So, konnte doch nicht abwarten :-) - Das mit den Feldern leermachen funktioniert, das Makro muss ich noch testen.
Unglaublich, was da so alles möglich ist, da bekommt man ständig Lust auf mehr ...

Kann man eigentlich Variablen setzen, die mitten im Satz aufgerufen werden können ? z. B. im Formular habe ich Felder für den oder die Namen der Kunden sowie die Anrede auszuwählen. Kann ich diese Auswahl auf Variablen übertragen, die ich dann im Anschreiben (Sehr geehrte Frau ..., sehr geehrter Herr ...) wieder aufrufe ? wahrscheinlich eine sehr simple Sache, aber wenn man die Excel Hilfe aufruft, möchte man am liebsten gleich wieder mit dem Vorhaben aufhören...

 

WOW ! Makro getestet, es funktioniert !!! Ich kann es kaum glauben, das hätte ich ohne Dich nie hin bekommen !

Jetzt noch die Sache mit den Variablen für Namen und Anreden und gerade frage ich mich, ob man innerhalb einer Zelle einen Zeilenumbruch ab einer bestimmten Anzahl von Zeichen erwirken kann ? Bei bestimmter Auswahl passt der Text nämlich entweder nicht in die Zelle oder eben nicht mehr alles auf die Seite...

 

Hallo!

Angenommen, in F6 steht "Frau", bzw. "Herr" und in F8 steht "Meier" oder "Müller".
Dann ergibt diese Formel die Anrede "Sehr geehrte Frau Meier" oder "Sehr geehrter Herr Müller":

="Sehr geehrte"&WENN(F6="Frau";" ";"r ")&F6&" "&F8

 

Dankeschön !

Wärst Du so nett und würdest noch mal einen Blick auf das Problem mit dem Zeilenumbruch werfen ? Ich habe teilweise eine so lange Info zum Artikel unterzubringen, dass locker 2 Zeilen gefüllt werden würden.
Kann man einen Umbruch innerhalb der Zeile erwirken ???

Viele Grüße

Doogie

 

Hallo!

Dazu musst du zunächst im Zellformat den Zeilenumbruch aktivieren.
Einen manuellen Umbruch innerhalb einer Formel kannst du so einfügen:

="Dies ist Zeile 1"&ZEICHEN(10)&"Dies ist Zeile 2"&ZEICHEN(10)&"Dies ist Zeile 3"

 

So, ich bin inzwischen weiter, habe auch alle Daten bereits erfasst.

Der Zeilenumbruch macht aber immer noch ein Problem: Bei der Übernahme von der einen Tabellenseite mit den Dropdown-Feldern auf die Angebotsseite erscheint nur der Teil der Beschreibung, der in der zweiten Zeile stehen würde. Wenn ich dann einmal auf -Format-Zellen-Zeilenumbruch gehe und das Häkchen weg mache und wieder anklicke und bestätige, dann wird alles korrekt dargestellt. ???

In der Artikelliste habe ich ohne Zeilenumbruch gearbeitet und in den Dropdown-Auswahlfeldern mal mit, mal ohne. Macht keinen Unterschied, immer das gleiche Problem...

Was tun ? Ansonsten ist alles prächtig :-)

 

Hallo!

Das dürfte daran liegen, dass die Zeilenhöhe nicht automatisch angepasst wird.
Das könntest du aber per VBA beim Aktivieren des Angebotsblatts ausführen lassen:

Code:

Private Sub Worksheet_Activate()
Dim Zeile As Range
For Each Zeile In UsedRange.Rows
Zeile.AutoFit
Next Zeile
End Sub

Der Code gehört ins Modul des Angebotsblatts.

 

Was heißt "ins Modul des Angebotsblatts" ? Denk dran, ich kan zwar alles halbwegs umsetzen, habe aber nicht wirklich Ahnung von den Begriffen :-)
Wo muss ich den Code einbauen ?

Sorry :-)

 

Hallo!

Im VBA-Editor findest du im Fenster links oben deine Mappe mit allen Blättern. Doppelklicke das entsprechende Blatt und füge den Code ins Codefenster rechts ein.