Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler 6 Überlauf

Laufzeitfehler 6 Überlauf
Yves

Hallo,
ich möchte mit dem folgenden Skript alle Zellen einer Arbeitsmappe mit gleichen Inhalt verbinden. Die Zellen befinden sich in dem Bereich F11:BF298. Ich erhalte leider immer einen Laufzeitfehler 6 Überlauf. Wenn ich den Variablentyp des Zählers als Long definiere, dann bekomme ich einen Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler bei Loop Until.
Wie soll ich den Skript optimieren?
Vielen Dank im Voraus
Windows("Report.xls").Activate
Worksheets("Overview").Activate
Dim rngZelle As Range, intZähler As Integer, strAdresse As String
Application.DisplayAlerts = False
For Each rngZelle In ActiveSheet.UsedRange
If Not (IsEmpty(rngZelle) Or rngZelle.HasFormula) Then
intZähler = 0
Do
strAdresse = rngZelle.Offset(intZähler, 0).Address
intZähler = intZähler + 1
Loop Until rngZelle.Value rngZelle.Offset(intZähler, 0).Value
ActiveSheet.Range(rngZelle.Address, strAdresse).Merge
End If
Next
Application.DisplayAlerts = True

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Unmerged
09.07.2009 20:59:36
Gerd
Hallo Yves,
Zellen verbinden ist so notwendig wie Sand in die Sahara tragen.
Dies verhagelt nur die Zeilen- und Spaltenstruktur.
Nicht benachbarte Zelle kannst Du zudem nicht verbinden.
Beschreibe bitte, was für dich Zellen gleichen Inhalts sind.
Dann kann man denen ggf. eine einheitliche Hintergrundfarbe geben
oder Du sagst uns auch noch, was Du mit diesen Zellen weiter machen
möchtest.
Gruß Gerd
AW: Unmerged
09.07.2009 21:52:04
Yves
Hallo Gerd,
die Arbeitsmappe stellt eine Woche dar. Die Zeilen zeigen die Uhrzeit in 5-minütigen Schritt (288 Zeilen). Als Spalten sind die 7 Wochentage mit jeweils 6 weiteren Spalten abgebildet. Die erste Spalte enthält die Beschreibung eines Termins, die sich abhängig von der Terminsdauer bei den Zeilen entsprechend wiederholt. Die weiteren Spalten eines Wochentages zeigen je nach Spalte Kennzahlen abhängig entweder von dem Termin oder von dem 5-minütigen Schritt. Der Skript muss also die Zellen verbinden, die entweder gleiche Terminbeschreibungen oder gleiche Werte beinhalten.
Gruß
Yves
Anzeige
AW: Unmerged
09.07.2009 22:33:43
Yves
Text:
Hallo Gerd,
die Arbeitsmappe stellt eine Woche dar. Die Zeilen zeigen die Uhrzeit in 5-minütigen Schritt (288 Zeilen). Als Spalten sind die 7 Wochentage mit jeweils 6 weiteren Spalten abgebildet. Die erste Spalte enthält die Beschreibung eines Termins, die sich abhängig von der Terminsdauer bei den Zeilen entsprechend wiederholt. Die weiteren Spalten eines Wochentages zeigen je nach Spalte Kennzahlen abhängig entweder von dem Termin oder von dem 5-minütigen Schritt. Der Skript muss also die Zellen verbinden, die entweder gleiche Terminbeschreibungen oder gleiche Werte beinhalten.
Gruß
Yves
Anzeige
AW: Unmerged
09.07.2009 23:03:58
Gerd
Hallo Yves,
schaue mal, ob Du damit etwas anfangen kannst.
Sub Kleiner_Test_für_Spalte_F()
Dim lngrow, lngFarbe As Long
lngFarbe = vbGreen
For lngrow = 12 To 298
If Not IsEmpty(Cells(lngrow - 1, 6)) And Cells(lngrow - 1, 6).HasFormula = False Then
If Cells(lngrow - 1, 6) = Cells(lngrow, 6) Then
Cells(lngrow - 1, 6).Interior.Color = lngFarbe
Cells(lngrow, 6).Interior.Color = lngFarbe
Else
lngFarbe = IIf(lngFarbe = vbGreen, vbYellow, vbGreen)
End If
End If
Next
End Sub
Gruß Gerd

9 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige