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 prüfen - eventuell Fehler
in Microsoft Access Hilfe
VBA prüfen - eventuell Fehler: Hallo Fachkräfte, hier ein VBA-Modul das einen Fehler enthalten soll. Case 2 wurde in 2022 geändert. In Case 3 , 4 oder ... soll auch noch ein Fehler sein. Wo genau was falsch ist und wie...
VBA: Fehler 0x800a03ec beim Ribbon
in Microsoft Excel Hilfe
VBA: Fehler 0x800a03ec beim Ribbon: Hallo, ich habe eine Tabelle, die ich ohne Titelleiste anzeigen lassen möchte. Dazu habe ich mir zwei Makros geschrieben Sub AusBlenden() CommandBars("Worksheet Menu Bar").Enabled = False...
Dateiname der aktuellen Datei als Variable
in Sonstiges
Dateiname der aktuellen Datei als Variable: Hallo in die Runde, kann ich unter VBA (Excel/Outlook) den Namen der aktuellen Datei auslesen und in einer Variable weiterverarbeiten? Danke im Voraus, Andreas
Makro um E-Mails zu verschieben
in Microsoft Outlook Hilfe
Makro um E-Mails zu verschieben: Ich suche ein Makro das ich auf einem Rechner ausführen lassen kann um gelesene Mails z.B. auf dem Handy in einen bestimmten Ordner zu verschieben um meinen Posteingang "sauber" zu halten....
Access VBA – Prüfen, ob eine PDF bereits geöffnet ist, bevor sie erneut geöffnet wird
in Microsoft Access Hilfe
Access VBA – Prüfen, ob eine PDF bereits geöffnet ist, bevor sie erneut geöffnet wird: Beschreibung: Ich arbeite mit Access VBA und habe eine Funktion implementiert, die beim Klick auf einen Button („Unterzeichnet“) einen Bericht als PDF exportiert. Was aktuell funktioniert:...
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...

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