VBA verbundene Zellen

[schauan]

Hallo Günter,
Dann kennen wir unterschiedliche Entscheider...

[Rabe]

Hi,

Ich darf das Blatt nicht verändern.

woran sieht der Entscheider, daß das Blatt verändert wurde?

Wenn der Inhalt der verbundenen Zellen nicht mehr mittig über allen verbundenen Zellen steht.

Wenn Du es hinbekommst, daß der Inhalt von BK14 trotz nicht verbundener Zellen mittig über dem Bereich von BK14:BW14 steht, es also optisch keinen Unterschied gibt, dann ist das Problem doch gelöst.

Also:

1. Markieren der Zellen BK14:BW14
   
2. Rechtsklick
   
3. "Zellen formatieren..."
   
4. Register "Ausrichtung"
   
5. "Horizontal"
   
6. "über Auswahl zentrieren"
   
7. OK

Nun hast Du das Problem beseitigt und kannst ganz normal auf BK14 zugreifen.

[Didi]

Keine Ahnung warum ich nicht verändern darf.
Eventuell wird die Seite später einmal verschickt und ausgewertet.
Ich habe aber einen Weg gefunden.
Einfach auf einen freien Bereich der Datei alle erforderlichen Felder mit  =  kopieren.
Dann ist BK keine verbundene Zelle und es klappt alles.

Da wenn alles Fertig ist das Blatt  KW  52 mal kopiert wird habe ich ein neues Problem.
Mein Rechner arbeitet wie früher mein C64.
Es sind einfach zu viele Daten bzw. Zellen welche hin und her bewegt werden.

Da das Kopieren eines neuen Eintrag bestimmt eine Minute dauert muss ich mir was neues einfallen lassen.

Mein neuer Gedanke ist das es nur einen KW Zettel gibt.
Unterhalb des Zettels wird es Buttons geben welche den KW Zettel als *pdf und als eigenständige *xls speichert.
Danach so der Zettel geleert werden und die KW um 1 erhöht werden.

Bin mir aber noch nicht sicher ob das machbar ist.
Wenn doch dann bitte gerne ein paar Info`s wonach ich suchen muss.

Dieter

[Käpt'n Blaubär]

Hallo,

Bin mir aber noch nicht sicher ob das machbar ist.
Wenn doch dann bitte gerne ein paar Info`s wonach ich suchen muss.

... ganz sicher ist das machbar. Und wenn ich Dich richtig verstanden habe, dann Google mal
mit dem Zauberwort: excel vorlagen

[schauan]

Hallöchen,
Den Code zum speichern und leeren kannst du sicher aufzeichnen. Bei der Zahl nimmst du einfach im Prinzip wie bei deinem Daten übertragen Zelle = Zelle. + 1

[Didi]

Ich habe mir für alles was ich brauche zunächst einzelne Buttons erstellt.
Jeder Button macht was er soll.

Nun will ich die Funktion der einzelnen Buttons Stück für Stück in einem Zusammen fassen.

Bei einer Funktion komme ich aber nicht weiter.

Code:

Private Sub CommandButton27_Click()
Sheets("Vorlage").Select
Dim wsAct As Worksheet
Dim strBlattname As String

Set wsAct = Worksheets("Vorlage")
strBlattname = InputBox("Geben Sie bitte den Blattnamen ein:")

If strBlattname <> "" Then
 wsAct.Copy After:=Sheets(Sheets.Count)
 Sheets(Sheets.Count).Name = strBlattname
End If


End Sub

Dieser Button wird erweitert mit

ActiveSheet.Previous.Select

Dann bin ich auf dem Blatt vor dem neu erstellten.
Das konnte ich sehen da ich div. Stop  in den code gesetzt habe. :19:
Setze ich nun den Befehl um das aktuelle Blatt (also das vor dem neuen) zu löschen so wird mir das Blatt "Vorlage" gelöscht.
Ich bin auch schon mehrfach zwischen den Blättern hin und her gesprungen um sicher das richtige Blatt zu haben.
Es wird immer die Vorlage gelöscht.

Wo liegt hier mein Fehler ?

Dieter

[Steffl]

Hallo Dieter,

meistens ist es unnötig ein Tabellenblatt zu selektieren, bevor man es löscht. Versuche es mal so

Code:

Worksheets(Worksheets.Count - 1).Delete

[Didi]

Die Welt könnte so einfach sein wenn man wüste was man macht.

Es klappt.

Danke

[Didi]

Neuer Button, neues Problem.

Der Button ist hinterlegt mit

Code:

ThisWorkbook.Worksheets("KW1").Copy
   Application.DisplayAlerts = False
   
   Dim strDate
   strDate = Now
 
 ActiveWorkbook.SaveAs "C:\Backup\" & Format(Range("A50")) & " " & Format((Date)) & ".xlsx"
ActiveWorkbook.Close Fals

Läuft sogar, aber nur wenn das aktuelle Blatt  KW1  ist.

Es soll sich aber immer auf das gerade offene Blatt beziehen.

Um das soweit hin zu bekommen habe ich in Zelle  U90 die Aktuelle KW   und in Feld  A50  das Wort  Wochenzettel stehen.

Für den *pdf Button sieht es so aus

Code:

Private Sub CommandButton25_Click()
' aktivesBlattToPdf()
Dim strFileName
strFileName = "C:\Backup\Wochenzettel"
'anpassen 'oder thisworkbook.path
 
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName & "_" & Range("U90").Value & "_" & Format(Now, "yyyy") & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

Egal wie ich die Formel für die xml verändere, ich bekomme immer wieder Fehler.
Wie muss es richtig aussehen

Dieter

[Steffl]

Hallo Dieter,

wie lautet die Fehlermeldung? Versuche es mal ohne die Extension

Code:

Private Sub CommandButton25_Click()
' aktivesBlattToPdf()
Dim strFileName
strFileName = "C:\Backup\Wochenzettel"
'anpassen 'oder thisworkbook.path

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName & "_" & Range("U90").Value & "_" & Format(Now, "yyyy"), Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _