Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Immer noch kommt hin und wieder ein Fehler

Forumthread: Immer noch kommt hin und wieder ein Fehler

Immer noch kommt hin und wieder ein Fehler
04.12.2018 11:45:00
Stefan
Ich habe dank eurer Hilfe hier ein Ereignis, welches mir in bestimmten Zellbereichen meine leeren Zeilen ausblendet. Das klappt meistens auch ganz gut. Allerdings kommt es hin und wieder zu einem Fehler im Range (Wird gelb dort markiert) und ich weiss einfach nicht warum. Wenn ich nur einen Bereich eingebe (B14:B20 zb) dann kommt nie ein Fehler.
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
'Ausblenden bzw Zeilenhöhe minimal einstellen von Zeilen, die nicht verwendet werden
Dim Zelle As Range
ActiveSheet.Unprotect Password:="mueller"
With Application
.Calculation = xlCalculationManual
For Each Zelle In Range("B15:B22,B24:B31,B33:B40,B42:B49,B51:B58,B60:B67").Cells
Zelle.EntireRow.RowHeight = 0.5 - 14.5 * (Zelle > 0)
Next Zelle
.Calculation = xlAutomatic
End With
ActiveSheet.Protect AllowInsertingHyperlinks:=True, userinterfaceonly:=True, AllowSorting:= _
False, DrawingObjects:=True, AllowFiltering:=False, Contents:=True, Password:="mueller"
ActiveSheet.EnableOutlining = True
Set Zelle = Nothing
Application.ScreenUpdating = True
End Sub

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Immer noch kommt hin und wieder ein Fehler
04.12.2018 12:34:13
Luschi
Hallo Stefan,
genau das ist ein altes Kriegsleiden von Excel, wenn es zu viele Einzelbereiche gibt,
deshalb löse ich das Problem so: 

Dim zelle As Range, rgBer As Range, vArr As Variant, sBer As String, i As Integer
'Berreich als Text festlegen
sBer = "B15:B22,B24:B31,B33:B40,B42:B49,B51:B58,B60:B67"
'Array erstellen
vArr = Split(sBer, ",", -1, vbTextCompare)
'jeden Arraywert zu einem Range-Bereich zusammenbauen
For i = LBound(vArr) To UBound(vArr)
If rgBer Is Nothing Then
Set rgBer = Range(vArr(i))
Else
Set rgBer = Union(rgBer, Range(vArr(i)))
End If
Next i
Debug.Print rgBer.Address
For Each zelle In rgBer.Cells
zelle.EntireRow.RowHeight = 0.5 - 14.5 * (zelle > 0)
Next zelle
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Immer noch kommt hin und wieder ein Fehler
04.12.2018 13:33:13
Sven
Hey Luschi,
deinen code probiere ich auch mal. Scheint bislang zu keinen Fehlern zu kommen. Allerdings ist der nicht so "zackig", wie der von mir. Funktioniert allerdings ....bislang ;)
Merci erstmal ;)
AW: Immer noch kommt hin und wieder ein Fehler
04.12.2018 16:16:31
Luschi
Hallo Sven/Stefan,
was nützt der zackigste Vba-Code, wenn er immer wieder mal einem Aussetzer aus unersichtlichen Gründen produziert. Bin gerade vorige Woche in Excel 2013/19 darüber gestolert - deshalb der kleine Umweg üver Array/Split und Union, und sollte es kein erkennbares Blockmuster geben für 'Step', bleibt einem wohl nicht anderes übrig.
Gruß von Luschi
aus klein-Paris
Anzeige
2 Bereiche hinzugefügt-kein Fehler bei mir- oT
04.12.2018 12:47:09
robert
anderer Ansatz
04.12.2018 13:06:40
Rudi
Hallo, 
    Dim i As Integer, zelle As Range
For i = 15 To 60 Step 9
For Each zelle In Cells(i, 2).Resize(8)
zelle.EntireRow.RowHeight = 0.5 - 14.5 * (zelle > 0)
Next zelle
Next i

Gruß
Rudi
AW: anderer Ansatz
04.12.2018 13:26:19
Sven
Rudi, ich benötige eben genau diese Bereiche, da ich nicht möchte, dass die anderen Zeilen, die in meinem Bereich ausgespart sind und in denen in der zelle auch nichts drinnen steht, nicht in ihrer Höhe verändert werden.
Der Fehler tritt ja auch nicht immer auf. Nur manchmal.. und genau dann, bringt er den Fehler immer genau am gleichen Fleck.
Anzeige
mein Code durchläuft ....
04.12.2018 13:53:57
Rudi
.... exakt die von dir angegebenen Bereiche
AW: mein Code durchläuft ....
04.12.2018 16:11:07
Luschi
Hallo Rudi,
Dein Ansatz ist für diesen Zweck passend, da immer die selbe Blockgröße. Ist das aber nicht gegeben,
dann gibt es leider Probleme (auch in Excel 2019) mit der Variant Range("B15:B22,K14:F31,...".
Wie der Fragesteller es schon bemerkte. mal läuft's und auch mal wieder nicht; einfach total unbefriedigend. Deshalb mein Umweg über Array und Union.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: mein Code durchläuft ....
04.12.2018 16:46:47
Rudi
Hallo,
ein Ansatz für unregelmäßige Blöcke/ Abstände: 
Sub aaaa()
Dim arrRow, arrLen, i As Integer, rCell As Range
arrRow = Array(15, 24, 36, 45)
arrLen = Array(6, 9, 7, 8)
For i = LBound(arrRow) To UBound(arrRow)
For Each rCell In Cells(arrRow, 2).Resize(arrLen)
'mach was
Next rCell
Next i
End Sub

Gruß
Rudi
Anzeige
AW: anderer Ansatz
04.12.2018 14:05:05
Sven
Rudi das stimmt, habe ich überlesen den Step - Der Code läuft - und noch dazu schnell ! Danke

Forumthreads zu verwandten Themen

8Zeilen kopieren und immer wieder einfügen
STeve

Hi liebe Helfer.......habe kleines Problem.
Kopiere 8 Zeilen und möchte diese untereinander mit einer Schleife "einfügen". Das klappt aber mit
Insert Shift:=xlDown
leider nur einmal.
Besten Dank
Sub Zeilenkopierenundeinfuegen() Dim Zeile1 As Integer Zeile1 = 628 Dim Zeile8...
29.01.2020 13:40:48
Thread-ID: 1737302
3 Beiträge
Fehler in der Formel
Baywatch

Hi
ich habe eine Formel und die tut es leider nicht. Wenn ich MIN durch Max ersetze klappt es, aber warum bei min NIcht?
Vielleicht findet jemand den Denkfehler?
{=(BEREICH.VERSCHIEBEN(Daten!$A$1;SUMME(WENN(Daten!D1:D5002=MIN(WENN(Daten!F1:F5002="M"; Daten!D1:D5002;0));ZEILE(Date...
15.08.2008 15:59:00
Thread-ID: 1002235
8 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Bei Fehler schließen verhindern
Wolfgang

Einen guten abend an alle
Ich suche eine Lösung für folgendes Problem:
Ich habe eine Monatstabelle (Tab1 bis31) hier sind Spalten vorgegeben, bzw. werden
durch sverweis gefüllt, in den Tabellen sind nur einige Eingabefelder frei, ansonsten sind
die Tabellen geschützt.
Mein P...
17.12.2008 19:38:53
Thread-ID: 1033686
12 Beiträge
Fehler in der Verkettung der Formel ?
Selma

Hallo Leute,
ich habe in Spalte E und F mit Formeln die Zelleninhalte verkettet. Mit einem Makro markiere ich ab Zeile 3 die Zellen in Spalte E und F und erzeugte eine Datei move.bat die danach ausgeführt wird.
In Spalte E stehen die Ordnername die erstellt werden und in Spalte F die D...
21.12.2008 13:20:00
Thread-ID: 1034590
2 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
wo ist mein fehler in der wenn-funktion?
Caro

=WENN(UND(H3="A";K3="A";N3="A");"Top 01";WENN(UND(H3="A";K3="A";N3="B");"Top 02";WENN(UND("h3"="a"; "k3"="a";"n3"="A");"Top 03";WENN(UND("h3"="a";"k3"="b";"n3"="A");"Top 04";WENN(UND("h3"="a"; "k3"="c"; "n3"="A");"Top 05";WENN(UND("h3"="a";"k3"="b";"n3"="b");"Top 06";WENN(UND("h3"="a"; "k3"="c...
26.03.2009 00:16:05
Thread-ID: 1064042
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige