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
VBA: Was ist "Tabelle1"?
in Microsoft Excel Hilfe
VBA: Was ist "Tabelle1"?: Hallo, ich bin gerade dabei einen VBA-Code für meine Zwecke anzupassen. Leider funktioniert eine der Berechnungen nicht mehr und ich bin nun auf Fehlersuche. Dabei verstehe ich (unter anderem)...
VBA: Form in zwei Modulen verwenden
in Microsoft Excel Hilfe
VBA: Form in zwei Modulen verwenden: Hallo zusammen, ich habe ein VBA-Modul, von welchem ich ein Form aufrufe. Dieses Form hat einfach ein paar Buttons, und gibt zurück, ob ein Button gedrückt worden ist. Diese Information wird dann...
VBA - Wert in einer Spalte finden und diese Zeile löschen
in Microsoft Excel Hilfe
VBA - Wert in einer Spalte finden und diese Zeile löschen: Moin moin ihr Lieben, ich habe nun schon im Netz nach einer Lösung gesucht, aber nichts passendes oder funktionstüchtiges gefunden. Ich habe eine Tabelle mit Spalten A - G. Nun soll Excel in der...
Freigegebene Excel-Tabelle als Quelle für Seriendruck
in Sonstiges
Freigegebene Excel-Tabelle als Quelle für Seriendruck: Hallo, :) wir haben eine Excel-Tabelle, welche auf der Cloud liegt und bei Änderungen automatisch speichert. Es haben mehrere Personen Lese- und Schreibrechte und sobald jemand etwas abändert,...
VBA: Kein "Undo" mehr möglich?
in Microsoft Excel Hilfe
VBA: Kein "Undo" mehr möglich?: Hallo, ich habe meine Bestell-Tabelle so abgeändert, dass einiges per Makro, bzw. mittels Buttons übertragen wird. Also zum Beispiel wird mit einem Klick auf den Button die Lieferadresse gleich...
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...

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