Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Text einer Form kopieren und einfügen in InputBox	23.11.2021 16:59:04	Andy200620
Text einer Form kopieren und einfügen in InputBox	23.11.2021 20:32:30	Gast40447
Text einer Form kopieren und einfügen in InputBox	07.12.2021 12:55:54	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 14:22:11	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 14:27:10	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 14:35:45	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 18:21:42	Mase

Ansicht des Beitrags:

Von:
Gast40447

Datum:
23.11.2021 20:32:30

Views:
625

Rating:

Antwort:

Thema:
Text einer Form kopieren und einfügen in InputBox

Option Explicit

Public Sub Shape_OnAction()
  
  If VarType(Application.Caller) <> vbString Then
    Exit Sub
  End If
  
  Dim shp As Excel.Shape
  
  On Error Resume Next
  Set shp = ActiveSheet.Shapes(Application.Caller)
  On Error GoTo 0
  
  If shp Is Nothing Then
    Exit Sub
  End If
  
  Dim wks As Excel.Worksheet
  Dim strNewName As String
  
  On Error GoTo Err_AddWorksheetFailed
  Set wks = Worksheets.Add
  On Error GoTo Err_RenameWorksheetFailed
  strNewName = shp.TextFrame2.TextRange.Text
  wks.Name = strNewName
  On Error GoTo 0
  
  
  
Exit Sub
Err_AddWorksheetFailed:
  Call MsgBox("Ein neues Tabellenblatt konnte nicht hinzugefügt werden.", vbCritical)
Exit Sub
Err_RenameWorksheetFailed:
  Call MsgBox("Tabellenblatt '" & wks.Name & "' konnte nicht in '" & strNewName & "' umbenannt werden.", vbExclamation)
End Sub

Das Makro der Rechteckform zuweisen.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Text einer Form kopieren und einfügen in InputBox	23.11.2021 16:59:04	Andy200620
Text einer Form kopieren und einfügen in InputBox	23.11.2021 20:32:30	Gast40447
Text einer Form kopieren und einfügen in InputBox	07.12.2021 12:55:54	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 14:22:11	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 14:27:10	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 14:35:45	Andy200620
Text einer Form kopieren und einfügen in InputBox	07.12.2021 18:21:42	Mase