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 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,...
Kombinationsfeld in VBA auswerten
in Microsoft Access Hilfe
Kombinationsfeld in VBA auswerten: Guten Tag, ich habe ein VBA-Problem mit Kombinationsfeldern. Umfeld: Eine Tabelle A mit Namen incl. Adressen, indiziert (NamenID), keine doppelten Einträge möglich. Eine Tabelle B mit Rechnungen,...
Download per VBA nicht aktuell
in Microsoft Access Hilfe
Download per VBA nicht aktuell: Hallo, ich nutze in VBA eine Download-Funktion, die mir die neueste Version meines Frontend downloaden soll. Der Download an sich funktioniert, doch leider wird eine alte Version gespeichert. Ich...
Autofilter bei Zelländerung automatisch aktualisieren – ohne VBA
in Microsoft Excel Hilfe
Autofilter bei Zelländerung automatisch aktualisieren – ohne VBA: Hallo zusammen, ich habe eine Frage zur automatischen Aktualisierung von Autofilter-Ergebnissen in einer intelligenten Tabelle – und zwar ohne VBA. Ausgangssituation: Ich habe eine intelligente...
Bereich mit VBA zusammenhalten
in Microsoft Word Hilfe
Bereich mit VBA zusammenhalten: Ich schreibe aus Access mit VBA Anschriften in ein Worddokument. Jede Anschrift soll zusammengehalten werdem, damit am Seitenende keine Anschrift getrennt wird. Wie muss ich vorgehen um eine...
bedingte Formatierung Schriftgröße (VBA?)
in Microsoft Excel Hilfe
bedingte Formatierung Schriftgröße (VBA?): Hallo zusammen, ich kämpfe mich gerade durch die bedingte Formatierung von Excel. So langsam habe ich das Gefühl, dass ich damit die Schriftgröße einer Tabelle nicht ändern kann. Laut Google...
VBA-Code überspringt einzelne Zeilen
in Microsoft Word Hilfe
VBA-Code überspringt einzelne Zeilen: Liebe Forumsgemeinde, ich habe einen vba-code in word. Ganz grob, es wird eine Word-Tabelle 1x1 erzeugt, dort wird ein Bild eingefügt, anschließend wird die Tabellegröße auf die Bildgröße...

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