Office: Mit VBA auf Systemnamen der Tabellen zugreifen

Helfe beim Thema Mit VBA auf Systemnamen der Tabellen zugreifen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi Rena, Code: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim intZaehler As Integer With Target If .Value = "-"... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Rena1, 2. Oktober 2017.

Seite 2 von 3

Beverly Erfahrener User

Mit VBA auf Systemnamen der Tabellen zugreifen

Hi Rena,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim intZaehler As Integer
With Target
If .Value = "-" Then
For intZaehler = 5 To 1 Step -1
Worksheets(intZaehler).Rows(.Row).Delete
Next intZaehler
ElseIf .Value = "+" Then
For intZaehler = 5 To 2 Step -1
Worksheets(intZaehler).Rows(.Row).Insert shift:=xlDown
Worksheets(intZaehler).Rows(.Row - 1).Copy Worksheets(intZaehler).Cells(.Row, 1)
Next intZaehler
Rows(.Row).Insert shift:=xlDown
Rows(.Row - 2).Copy Cells(.Row - 1, 1)
End If
Cancel = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 5. Oktober 2017

#16
RENA1

Rena1

Hallo,

leider sagt er mir beim Löschen und beim Kopieren, dass ein Laufzeitenfehler'9' vorliegt : Index außerhalb des gültigen Bereichs.

Irgendwas scheine ich noch falsch zu machen *frown.gif*

Gruß Rena

Rena1, 8. Oktober 2017

#17
Beverly Erfahrener User

Hi,

an welcher Stelle im Code kommt der Laufzeitfehler? Hast du vielleicht weniger als 5 Tabellenblätter?

Beverly, 8. Oktober 2017

#18
RENA1

Rena1

Mit VBA auf Systemnamen der Tabellen zugreifen

ah ok es lag an der Anzahl der Tabellen. Ok habe ich verstanden *Smilie

schon mal vielen vielen Dank für deine Hilfe.

Wo in dem Code sage ich ihm denn welche Zeile er kopieren soll ?
Ich befürchte ich habe mich bei meiner Beschreibung an einem Punkt schlecht ausgedrückt. Wenn ich jetzt eine Zeile hinzufüge und dabei einen Doppelklick auf die Zeile 2 mache, dann kopiert er nicht diese sondern Zeile 1. Wäre jetzt nicht so schlimm wenn das so bleibt aber vllt kann man das ja ganz leicht abändern.

Gruß Rena

Rena1, 9. Oktober 2017

#19
Beverly Erfahrener User

Wenn die Anzahl an Tabellenblättern unterschiedlich sein soll, dann kann man auch die Anzahl im Code verwenden mit Worksheets.Count.

Es soll also immer die doppelgeklickte Zeile kopiert werden?

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim intZaehler As Integer
With Target
If .Value = "-" Then
For intZaehler = Worksheets.Count To 1 Step -1
Worksheets(intZaehler).Rows(.Row).Delete
Next intZaehler
ElseIf .Value = "+" Then
For intZaehler = Worksheets.Count To 2 Step -1
Worksheets(intZaehler).Rows(.Row + 1).Insert shift:=xlDown
Worksheets(intZaehler).Rows(.Row).Copy Worksheets(intZaehler).Cells(.Row + 1, 1)
Next intZaehler
Rows(.Row).Insert shift:=xlDown
Rows(.Row).Copy Cells(.Row - 1, 1)
End If
Cancel = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 9. Oktober 2017

#20
RENA1

Rena1

oh super genau so.

Vielen Dank *Smilie))))

Rena1, 9. Oktober 2017

#21
RENA1

Rena1

Hallo,

ich muss das Thema nochmal aufgreifen. Beim arbeiten mit der Tabelle ist mir aufgefallen, dass im ersten Arbeitsblatt die Zeile kopiert wird die ich anklicke aber auf dem zweiten Blatt wird die Zeile darunter kopiert und eingefügt.

Ich hab mal eine Datei hoch geladen mit einem Beispiel. Ich habe auf der zweiten Seite einen Verweis auf die erste Seite wenn ich dann Zeilen lösche geht der Verweis kaputt. Bei der Variante mit dem .select war das kein Problem, da konnte ich hinzufügen und weg nehmen so viel ich wollte und die Verweise haben sich immer automatisch aktualisiert. Gibt es da eine Lösung für ?

Gruß Rena

Rena1, 10. Oktober 2017

#22
Beverly Erfahrener User

Mit VBA auf Systemnamen der Tabellen zugreifen

Hi,

befinden sich nur auf dem Tabellenblatt "Preisvergleich" Formeln mit Bezügen (Spalte C und E) zum 1. Tabellenblatt oder auf den anderen Tabellen auch? Sollen bei den anderen Tabellen auch Zeilen eingefügt werden oder nur beim 1. und bei "Presivergleich"?

Beverly, 10. Oktober 2017

#23
RENA1

Rena1

es befinden sich auf den anderen Tabellenblättern auch Bezüge. Es sollen auf allen Tabellenblättern die ich habe Zeilen gelöscht und eingefügt werden.

Gruß Rena

Rena1, 10. Oktober 2017

#24
Beverly Erfahrener User

Mit Select entsprechend deinem Ausgagscode:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim intZaehler As Integer
Dim arrTabs
Dim lngZeile As Long
ReDim arrTabs(1 To Worksheets.Count)
If Target.Value = "-" Or Target.Value = "+" Then
For intZaehler = Worksheets.Count To 1 Step -1
arrTabs(intZaehler) = Worksheets(intZaehler).Name
Next intZaehler
lngZeile = Target.Row
Worksheets(arrTabs).Select
Rows(lngZeile).Select
If Target.Value = "-" Then
Selection.Delete
ElseIf Target.Value = "+" Then
Selection.Insert shift:=xlDown
Selection.Copy Cells(lngZeile, 1)
End If
Cancel = True
Target.Select
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 10. Oktober 2017

#25
RENA1

Rena1

Bei dem Target.Select am Ende wirft er noch einen Fehler aus. Laufzeitenfehler 424: Objekt erforderlichEs funktioniert trotzdem, nur muss ich den Fehler immer weg Klicken.
Hab ich wohl irgendwas wieder falsch beachtet *frown.gif*

Rena1, 10. Oktober 2017

#26
Beverly Erfahrener User

Stimmt - beim Löschen gibt es kein Target mehr, deshalb der Fehler.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim intZaehler As Integer
Dim arrTabs
Dim lngZeile As Long
Dim intSpalte As Integer
ReDim arrTabs(1 To Worksheets.Count)
If Target.Value = "-" Or Target.Value = "+" Then
For intZaehler = Worksheets.Count To 1 Step -1
arrTabs(intZaehler) = Worksheets(intZaehler).Name
Next intZaehler
lngZeile = Target.Row
intSpalte = Target.Column
Worksheets(arrTabs).Select
Rows(lngZeile).Select
If Target.Value = "-" Then
Selection.Delete
Cells(lngZeile, intSpalte).Select
ElseIf Target.Value = "+" Then
Selection.Insert shift:=xlDown
Selection.Copy Cells(lngZeile, 1)
Target.Select
End If
Cancel = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 10. Oktober 2017

#27
RENA1

Rena1

Mit VBA auf Systemnamen der Tabellen zugreifen

Super *Smilie vielen Dank *Smilie

Rena1, 10. Oktober 2017

#28
RENA1

Rena1

Und schon wieder ist ein Problem aufgetaucht *frown.gif*

Ich kann die Funktion Rückgängig jetzt nicht mehr nutzen. Das ich nach dem benutzen eines Makros nichts mehr Rückgängig machen kann das ist mir bekannt. Leider kann ich jetzt auch keine anderen Änderungen vornehmen und die dann Rückgängig machen, so wie zB. eine Zelle kopieren die nichts mit dem Makro zutun hat. Gibt es da eine Lösung für oder muss ich mich damit abfinden?

Bei meinem ursprünglichen Makro ging das mit dem Rückgängig noch, also muss in dem neuen irgendwas sein das das blockiert.

Gruß Rena

Rena1, 12. Oktober 2017

#29
Beverly Erfahrener User

So sollte es wieder möglich sein:

Code:

If Target.Value = "-" Or Target.Value = "+" Then
For intZaehler = Worksheets.Count To 1 Step -1
arrTabs(intZaehler) = Worksheets(intZaehler).Name
Next intZaehler
lngZeile = Target.Row
intSpalte = Target.Column
Worksheets(arrTabs).Select
Rows(lngZeile).Select
If Target.Value = "-" Then
Selection.Delete
ElseIf Target.Value = "+" Then
Selection.Insert shift:=xlDown
Selection.Copy Cells(lngZeile, 1)
End If
ActiveSheet.Select
Cancel = True
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 12. Oktober 2017

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Mit VBA auf Systemnamen der Tabellen zugreifen

Die Seite wird geladen...

Mit VBA auf Systemnamen der Tabellen zugreifen - Similar Threads - VBA Systemnamen Tabellen
EINLADUNG Access-Stammtisch Hannover Nr. 63 LIVE am Mittwoch 19.11.2025
in Microsoft Access Hilfe
EINLADUNG Access-Stammtisch Hannover Nr. 63 LIVE am Mittwoch 19.11.2025: EINLADUNG zum Access-Stammtisch Hannover Nr. 63 LIVE Endlich ist es wieder soweit! Persönlicher Austausch bei Speis und Trank. Interessante Gespräche in netter Atmosphäre. Termin: Mittwoch,...
VBA: Notizen in Zelle einfügen
in Microsoft Excel Hilfe
VBA: Notizen in Zelle einfügen: Hallo zusammen, ich möchte über cells(x,y).AddComment "Text" eine Notiz einfügen. Das funktioniert leider nur sehr unzuverlässig. Mal ist der Text in der Notiz, mal wird nur eine leere Notiz...
ActiveX Steuerelemente nicht verfügbar im VBA Entwurfsmodus.
in Microsoft Excel Hilfe
ActiveX Steuerelemente nicht verfügbar im VBA Entwurfsmodus.: Guten Tag allerseits. Ich habe eine Excel-Anwendung (xlsm mit Macros), die auf einem Laptop Probleme macht. Auf allen anderen PC's läuft es perfekt, auf dem genannten Laptop scheitern Zugriffe auf...
VBA: Datei Upload mit http: POST
in Microsoft Excel Hilfe
VBA: Datei Upload mit http: POST: Hallo, schönen Gruß an alle; ich hoffe jemand hat einen Hinweis wo ich ansetzen kann. Problembeschreibung: · VBA aus Excel (das muss auch so bleiben) und funktioniert anscheinend ja auch...
VBA - Dateinamen anhand von Unterstrich und Großbuchstaben trennen
in Microsoft Excel Hilfe
VBA - Dateinamen anhand von Unterstrich und Großbuchstaben trennen: Hallo zusammen, ich würde gern folgendes Projekt realisieren. Ich bekomme regelmäßige pdf- und jpg-Dateien (immer im Format Nachname_Vornamen_Geburtsdatum - z. B.:...
VBA Outlook E-Mailvorschau aktualisieren wg. Flag-Text
in Microsoft Outlook Hilfe
VBA Outlook E-Mailvorschau aktualisieren wg. Flag-Text: Hallo Leute, ich benötige bei einem Problem euer Wissen. Ich setze in Outlook einen Flag "Erledig" mit einem individuellen Text (= MdName). Allerdingst wird mir dieser Text erst nach einem...
VBA HTTP Post - Probleme JSON Payload
in Microsoft Excel Hilfe
VBA HTTP Post - Probleme JSON Payload: Moin, ich steh auf dem Schlauch.... Ich möchte mit VBA einen HTTP Post senden. Das klappt beim versenden OHNE Payload auch soweit auch ganz gut. Private Function http_post(url As String,...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden