Office: Mit VBA auf Systemnamen der Tabellen zugreifen

Hallo,

ich habe einen Tipp hier im Forum bekommen, dass ich mich im VBA auf die Systemnamen der Tabellenblätter beziehen kann, damit ich die Blätter umbenennen kann ohne das ich den Code ändern muss.

http://www.ms-office-forum.net/forum...d.php?t=346251

Leider ist das Thema etwas untergegangen, deshalb hier das Thema separat mit dem Verweis auf meinen alten Beitrag.

Weiß jemand von euch wie das funktioniert und kann es mir erklären? Einfach den Systemnamen eingeben hat bei mir nicht geklappt. Was mache ich falsch ?

Gruß Rena

:)

 

Hi Rena,

und was genau willst du machen - den Codenamen ändern oder den Tabellennamen?

 

Das ist mein Code. Mir wurde empfohlen das Select weg zu lassen aber das habe ich nicht hinbekommen. So funktioniert es aber auch super!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Value = "-" Then
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Sheets(Array("Firma 1", "Preisvergleich")).Select
Selection.Delete
ActiveCell.Select
Sheets("Firma 1").Select
Cancel = True
End If

End With
End Sub

Ich führe das ja in dem Tabellenblättern Firma 1 und Preisvergleich aus. Dies soll eine Vorlage werden. Geplant sind dann Firma 1, Firma 2, Firma 3, Firma 4 und Preisvergleich. Wenn man die Tabelle jetzt benutzt dann steht da aber nicht mehr Firma 1.... sondern die Namen der Firmen. Wenn ich die Namen da jetzt eintrage dann muss ich in den Code gehen und die Namen dort auch ändern. Dies möchte ich gerne umgehen.

Gruß Rena

 

Hi Rena,

ich würde es so lösen:

Code:

Du musst die Tabellen also nicht erst selektieren sondern kannst jede Tabelle einzeln löschen - zuerst die Zeile in "Presivergleich", weil sonst Target.Row nicht mehr belegt ist und der Code zu einem Fehler führt. Mit Target beziehst du dich ja auf die aktive Tabelle, deshalb musst du den Tabellennamen gar nicht kennen.

Aber generell kannst du mit ActiveSheet.Name auf den Namen der aktiven Tabelle zugreifen, ohne ihren Namen zu kennen - in deinem Code wäre das dann so:

Code:

Oder, da du ja das Doppelklick-Ereignis der Tabelle verwendest, kannst du auch Target.Parent.Name benutzen, also das dem Objekt Target übergordnete Objekt respektive die Tabelle in der sich das Target befindet.

 

Hallo,
es ist aber von mir schon gewollte dass die Zeilen in allen Tabellen gleichzeitig gelöscht werden und dafür muss ich doch auch alle Tabellen in VBA aufführen oder ?

Also mein Code oben bewirkt ja das ich in Tabelle 1 auf ein - klicke und dann die gleiche Zeile auf allen Tabellenblättern gelöscht wird. Dies soll auch weiterhin so funktionieren nur das ich die Tabellenblätter umbenennen möchte ohne es im VBA ständig mit aktualisieren zu müssen.

LG Rena

 

Hi Rena,

es spielt doch absolut keine Rolle, ob du die Tabellen zuerst selektierst und die Zeilen in beiden zusammen löschst oder ob du sie nacheinander in jedem der beiden Tabellenblätter einzeln löschst: das Resultat ist letztendlich dasselbe - die betreffende Zeile ist in BEIDEN Tabellenblättern weg...

Aber wenn du (unsinniger Weise) unbedingt selektieren willst - ich habe dir die Lösung doch gepostet, wie man auf das gerade aktive Tabellenblatt zugreifen kann ohne dessen Namen zu kennen und diesen im Code immer ändern zu müssen.

Übrigens klickst du nicht auf die Zelle mit dem "-" sondern machst einen Doppelklick darauf - das ist nicht dasselbe *wink.gif*

 

Benutze den Codename
https://msdn.microsoft.com/de-de/lib.../ff837552.aspx
Codename statt Blattname | Excel ist sexy!
http://www.vbarchiv.net/tipps/tipp_2...r-richtig.html

 

Tut mir leid Beverly dann haben wir uns Missverstanden. Ich weiß das ich in jedes Blatt einzeln gehen kann um da die Zeilen zu löschen aber gerade das möchte ich verhindern. Ich erstelle eine Datei die auch von anderen genutzt werden soll. Die ersten Tabellenblätter, bis auf den Preisvergleich, müssen zu jeder Zeit exakt identisch sein bis auf die eingetragenen Preise. Um Fehler zu vermeiden möchte ich, dass man nur das erste bearbeiten kann und die andern automatisch mit geändert werden.

Mit dem Code den du gepostet hat löscht sich, zumindest als ich es getestet habe, immer nur die Zeile in dem aktuellen Arbeitsblatt.

Ich weiß leider nicht wie ich besser erklären kann was ich meine. Tut mir leid.

Gruß Rena

 

Hallo Storax,

der zweite Link ist genau das was ich gesucht habe. Vielen dank.

Jetzt stehe ich noch vor einer Hürde. In dem Beispiel auf der Seite wird immer mit einem Tabellenblatt gearbeitet. Ich spreche ja immer gleich mehrere an.

Mein Code würde als jetzt in der Theorie so aussehen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Value = "-" Then
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Array(Tabelle1,Tabelle2).Select
Selection.Delete
ActiveCell.Select
Tabelle1.Select
Cancel = True
End If

End With
End Sub

Leider hat er jetzt ein Problem mit dem Array, also brauche ich einen anderen Befehl um mehrere Tabellenblätter anzusprechen.

Jemand eine Idee ?
Ich werde selber auch nochmal forschen.

Gruß Rena

 

Hi Rena,

Das stimmt nicht, denn die Zeile

Code:

löscht die betreffende Zeile im Tabellenblatt "Preisvergleich" und die Zeile

Code:

löscht die Zeile in dem Tabellenblatt in dem du den Doppelklick ausgeführt hast.

Schau dir die angehängte Mappe an: Zeile 4 ist in "Tabelle1" und in "Preisvergleich" gelb formatiert und wenn du in Tabelle1 einen Doppelklick auf die Zelle C4 machst, sind die gelben Zeilen in BEIDEN Tabellenblättern weg.

 

Tut mir Leid du hast Recht Beverly, dann hab ich beim ersten mal wohl was falsch gemacht.

Mit den Beiden Tabellen klappt das jetzt super. Jetzt muss ich es nur noch hinbekommen dass ich im ersten Tabellenblatt klicke und er es auf Blatt 1 2 und 3 löscht. Mein Code sieht jetzt so aus:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target
If .Value = "-" Then
Tabelle2.Rows(.Row).Delete
.EntireRow.Delete
Cancel = True
End If
End With

End Sub

Beverly hast du auch eine andere Lösung für das hinzufügen von Zeilen ? Bisher habe ich:

With Target
If .Value = "Ì" Then
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Sheets(Array("Firma 1", "Preisvergleich")).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Select
Sheets("Firma 1").Select

End If

End With

Gruß Rena

 

Hi Rena,

also sollen nicht nur 2 Tabellen sonderen mehrere bearbeitet werden (Löschen und Einfügen)? Liegen diese immer zwischen dem 1. Tabellenblatt (auf dem gearbeitet werden soll) und Tabelle "Preisvergleich"? Ist es immer dieselbe Anzahl an Tabellenblättern oder kann sich die Anzahl ändern?

 

Ja genau ich habe insgesamt dann 5 Blätter. Firma 1-4 und am Ende immer Preisvergleich, also als Codename Tabelle1 bis Tabelle5

Das löschen habe ich schon hin bekommen:

With Target
If .Value = "-" Then
Tabelle2.Rows(.Row).Delete
Tabelle3.Rows(.Row).Delete
Tabelle4.Rows(.Row).Delete
Tabelle5.Rows(.Row).Delete
.EntireRow.Delete
Cancel = True
End If
End With


Das mit dem Hinzufügen habe ich noch nicht geschafft. Gewollt ist, dass ich auf dem ersten Blatt auf ein + einen Doppelklick macht und er dann darunter eine Zeile einfügt, die den Inhalt der drüber liegenden Zeile hat, also die in der ich den Doppelklick gemacht habe. Dieser Vorgang soll auf allen 5 Tabellenblättern passieren, da alle identisch aufgebaut sind.

Die Anzahl der Tabellen bleibt gleich nur der Namen der Blätter ändert sich, deswegen das mit den Codenamen!

 

bis jetzt bin ich so weit

With Target
If .Value = "+" Then
Tabelle2.Rows(.Row).Insert Shift:=xlDown
Tabelle3.Rows(.Row).Insert Shift:=xlDown
.EntireRow.Insert
Cancel = True
End If
End With


im Moment fügt er aber nur eine Zeile überall ein ohne die zu kopieren

 

Jetzt fügt er auf alles Blättern neue Zeilen ein. Kopieren tut er aber aber nur die Zeilen auf Tabelle 2 und 3. Das er die Zeile auf dem ersten Blatt auch kopiert bekomme ich nicht hin.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target
If .Value = "+" Then
Tabelle2.Rows(.Row).Copy
Tabelle2.Rows(.Row).Insert Shift:=xlDown
Tabelle3.Rows(.Row).Copy
Tabelle3.Rows(.Row).Insert Shift:=xlDown
.EntireRow.Insert

Cancel = True
End If
End With