Bestimmte Anzahl an Zeilen und Spalten einblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Esther,
Excel "spuckt" immer bei verbundenen Zellen wie hier im untersten, rot markierten Bereich. Hebe bitte als erstes den Verbund auf, sonst hängt das Makro....
Ich kann Dir Deine Datei nicht wieder ins Netz stellen, weil naturgemäß alle "Verbindungen" zerschossen sind.
Anbei eine Datei mit einem einzelnen Tabellenblatt, das Du in Deine Datei kopieren kannst. Dieses Blatt ist für "interne Daten" gedacht, die der Anwender ja nicht unbedingt sehen muß: es läßt sich ja verstecken: https://www.herber.de/bbs/user/99554.xlsm
Hier sind jedenfalls zwei Buttons, denen Du bitte die jeweilige Sub zuordnest, und zwar aus dem folgenden Code, der in ein Modul gehört:

Option Explicit
Sub zeilen_einfuegen(ByVal n As Long)
Dim wo As Variant
Dim i&, zeilen&, ab&
With Sheets("Interne_Daten")
wo = .Range(.Range("C1").Value)
End With
Stop          ' weiter mit F5 oder F8
Sheets("Summary").Activate
For i = UBound(wo) To LBound(wo) Step -1
'*  Zeilen löschen/einfügen ******
If n  wo(i, 3) Then
'       MsgBox "Zeilen einfügen"
'       Stop
zeilen = wo(i, 1) - wo(i, 2) + n
ab = wo(i, 2) - 1
Rows(ab & ":" & ab + zeilen - 1).Insert
End If
End If
'*  Zeilen löschen/einfügen ******
'*  Daten kopieren + einfügen ******
Sheets("Startseite").Range("K38").Resize(, n).Copy
Range("B" & wo(i, 1)).PasteSpecial Paste:=xlPasteValues, _
Transpose:=True
If i  63 Then Stop
If Sheets("Summary").Range("A" & i).Value  "" Then
If Mid(Sheets("Summary").Range("A" & i).Value, 1, 1) = "B" Then
Sheets("Interne_Daten").Range("C" & z) = i
aus = aus & Sheets("Summary").Range("A" & i).Value
End If
If Mid(Sheets("Summary").Range("A" & i).Value, 1, 1) = "E" Then
Sheets("Interne_Daten").Range("D" & z) = i
aus = aus & ":" & Sheets("Summary").Range("A" & i).Value
Sheets("Interne_Daten").Range("B" & z) = aus
Sheets("Interne_Daten").Range("E" & z).FormulaLocal = "=D" & z & "-C" & z
aus = ""
z = z + 1
End If
End If
Next
Sheets("Interne_Daten").Range("C1") = "C3:E" & z - 1
End Sub

Und: weil alles, was mit Makro passiert, nicht rückgängig zu machen ist, leg zuvor ne Kopie der Daten an - oder TESTE MIT EINER KOPIE.
Happy Exceling,
Michael

Esther,
den anderen Thread hatte ich nebenbei auch gesehen, mich aber nicht dazu geäußert.
Naja, eine Geschichte wollte ich noch loswerden: ich habe meinen Lösungsansatz bewußt nicht in Dein "aufrufendes Makro" eingearbeitet, damit Du Dich in die Einzelteile reindenken kannst.
Noch wichtiger finde ich aber, daß solche Ereignisse wie das "Worksheet_Change" wirklich bei fast jedem Tastendruck ausgelöst werden.
Als EDV-Urgestein schmerzt mich die Rechenleistung, die dabei verbraten wird, aber darum geht es nicht, denn "die Kiste" ist auch mit der Ereignisbehandlung schneller als unsere Eingaben.
Es geht vielmehr um den Büroalltag, wo andauernd das Telefon klingelt, Kollegen mit irgendwas nerven usw., und wenn Du bei Deiner Geschichte "eine falsche Taste drückst" (oder die Azubine mal schnell probiert, was passiert, wenn man in der Box den Wert von 15 auf 3 setzt), sind alle Deine zuvor gemachten Eingaben schnurstracks wieder gelöscht. (*)
Ich mag natürlich auch keine Kaskaden von Sicherheitsabfragen, aber überleg Dir mal, ob Du nicht auf das Worksheet_Change verzichtest und einen Button neben Dein Listenfeld machst: dann ist die Auswahl der Zahl eine Sache und die Ausführung des Makros eine andere - und es wird eben nur dann ausgeführt, wenn man es wirklich beabsichtigt.
Schöne Grüße,
Michael
(*) Jetzt fällt mir noch ein Lösungsansatz ein: man könnte Deine "summary" als eine Art Formular gestalten, in dem z.B. nur die B-Markierungen gesetzt sind, und aus dem man via Makro dann bei jedem Makro-Aufruf ein weiteres Blatt erzeugt, in dem das Formular mit Daten versehen wird. Das ist bis auf ein bißchen Schreibarbeit nicht komplizierter zu programmieren, und Du hast den Vorteil, daß einmal errechnete summaries (Speichern etwa mit sum1, sum2 oder sum150815 oder s_Projekt5 usw.) nicht wieder überschrieben werden, sondern weiterhin zur Verfügung stehen.

Beliebteste Forumthreads (12 Monate)

Bestimmte Anzahl an Zeilen und Spalten einblenden

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Anzahl an Zeilen und Spalten einblenden

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread