Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei Dim Intervall(1 To Worksheets("Tabelle1

Forumthread: Fehler bei Dim Intervall(1 To Worksheets("Tabelle1

Fehler bei Dim Intervall(1 To Worksheets("Tabelle1
18.10.2007 13:17:45
Roman
Hi Leute,
ich habe eine Ausgangstabelle, zu der aus Access immer neue Werte dazukommen, d.h. die Länge ist variabel. Wie mach ich das mit den Abfragen, weil bei dem Durchlaufbefehl "Dim Intervall(1 To Worksheets("Tabelle1").Length)" will das Programm eine konstante Variabel?
Gruß,
Roman

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Dim Intervall(1 To Worksheets("Tabelle1
18.10.2007 13:36:02
IngGi
Hallo Roman,
ich nehme mal an, das Datenfeld soll entsprechend der Anzahl von Einträgen in z.B. Spalte A dimensioniert werden? Dann z.B. so:

Dim Intervall(1 To 1)
Dim lngLetzte As Long
With Worksheets("Tabelle1")
If .Cells(Rows.Count, 1) = "" Then
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
Else
lngLetzte = .Rows.Count
End If
End With
ReDim Intervall(1 To lngLetzte)

Gruß Ingolf

Anzeige
AW: Fehler bei Dim Intervall(1 To Worksheets("Tabelle1
18.10.2007 15:20:21
Roman
Ok, danke! Schreib ich dann den restlichen Code innerhalb der If und With Schleife oder danach?

AW: Fehler bei Dim Intervall(1 To Worksheets("Tabelle1
18.10.2007 16:25:00
Roman
Funktioniert leider nicht, es kommt bei "ReDim Intervall(1 To lngLetzte)" der fehler, dass das Datenfeld bereits dimensioniert ist

AW: Fehler bei Dim Intervall(1 To Worksheets("Tabelle1
18.10.2007 18:07:00
IngGi
Hallo Romen,
mein Fehler! Laß bei der Deklaration des Datenfeldes die Dimensionierung in den Klammern weg, dann sollte es gehen. Also so:

Dim Intervall()
Dim lngLetzte As Long
With Worksheets("Tabelle1")
If .Cells(Rows.Count, 1) = "" Then
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
Else
lngLetzte = .Rows.Count
End If
End With
ReDim Intervall(1 To lngLetzte)

Gruß Ingolf

Anzeige
Dim Intervall()
18.10.2007 18:08:00
Jan
ot
;

Forumthreads zu verwandten Themen

Makro aus Worksheet über ein Addin ansprechen
Florian

Guten Morgen,
ich habe ein Addin erstellt, dass automatisch eine Symbolleiste erstellt! Alles OK soweit!
1.
Ich möchte über diese Symbolleiste (aus dem Addin) auf einen Code des geöffneten Worksheets zugreifen. Wie kann ich über die Sybolleiste des Addin`s den Code/das Makro des akt...
05.02.2009 08:23:14
Thread-ID: 1047280
2 Beiträge
.jpg-dateien in worksheet per Makro?
Florian

Hallo zusammen,
ist es möglich jpg-Fotos per Makro in einem Worksheet zu speichern? Will eine Art Produktkatalog machen, dh. habe für alle Bestellnummern ein Foto in einem Ordner liegen (Name jeder Datei XXXX.jpg, wobei XXXX = Bestellnummer). Nun will ich jedem Artikel in einer Liste ein Fo...
14.02.2009 15:25:00
Thread-ID: 1050743
2 Beiträge
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Verlassen eines Worksheets verhindern
Frank

Guten Morgen,
ich möchte verhindern, daß das aktive Worksheet "Tabelle 1" verlassen werden kann wenn in Zelle A1 ein Wert 0 steht. Wenn also zum Beispiel der Reiter für "Tabelle 2" angeklickt wird soll eine Messagebox erscheinen mit dem Hinweise "aktuelles Worksheet kann nicht verlassen we...
14.10.2009 11:16:28
Thread-ID: 1109544
3 Beiträge
Anzeige
In Worksheet erstelltes Chart per VBA ansprechen
lorenz1980

Hi miteinander,
ich habe folgenden Code für Charts, die ein eigenes Worksheet darstellen - und dieses läuft: Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _ As Long) Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer, arr...
25.10.2009 13:29:53
Thread-ID: 1112009
2 Beiträge
Anzeige
ActiveSheet.Unprotect - Bei Drehfeld
Heinz

Hallo Leute
Im unteren Code wird mir der Blattschutz nicht aufgehoben.
Hätte bitte jemand eine Lösung ?
Danke & Gruß
Heinz H
Option Explicit
Sub Drehfeld1_BeiÄnderung() ActiveSheet.Unprotect Application.Calculate ActiveSheet.Protect End Sub
16.11.2009 22:08:26
Thread-ID: 1117774
5 Beiträge
2 Suchfenster 2 Bedingungen - Worksheet_Change
miss18

Hallo liebes Forum.
ich habe ein kleines Problem und komme einfach nicht weiter. Ich hoffe Ihr könnt mir weiterhelfen.
Ich habe auf meiner Übersicht zwei Suchfelder definiert (AL8:AN8 & AL9:AN9):
Im oberen Suchfeld kann man nach Zahlen, im unteren nach Namen suchen - daneben sin...
04.02.2010 14:34:09
Thread-ID: 1135782
3 Beiträge
Worksheet.Protect - Passw per VBA läuft nicht mehr
Max

Hallo zusammen.
Folgendes Makro habe ich seit Jahren ohne probleme benutzt: Sub HBxkxU() On Error Resume Next ActiveSheet.Unprotect Password:="" If Err "0" Then Err = "0" ActiveSheet.Unprotect Password:="XpwX" Else: Stop End If End Sub Es lief anstandslos auf den letzten 2 Excel 2007 Inst...
06.04.2010 15:48:44
Thread-ID: 1150350
4 Beiträge
Daten in Worksheet, ohne Anzeige zu wechseln?
Volker

Hallo zusammen,
mit u.a. Makro ermittele ich in einem Worksheet Zeilen, die ich löschen will (Zeile wird leer gemacht, wenn da in der betreffenden Spalte ein Wert aus dem Array "BekannteGr()" drin steht).
Ich muss aber zu Kontrollzwecken alles, was ich lösche, in einem anderen Worksheet...
25.08.2010 16:05:06
Thread-ID: 1174208
3 Beiträge
Private Sub Worksheet_Change in Modul auslagern
Claudia

Hallo zusammen,
möchte folgenden Code aus Private Sub Worksheet_Change(ByVal Target As Range) in ein Modul auslagern. Soll heissen: unabhä _ _ ngig von einer Eingabe wie dargestellt soll ein Makro hingehen und prüfen, ob aufgrund der _ Werte im genannten I-Bereich noch Änderungen / Ergän...
12.09.2010 21:11:38
Thread-ID: 1177131
3 Beiträge
Brauche Hilfe bei meinem Code: WorkSheet Change
Holger,

Guten Morgen Forum,
kurz und knackig:
Ich habe einen Code geschrieben zur Worksheet Überwachung.
Mein Ziel: Abfragen, ob ein Zellinhalt gelöscht wird.
Funktioniert leider nicht, da der Code anspringt, sobald man eine Zelle mit
leerem Inhalt auswählt.
Könnt ihr mir bitte...
20.01.2011 09:43:04
Thread-ID: 1196547
3 Beiträge
ActiveSheet.Protect löscht Zwischenablage
Wolfgang

Hallo Forum,
ich hoffe Ihr könnt wieder helfen.
Ich habe ein geschützes Excel Sheet mit wenigen editierbaren Zellen.
Ich habe in VBA ein Zeilenmarkierung programmiert. Mit dem Event 'Selection_Change' wird die jeweils aktive Zeile 'hervorgehoben'. Nachdem die Zellen teilw. geschützt...
06.07.2011 23:03:57
Thread-ID: 1221109
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige