Suchen, Auswählen, Merken, Drucken

[schauan]

Hallo Alex,

Deine Formel holt sich das Datum aber aus B4 oder folgende Zellen.

Für die Breite gibt es am Ende vom Makro Kopieren diese Ergänzung:

Code:

'temporaeres Blatt aktivieren
tmpWsh.Activate
'Spaltenbreite automatisch anpassen  '<-- hier
Cells.EntireColumn.AutoFit           '<-- hier
'Spalte A und B ausblenden
Columns("A:B").EntireColumn.Hidden = True
Next
End Sub

[Alex105]

Hallo Schauan,

vielen Dank dafür :)

Wäre es möglich, dass er mir die Überschriften immer auf den kopierten Daten oben anzeigt?

Also das immer

Key Description Price Your Price Days Price for Days Needed Number Endprice with needed number Select Timeline Timeline start Timeline end

Oberhalbt der Artikel steht? :28: :30:

Danke und Gruß
Alex

[Alex105]

Hallo Schauan,

wir haben ein Problem

also nicht so schlimm und nicht so groß glaube ich.

1. Wenn ich die Zellen sperre und im Anschluss daran kopieren möchte kommt eine Fehlermeldung, dass die Zellen, die ich geschützt habe, nicht kopieren kann.
-Laufzeitfehler 1004: Die HIdden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
-Debugg: .Columns("A:B").EntireColumn.Hidden = False

Ich möchte natürlich mit dem partiellen Sperren der Zellen erreichen, dass nicht jeder Kunde da wild eintragen kann

2. Jetzt erst ist mir aufgefallen, dass du dein Blatt damals auch Setup genannt hast (so wie ich meins auch). Das hat zur Folge, dass

Code:

Cells(2, 1) = .Cells(2, 1) 'Daten aus A2
Cells(3, 2) = .Cells(3, 2) 'Daten aus B3
Cells(4, 1) = .Cells(4, 1) 'Daten aus A4
Cells(4, 12) = .Cells(4, 12) 'Daten aus L4
Cells(6, 1) = .Cells(6, 1) 'Daten aus A6
Cells(8, 1) = .Cells(8, 1) 'Daten aus A8
'In Spalte P (16) bearbeiter und in Spalte Q (17) Datum & Zeit eintragen
.Cells(.Cells(Rows.Count, 16).End(xlUp).Row + 1, 16) = Application.UserName
.Cells(.Cells(Rows.Count, 17).End(xlUp).Row + 1, 17) = Date + Time

nicht in die kopierten Blätter übernimmt. Wenn ich in deinem Code aus Sub Kopieren das "Setup" durch "SetupII" ersetzte kopiert er mir zu viele Daten ein, die ich vorher ausgeblendet habe (Hilfsdaten).

Ich muss zugeben, ich habe mich heute daran versucht, mich anhand deiner (wirklich sehr guten!) Kommentare im Code ran zu hangeln...das es nicht zum gewünschten Erfolg geführt hat erkennst du sicherlich an meiner Bitte nach Hilfe :19:

Viele Grüße
Alex

[schauan]

Hallo Alex,

die Überschriften fügt das VBA-Makro beim Kopieren ein. Damit das in der Schleife nur 1x geschieht, prüfe ich, ob die Zelle C8 auf dem temporren Excel-Blatt leer ist.

Dazu sind folgende Ergänzungen nötig. Ich habe wieder zwei Zeilen davor und danach hier mit dabei.

Code:

'Wenn der Blattname vom temporaeren Blatt <> vom Blatt myWsh ist, dann
    If tmpWsh.Name <> myWsh.Name And myWsh.Name <> "Setup" Then
        'Ueberschrift 1x kopieren                                   '<-- ab hier
        'wenn Zelle C8 auf temporaerem Blatt leer ist, dann
        If tmpWsh.Cells(8, 3) = "" Then
          'aus Zeile 2 kopieren
          .Range("A2:K2").Copy
          'in Zeile 8 auf temporaerem Blatt einfuegen, Bereich ggf. anpassen
          tmpWsh.Paste tmpWsh.Range("A8")
        'Ende wenn Zelle C8 leer ist, dann
        End If                                                       '<-- bis hier
        'Wenn die Summe von Spalte G > 0 ist, dann
        If WorksheetFunction.Sum(.Range("G:G")) > 0 Then

Durch die Änderung können im Makro auch zwei Zeilen code entfallen, denn in die Zeile 8 kommt vor den Daten bzw. vor Ermittlung der ersten freien Datenzeile die Überschrift.

Code:

'"Hilfseintrag" in G8 fuer Ermittling der ersten freien Zeile
Cells(8, 7) = " "

[Alex105]

Hallo Schauan,

ich hab den Bereich nochmal von A2:K2 auf L2:M2 angepasst und läuft super, Danke

Ich kann mein "Setup-Blatt" gerne in "Input" umbenennen.

Ich bräuchte dann auf dem kopierten Blatt aus "Input":

A6
B6
O6
P6

Zeilen dazwischen ausgeblendet, da Hilfsdaten dahinter sind:

weiter bräuchte ich:
A13--Client:
B13--Kunde soll hier seinen Firmennamen eintragen
N13--Zusatzzeile zu Name des Kunden (für den Fall, dass der Name was länger ist)

