Supportnet / Forum / Tabellenkalkulation

Hallo, Ich möchte in einem Tabellenblatt eine Zelle aktivieren und das funktioniert auch mit folgendem code: Private Sub CommandButton1_Click() Worksheets("Tabelle1").Activate Range("A1:C3").Select Range("B2").Activate End Sub wenn ich aber das gleiche in einem zweiten Tabellenblatt machen möchte mit: Private Sub CommandButton1_Click() Worksheets("Tabelle2").Activate Range("A1:C3").Select Range("B2").Activate End Sub bekomme ich folgende Fehlermeldung: "die select-methode des Range objekts konnte nicht ausgeführt werden" was mache ich falsch? Gruß Klaus

Hallo,

probiere es mal so:

Sub CommandButton1_Click()
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Range("A1:C3").Select
Worksheets("Tabelle2").Range("B2").Activate
End Sub

Gruß
Günter

Danke, jetzt funktionierts,

Gruß
Klaus

Hallo,

jetzt habe ich das nächste Problem, wenn ich von Tabelle1 aus einen Text von Blatt 3 in Blatt 2 kopieren will kommt wieder die Fehlermeldung, was habe ich jetzt wieder falsch gfemacht?

Private Sub CommandButton1_Click()
Worksheets("Tabelle3").Aktivate
Worksheets("Tabelle3").Range("A1:B6").Select
Selection.Copy
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Range("A1:B6").Select
Worksheets("Tabelle2").Range("B2").Activate
ActiveSheet.Paste
End Sub

Gruß
Klaus

Kleiner Tipp am Rande:
Extras/Makro... aufzeichen.
Wenn du deine Aktion über diese Möglichkeit durchführst, erhälst du ein Modul, wo du jeden Schritt für dich nachvollziehen kannst ...

Hallo,

das habe ich schon gemacht, das komische ist, wenn ich den gleichen code in das makro kopiere, die aufgezeichnete Folge mit ' ausschalte gehts auch nicht mehr, es kommt dann die Meldung: kann im Haltemodus nicht ausgeführt werden. Der code ist aber identisch.

Gruß
Klaus

nachfolgendes Makro funktioniert einwandfrei,

Sub Makro3()
'
' Makro3 Makro
' Makro am 16.07.2004 von Gunter Harms aufgezeichnet
'

'
Sheets("Tabelle3").Select
Range("A1:B2").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

wenn ich den code dann wie folgt einem button zuordne:

Private Sub CommandButton1_Click()
Sheets("Tabelle3").Select
Range("A1:B2").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

geht nichts mehr, woran kann das liegen?

Gruß
Klaus

hi alle :)

in einem button wie euren sollte moeglichst nur der aufruf eines makros vorhanden sein als code :)

gruss nighty

aufrufe z.b.

Private Sub CommandButton1_Click()
Call MeinMakro bzw. MeinMakro
End Sub

Sub MeinMakro()
rem EUER CODE
End Sub

hallo Leuts'
warum der Stress mit select und activate usw.

Sub Test()
Worksheets("Tabelle2").Range("C4") = Worksheets("Tabelle1").Range("A2")
End Sub

geht auch...
bringt keine Fehler ...
und is schnell !!

Greetz ;-)

hallo Leuts'
warum der Stress mit select und activate usw.

Sub Test()
Worksheets("Tabelle2").Range("C4") = Worksheets("Tabelle1").Range("A2")
End Sub

geht auch...
bringt keine Fehler ...
und is schnell !!

Greetz ;-)

• Zellen formatieren ( Zellen verbinden )
• Zellen verbinden in Excel - nicht möglich
• Zellen mit textinhalt zusammenfassen???
• Zellen nach gleichem Text überprüfen
• Makro-bestimmt Zellen löschen