Office: Mit VBA auf Systemnamen der Tabellen zugreifen

Klappt *Smilie

 

Hallo,
mir ist leider beim bearbeiten meiner Liste etwas aufgefallen. Vielleicht kann man das ja lösen.

Ich kann auf Zellen die aus mehreren Zellen verbunden sind keinen Doppelklick mehr machen ohne das es eine Fehlermeldung von VBA gibt. Der Fehler liegt dann im folgenden 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


weiß jemand voran das liegen kann bzw. ob man das irgendwie beheben kann ?

LG Rena

 

Weil Target.cells.count > 1 ist.

 

Hi Rena,

ich würde generell auf verbundene Zellen verzichten, denn sie machen nur Ärger - nicht nur in VBA sondern auch dann, wenn man später mal am Tabellenaufbau etwas ändern muss...

Versuche es einfach mal mit Target.Cells(1).Value (ungetestet).

 

Hallo,

ich würde auch lieber auf die verbundenen Zellen verzichten, aber ich benötige sie leider, da sie den schönen Effekt haben den Text immer in die Mitte zu schieben egal ob ich einige Spalten ausblende. Ein bisschen schwierig zu erklären ^^

Dann lebe ich damit jetzt einfach :P auf die Zellen wird eh nur zugegriffen wenn die Tabelle mal angepasst werden muss. Zum normalen ausfüllen benutze ich nur einzelne Zellen.

Das mit dem .Cells(1) funktioniert bis jetzt.

Vielen dank *Smilie

LG Rena

 

Hallo Rena,

bei der Formatierung gibt es die Möglichkeit: Zelle formatieren > Ausrichtung > Textausrichtung horizontal = Über Auswahl zentrieren.

Wenn du also vorher die entsprechenden Zellen markierst, kannst du somit sehr leicht die Überschriften zentrieren. Da kannst du dann auch Spalten ausblenden und es wird immer noch richtig zentriert.