PDA

Vollständige Version anzeigen : VBA anderes Tabellenblatt ansprechen und Code ausführen


dapaco
28.05.2013, 15:03
Hallo, ich habe folgenden Code in einem Tabellenblatt:

Private Sub CommandButton4_Click()

'Wandelt als Text vorliegende Zahlenwerte in 'echte' Zahlen um
'Spaltenbereich markieren (auch zu viele) und starten
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Selection.Columns
'Columns(Spalte.Column).NumberFormat = "General"
Columns(Spalte.Column).TextToColumns
Next
End Sub

nun möchte ich eine Spalte eines anderen Tabellenblattes ansprechen und danach gleich den Code auf diesem Tabellenblatt ausführen.

z.b.:
Worksheets("Übersicht").Columns("B:B").Select

kann mir hier jemand weiterhelfen?

Viele Grüße,
Thomas

Beverly
28.05.2013, 15:30
Hi Thomas,

das geht auch ohne Select:

Worksheets("Übersicht").Columns("B:B").NumberFormat = "General"

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/" onclick="window.open(this.href);return false"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

chris-kaiser
28.05.2013, 15:30
Hi,


Private Sub CommandButton4_Click()
'Wandelt als Text vorliegende Zahlenwerte in 'echte' Zahlen um
'Spaltenbereich markieren (auch zu viele) und starten
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Worksheets("Übersicht").Columns("B:X")
'Spalte.NumberFormat = "General"
Spalte.TextToColumns
Next
End Sub

dapaco
28.05.2013, 15:48
Vielen Dank Karin und Chris.
Chris, ich habe dein Code angewendet.
Funktioniert Bestens !

Viele Grüße,
Thomas