Excel /異なるワークシート上のボタンを接続する方法 - Excel、Excel、Excel

私の最初のボタン（Schaltfläche83）

私が "平田Bestellformular"を活動化させたい他のボタン 1番目のオプション：トップの青いもの 2番目のオプション：大きなもの（アクティブな要素）

ワークシート "Teileliste"を "Hirata Bestellformular"から直接実行したいので、別のワークシートから一つのボタンを有効にしたい。どうすればこれを達成できますか？

Sub Teileliste_generieren()

"高度なフィルタ

Sheets("Hirata Bestellformular").Range("Tabelle3[[#Headers],[#Data]]"). _
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B50:B51"), _
CopyToRange:=Range("B54:B55"), Unique:=False

Range("B5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(LEFT(R[50]C,FIND(CHAR(10),R[50]C)-1),R[50]C)"
Range("B6").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(LEFT(R[50]C,FIND(CHAR(10),R[50]C)-1),R[50]C)"
Range("B5:B6").Select
Selection.AutoFill Destination:=Range("B5:B26"), Type:=xlFillDefault
Range("B5:B26").Select
Range("D22").Select

"formatierung tabelle

Range("B3").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16763955
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternThemeColor = xlThemeColorAccent3
.Color = 16777215
.TintAndShade = 0
.PatternTintAndShade = 0.799981688894314
End With
Range("B5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 9868950
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15395562
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B5:B6").Select
Selection.AutoFill Destination:=Range("B5:B26"), Type:=xlFillDefault
Range("B5:B26").Select
Range("D20").Select

"0ブランク

Range("B5:B26").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("C22").Select

" Exportieren

ThisWorkbook.Sheets("Teileliste").Copy

Application.GetSaveAsFilename

End Sub

回答：

回答№1は0

私は試すことができます。 :)

私があなたを理解すれば、あなたは Teileliste generieren から Hirata Bestellformular。これは、あなたがまだボタンを必要としていることを意味します Schaltfläche 83 と同じことをする Teileliste generierenボタンを押すためにシートを切り替える必要はありませんか？

その後、 あなたの問題はあなたの Range.Select ステートメント。

Excels VBAオブジェクトモデルでは、 Range("B50:B51").Select から Teileliste-sheetを指定すると、自動的にその範囲が選択されます Teileliste - シート。からそれを行う場合 Hirata Bestellformular、それが選択されます Range("B50:B51") から Hirata Bestellformular 代わりに。

これの意味は： それ 〜すべき すべての Range("...").Select に Worksheets("Teileliste").Range("...").Select

これは、 Excel VBAオブジェクトモデル。

私は確かにそのトリックを行う必要がありますが、あなたのコードが（特定のシート内またはモジュール内に）配置される場所によって異なります。 Range.Selects それが役立つかどうかを確認してください。 :)

---

回答№2の場合は0

ただのヒント：

Schaltfläche83のボタンを右クリックしてマクロに割り当てることができます。あなたの場合は右クリック - >マクロの割り当て - >選択

Teileliste_generieren()

あなたのコードが異なるシート上で呼び出されることに対処できれば、それはうまくいくでしょう。

//私のiPhoneから

---

回答№3の場合は0

Sub Teileliste_generieren2()

"高度なフィルタ

Sheets("Hirata Bestellformular").Range("Tabelle3[[#Headers],[#Data]]"). _
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Worksheets("Teileliste").Range("B50:B51"), _
CopyToRange:=Worksheets("Teileliste").Range("B54:B55"), Unique:=False

Worksheets("Teileliste").Range("B5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(LEFT(R[50]C,FIND(CHAR(10),R[50]C)-1),R[50]C)"
Worksheets("Teileliste").Range("B6").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(LEFT(R[50]C,FIND(CHAR(10),R[50]C)-1),R[50]C)"
Worksheets("Teileliste").Range("B5:B6").Select
Selection.AutoFill Destination:=Worksheets("Teileliste").Range("B5:B26"), Type:=xlFillDefault
Worksheets("Teileliste").Range("B5:B26").Select
Worksheets("Teileliste").Range("D22").Select

"formatierung tabelle

    Worksheets("Teileliste").Range("B5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
Worksheets("Teileliste").Range("B6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Worksheets("Teileliste").Range("B5:B6").Select
Selection.AutoFill Destination:=Worksheets("Teileliste").Range("B5:B26"), Type:=xlFillDefault
Worksheets("Teileliste").Range("B5:B26").Select
Worksheets("Teileliste").Range("C18").Select

"0ブランク

Worksheets("Teileliste").Range("B5:B26").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Worksheets("Teileliste").Range("C22").Select

" Exportieren

ThisWorkbook.Sheets("Teileliste").Copy

Application.GetSaveAsFilename

エンドサブ

私はちょうどあなたが言ったようにどこにでも置き換えました。それは私が "Teileliste"からマクロを動かすとうまくいくが、ヒラ・ベスト・フォーミュラ（ "Hiraa Bestellformular"）からそれを有効にするとエラーが出る：Error1004彼Select- Range-Objectのメソッドは実行できない：/別の提案？:)

---