Angebot mit Excel erstellen ? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Angebot mit Excel erstellen ?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2, 3 Weiter

Autor

Nachricht

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 09.08.2008, 18:17

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 10.08.2008, 08:24

Hey, super, das funktioniert Smile

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 10.08.2008, 10:18

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

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 10.08.2008, 18:43

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 Smile

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 10.08.2008, 18:49

Hallo!

Bau doch einfach noch eine Abfrage ein:

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

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 10.08.2008, 22:36

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

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 10.08.2008, 22:55

So, konnte doch nicht abwarten Smile

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

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 10.08.2008, 23:21

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 11.08.2008, 11:09

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

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 11.08.2008, 11:16

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 11.08.2008, 11:25

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"

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 11.08.2008, 21:15

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 Smile

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 11.08.2008, 21:28

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.

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 11.08.2008, 21:31

Was heißt "ins Modul des Angebotsblatts" ? Denk dran, ich kan zwar alles halbwegs umsetzen, habe aber nicht wirklich Ahnung von den Begriffen Smile

Wo muss ich den Code einbauen ?

Sorry Smile

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 11.08.2008, 21:34

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.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2, 3 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel Tabellenzeilen in Spalten umwan...	robbe	Microsoft Excel Hilfe	4	21.11.2008, 13:52
	Excel erkennt "Format$" sei...	timi	Microsoft Excel Hilfe	0	21.11.2008, 13:39
	Korrektes Format für Zeit bzw. Stunde...	Simon Excel	Microsoft Excel Hilfe	2	21.11.2008, 09:06
	Excel Tabelle in Word	lizzi	Microsoft Word Hilfe	0	20.11.2008, 14:17
	Eine Auswahlliste mit Verknüpfung zu ...	anscfz06	Microsoft Excel Hilfe	4	19.11.2008, 22:36

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de