A14--Project number:
B14--Kunde soll hier seine Projektnummer eintragen


A15--Adressname
B15--Straße
N15--PLZ
P15--Kontakt vor Ort
Q15--Kommentar vom Kunden

A16--Kundeneingabe
B16--Kundeneingabe
N16--Kundeneingabe
O16--Kundeneingabe
P16--Kundeneingabe
Q16--Kundeneingabe
S16--Kundeneingabe


Sind das zu viele Daten? oder geht das noch? Deine Ideen sind immer Willkommen :100:


Viele Grüße
Alex

[schauan]

Hallo Alex,

Die Übernahme der Daten geht nach dem gleichen Strikmuster wie bereits verwendet -Auszug:
'Daten aus Setup uebernehmen

Code:

With Sheets("Setup")
Cells(2, 1) = .Cells(2, 1) 'Daten aus A2
Cells(3, 2) = .Cells(3, 2) 'Daten aus B3

Dann kommen Daten aus Zeile 6 dazu.
Wenn Du dann noch Daten aus den Zeilen 13-16 auf dem Kundenblatt haben willst, ist die Frage, wohin? Auch in Zeile 13-16?
Oder meinst Du mit "ausgeblendet", dass die Daten unter die aus Zeile 6 in Zeile 7-10 sollen? Dann müssten auch die kopierten Daten weiter unten eingefügt werden.

Der Blattname Input ist auch möglich, da müssen aber in den Makros alle "Setup" in "Input" umbenannt werden. Das geht mit Suchen & Ersetzen, links sind dort Optionen, u.a. für das gesamte Projekt bzw. bisher reicht bei uns auch für das Modul.

[Alex105]

Hallo Schauan,

ich meinte, dass ich Hilfsdaten innerhalb von C-M habe, die ausgeblendet sind und beim kopieren nicht übertragen werden dürfen, sonst tauchen Sie oberhalb der vom Kunden kopierten Daten auf.

Naja, die Frage wäre, ob wir es hinbekommen, dass er auf der Kopie die daten die ich eben ansprach oben einfügt (unterhalb des Logos) und die Auswahl vom Kunden darunter?

Oh, heißt das, es gibt das Wort "Setup" mehr als ein Mal? Das würde mir erklären, warum er mir immer die Formatierung zerschossen hat.....

Tut mir leid, dass ich immer noch eine Rückfrage habe

Viele Grüße
Alex

[schauan]

Hallo ALex,

in Deiner Musterdatei war kein Logo drin - wie groß ist denn das bzw. welche Zeile ist denn die daunter?
Kommen dann nur die Daten rein, die Du neu aufgeschrieben hast oder auch noch die, die schon im code stehen?

Mit dem Setup war nicht korrekt - das darf nicht auf Modulebene ersetzt werden, sondern nur auf Makroebene im Makro Kopieren. Dazu kann man den Cursor in dieses Makro setzen und dann mit der entsprechenden Option das Suchwort ersetzen.
Beim Speichern gibt es noch das PageSetup, dass sollte besser nicht PageInput heißen. Wenn Du meinen Tip befolgt hast, dann ist es jetzt wohl so :16:

[Alex105]

Hallo Schauan

ich hab das Projekt durchsucht und habe mir sowas schon gedacht. Es gibt "nur" zwei Mal das Wort "Setup" welches ersetzt werden muss.

Also, schön wäre, wenn das kopierte ding so aussieht (denk dran, A&B sind nach der Kopie ausgeblendet)

C1 = "Logo"

A6--B6--O6--P6 (Stehen in der Reihenfolge im "Setup")
C7--D7--F7--G7 (müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_______

B7--N7 (Stehen in der Reihenfolge im "Setup")
D8--E8 (müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_______

A8--B8--N8 (Stehen in der Reihenfolge im "Setup")
C9--E9--D9 (müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_______

A9--B9--N9 (Stehen in der Reihenfolge im "Setup")
C10--D10--E10 (müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_______

A10--B10--N10 (Stehen in der Reihenfolge im "Setup")
C11--D11--E11 (müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_____

A11--B11-N11 (Stehen in der Reihenfolge im "Setup")
C12--D12--E12 (müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_____

A13(Stehen in der Reihenfolge im "Setup")
C14(müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_____

A14(Stehen in der Reihenfolge im "Setup")
C15(müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)
_____

A15--B15--N15--O15--P15(Stehen in der Reihenfolge im "Setup")
A16--B16--N16--O16--P16(müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)

C16--D16--E16--F16--G16--G17(Stehen in der Reihenfolge im "Setup")
C17--D17--E17--F17--G17--H17(müssen da starten, da A&B ausgeblendet wurden müssen wir die Daten hier hin verschieben verschieben)

Somit können die eigentlichen Artikel erst bei C19 beginnen

Wenn du möchtest, schicke ich dir zur Verdeutlichung nochmal die Originaltabelle

Danke, Schauan!!!!

Gruß
Alex

[schauan]

Hallo Alex,

kannst Die Tabelle noch mal schicken - mit dem Logo
Ich fange mal inzwischen an.