Textbox Text kopieren?

Hallo zusammen,

ich würde gerne den Text aus meiner Textbox kopieren anhand eines Buttons.

Zudem muss ich sagen das die Textbox nicht aktiv ist (vlt. ein Problem?)

Folgendes funktioniert leider nicht ..

Private Sub CopyPhLoc1_Click()

Dim MyData As New DataObject

MyData.SetText PhLoc1Text.Text

MyData.PutInClipboard

End Sub

genauso wie Me.PhLoc1Text.Copy bzw. Me.PhLoc1Text.text.copy

bitte um Hilfe!

Falls es keine möglichkeit gibt überlege ich den Text in ein worksheet umzuleiten und daraus zu kopieren. Direkt kopieren allerdings wäre natürlich besser.

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

16.08.2022, 18:05

Die Textbox kann per "unload" aus dem Speichern verschwunden sein, dann kann man auch nix mehr ins Clipboard speichern.
Also, im Zweifel die TextBox nur verstecken (hidden), so dass sie nur visible = false ist. Dann funktioniert es noch.
ABER:
Markiert man in einer textbox den Text funktioniert mit STRG+C
der Standard um Dinge ins ClipBoard zu speichern.

Ähnliche Fragen

Das Tabellenblatt öffnet sich nicht?

Hallo, ich habe Button womit ich eine Datei und darin direkt eine Eingabemaske öffnen will. Mein bisheriger Code aktiviert / öffnet die Datei, was mir fehlt, ist die direkte Anzeige der Eingabemaske. Ich stelle den Code mal hier ein, um vielleicht eine Lösung zu erhalten. Ich komme einfach nicht weiter.


Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim passwort As String
    Dim pfad_zur_datei As String
    Dim wb As Workbook
    Dim bestaetigung As VbMsgBoxResult

    ' Bestätigungsnachricht anzeigen und Passwort abfragen
    bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")

    ' Wenn der Benutzer auf "Ja" klickt
    If bestaetigung = vbYes Then
        passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")

        ' Überprüfe das eingegebene Passwort
        If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
            ' Konstruiere den vollständigen Pfad zur Datei
            pfad_zur_datei = "G:\NEU Reduziert für DEMO.xlsm" ' Passe den Pfad an

            ' Überprüfe, ob das Arbeitsblatt "Auswahlklick" existiert
            On Error Resume Next
            Set ws = Workbooks.Open(pfad_zur_datei).Worksheets("Auswahlklick")
            On Error GoTo 0

            ' Wenn das Arbeitsblatt existiert, aktiviere es
            If Not ws Is Nothing Then
                ws.Activate
            Else
                MsgBox "Das Arbeitsblatt 'Auswahlklick' wurde nicht gefunden.", vbExclamation
                Exit Sub
            End If
        Else
            MsgBox "Falsches Passwort. Der Zugriff wurde verweigert.", vbExclamation
            Exit Sub
        End If
    Else
        MsgBox "Vorgang abgebrochen.", vbInformation
        Exit Sub
    End If

    ' Hier den restlichen Code ausführen, der auf dem geöffneten Arbeitsblatt "ws" basiert

End Sub

...zur Frage

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zur Frage

Ich benötige einen Makro, um ausgewählte Filter beim Schliessen zurück zu setzen. Aber mit dem Blattschutz funktioniert das nicht mehr. Kann mir jemand helfen?

Ich habe bisher diesen Makro benutzt:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wksSheet As Worksheet
    For Each wksSheet In ThisWorkbook.Worksheets
        With wksSheet
            If .AutoFilterMode Then
                If .FilterMode Then
                    .ShowAllData
                End If
            End If
        End With
    Next wksSheet
    ThisWorkbook.Save
End Sub

...zur Frage

MS-Word VBA selection ausblenden

Hallo zusammen

Ich möche in Word mit VBA folgendes Bewerkstelligen:

Ein bestimmter Bereich soll je nach Wahl von Radio Buttons aus-und wieder eingeblendet werden können. Der Bereich enthält vor allem Formularsteuerelemente.

Ich bin schon soweit, dass ich ihn löschen kann, aber ich muss ihn je nach Wahl der Radio-Buttons auch wieder einblenden könne, darum geht löschen nicht.

Es geht also um die Eigenschaft von Selection.

Hier mein Code:

Private Sub OptionButton1_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.Delete
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True

End Sub

Private Sub OptionButton2_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
    
End Sub

...zur Frage

VBA Code Outlook Mails als gelesen markieren?

Hallo zusammen,

ich habe ein VBA Script entdecken können, welches E-Mails beim Verschieben in einen bestimmten Ordner automatisch als gelesen markiert. Leider benötige ich diese Funktion aber für mehrere Ordner, bzw. eigentlich für alle (also immer wenn ich eine Mail in einen anderen Ordner verschiebe, soll diese als gelesen markiert werden).

Hat jemand eine Idee, wie ich dieses Script anpassen kann, oder ein anderes Script, damit das funktioniert?

Ich nutze ein Office 365, falls dies relevant ist.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim F As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set F = Ns.GetDefaultFolder(olFolderInbox)
  Set F = F.Folders("test")
  Set Items = F.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Item.UnRead = False
  Item.Save
End Sub

Vielen lieben Dank vorab :)

...zur Frage

VBA MSG BOX Titel nur aufzählen wenn Spalte "L" bestimmter Text?

Hallo zusammen,

ich komme bei diesem Code nicht weiter. Die Msgbox soll nur die Zeilen auflisten wenn ihn Spalte "L" der Text "offen" vorkommt. Kann mir dabei jemand bitte behilflich sein?

Private Sub Workbook_Open()

Dim rDatWartung

Dim sMsgBaldFaellig As String

Dim sMsgUeberFaellig As String

sMsgBaldFaellig = ""

sMsgUeberFaellig = ""

lz = Cells(Rows.Count, 5).End(xlUp).Row

For Each rDatWartung In Range("D30:D600")

If rDatWartung.Value <> "" Then

If rDatWartung.Value <= Date + 7 Then

sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatWartung.Row, 4) & " " & vbCrLf & Cells(rDatWartung.Row, 6)

Else

If rDatWartung.Value <= Date + 14 Then _

sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatWartung.Row, 4) & " " & Cells(rDatWartung.Row, 4) & vbCrLf

End If

If sMsgUeberFaellig & sMsgBaldFaellig <> "" Then

MsgBox "Überfällig" & vbCrLf & " " & sMsgUeberFaellig

End If

End Sub

Herzlichen Dank, und einen schönen Abend

...zur Frage

Excel VBA Taschenrechner programmieren, Komma geht nicht?

Hey :) kann mir da jemand weiterhelfen. ich weiß nicht ganz wie ich es schaffe, dass das Komma richtig berechnet wird und nicht nur so angezeigt wird. bin über jede hilfe dankbar. 1 stunde hab ich noch zeit bevor ich die hausübung hochladen muss x_x nächstes mal schieb ichs lieber nicht die ganzen ferien auf

Option Explicit Dim Zahl1 As Integer Dim Zahl2 As Integer Dim Operator As String Dim zähler As Long

Private Sub cb0_Click() Me.tbanzeige = Me.tbanzeige & "0" End Sub

Private Sub cb1_Click() Me.tbanzeige = Me.tbanzeige & "1" End Sub

Private Sub cb2_Click() Me.tbanzeige = Me.tbanzeige & "2" End Sub

Private Sub cb3_Click() Me.tbanzeige = Me.tbanzeige & "3" End Sub

Private Sub cb4_Click() Me.tbanzeige = Me.tbanzeige & "4" End Sub

Private Sub cb5_Click() Me.tbanzeige = Me.tbanzeige & "5" End Sub

Private Sub cb6_Click() Me.tbanzeige = Me.tbanzeige & "6" End Sub

Private Sub cb7_Click() Me.tbanzeige = Me.tbanzeige & "7" End Sub

Private Sub cb8_Click() Me.tbanzeige = Me.tbanzeige & "8" End Sub

Private Sub cb9_Click() Me.tbanzeige = Me.tbanzeige & "9" End Sub

Private Sub cbdurch_Click() Zahl1 = Me.tbanzeige.Text Operator = "/" Me.tbanzeige.Text = "" End Sub

Private Sub cbend_Click() End End Sub

Private Sub cbhae_Click() Me.tbanzeige = Me.tbanzeige & "Gib doch endlich eine Rechnung ein" End Sub

Private Sub cbist_Click() Zahl2 = Me.tbanzeige.Text If Operator = "+" Then Me.tbanzeige.Text = Zahl1 + Zahl2 ElseIf Operator = "-" Then Me.tbanzeige.Text = Zahl1 - Zahl2 ElseIf Operator = "*" Then Me.tbanzeige.Text = Zahl1 * Zahl2 ElseIf Operator = "/" Then Me.tbanzeige.Text = Zahl1 / Zahl2 End If

Operator = "="

End Sub

Private Sub cblöschen_Click() Me.cblöschen = "" End Sub

Private Sub L_Text_Click()

End Sub

Private Sub cbkomma_Click() Me.tbanzeige = Me.tbanzeige & "," End Sub

Private Sub cbloeschen_Click() Me.tbanzeige.Text = ""

End Sub

Private Sub cbmal_Click() Zahl1 = Me.tbanzeige.Text Operator = "*" Me.tbanzeige.Text = "" End Sub

Private Sub cbminus_Click() Zahl1 = Me.tbanzeige.Text Operator = "-" Me.tbanzeige.Text = "" End Sub

Private Sub cbplus_Click() Zahl1 = Me.tbanzeige.Text Operator = "+" Me.tbanzeige.Text = "" End Sub

Private Sub CommandButton1_Click() Userform1.Show End Sub End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub cbPrimzahl_Click() Zahl1 = Me.tbanzeige.Text Me.tbanzeige = "ist eine Primzahl"

For zähler = 2 To Sqr(Abs(Zahl1)) Me.tbanzeige = "ist eine Primzahl" If Abs(Zahl1) Mod zähler = 0 Then Me.tbanzeige = "ist keine Primzahl"

Exit For End If

Next zähler

End Sub

Private Sub UserForm_Click()

End Sub

...zur Frage

Name + User?

Hallo,

was müsste ich hier anpassen? Ich komme mit der Fehler Meldung nicht zurecht.

Private Declare 36 GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetNTUserA() As String
  
 Dim sBuffer As String
 Dim LSize As Long
 Dim user As String
  
 sBuffer = Space$(255)
 LSize = Len(sBuffer)
  
 Call GetUserName(sBuffer, LSize)
  
 If LSize > 0 Then
  user = Left$(sBuffer, LSize - 1)
 Else
  user = vbNullString
 End If
  
 GetNTUserA = user
  
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 6 Then
    Target.Offset(0, 11).Value = Date
  End If
      
    If Target.Column = 6 Then
    Target.Offset(0, 10).Value = GetNTUserA
  End If

End Sub

...zur Frage

Excel, Userform: Datum aus Textbox wird in der Zelle nicht als Datum erkannt?

Ich habe folgenden Code:

Private Sub Fertig_Click()

Dim last As Integer

last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1

Tabelle9.Cells(last, 1) = Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy")

End Sub

In der Zelle nachher wird es nicht als Datum erkannt.
Muss es aber als Datum sortieren können.

Ich habe schon viele Foreneinträge zu dem Thema gelesen, doch nichts davon funktioniert bei mir.

...zur Frage

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

...zur Frage

VBA text Body wird teilweise in Zelle geschrieben anstatt in eMail?

Hallo,

ich habe folgendes Makro erstellt, um automatische eMail Anfragen in Outlook zu generieren und an manchen Tagen kommt es vor, dass der Text Body in eine Zelle des Excel Sheets geschrieben wird, anstatt in die eMail selbst, hier wird dann zwar die eMail generiert, aber lediglich mit den Empfängern und den Betreff. Woran kann das liegen und wie kann ich Abhilfe schaffen.

Sub Amendment_Initial_Capturing()

Dim olApp As Object

Dim objOutlook As Object

Dim objMail As Object

Dim Text As String

Set olApp = CreateObject("Outlook.Application")

Set objMail = olApp.CreateItem(0)

Text = "Dear all, " & Chr(13) & Chr(13) & " please perform the amendment of the initial capturing. Thanks."

With objMail

'.GetInspector ' sorgt für die Signatur

.To = "xxxxx"

.cc = "xxxxx"

.Subject = "DEALNAME - AMENDMENT INITIAL CAPTURING"

.Display

End With

SendKeys Text

Set olApp = Nothing

End Sub

...zur Frage

Excel VBA eine definierte Shape bewegen?

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

...zur Frage

Excel VBA jede n-te Zeile finden und bei der Ausgabe die Steps ignorieren?

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

Dim bereich1 As Range

Dim bereich2 As Range

Dim x As Integer

Dim y As Integer

Dim ZeilenNr As Integer

'Den Bereich auswählen

Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

Set bereich2 = Range("Tabelle1!B5:B30000")

'Zeilen zählen

ZeilenNr = bereich1.Rows.Count

ZeilenNr = bereich2.Rows.Count

'Jede zweite Zelle im Bereich durchlaufen

For x = 3 To ZeilenNr Step 21

'den Wert aus Spalte B in Spalte C eintragen

bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

End Sub

...zur Frage

VBA Objektvariable oder With Blockvariable nicht festgelegt?

Hallo habe folgenden Code:

Bekomme beim debuggen nach der Zeile "Objektvariable oder With-Blockvariable nicht festgelegt" Ich sehe mein Fehler leider nicht, hat jemand eine Ahnung?

Dim wbSAP As Workbook
Dim wbStamm As Workbook
Dim sapSheet As Worksheet
Dim stammSheet As Worksheet
Dim sapRange As Range
Dim stammRange As Range
Dim curSapCell As Range
Dim foundStammCell As Range
Dim nextStammRowNr As Integer
Set wbSAP = Workbooks.Open(ThisWorkbook.Path & "\SAP-Abfrage_GEN-User_SUIM.xls") 
Set wbStamm = ThisWorkbook


Set sapSheet = wbSAP.Sheets("SAP-Abfrage_GEN-User_SUIM") 
Set stammSheet = wbStamm.Sheets("Tabelle1")


Set sapRange = sapSheet.Range("B29:B105") 
Set stammRange = stammSheet.Range("F2:F81")


For Each curSapCell In sapRange  
   
foundStammCell = stammRange.Find(curSapCell.Value, LookAt:=xlWhole)     
If Not foundStammCell = curSapCell.Value Then  
       
stammSheet.Range("M" & nextStammRowNr) = sapSheet.Range("M" & curSapCell.Row).Value        
 nextStammRowNr = nextStammRowNr + 1     
Else        
stammSheet.Range("M" & foundStammCell.Row) = sapSheet.Range("M" & curSapCell.Row).Value     
End If
Next curSapCell

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen