VBA – die besten Beiträge

Hallo, ich möchte wie hier z. B in Zelle 14 mehrere Zahlen zum auswerten aus einer Tabelle ansprechen. Habe das mit einer Zahl geschafft, aber ich müsste halt mehrere ansprechen / auswählen können. Kann mir da bitte jemand weiter helfen? Gruß

liO.AutoFilter.ShowAllData      'Erst mal alle Daten anzeigen dass nicht noch ein Filter was verfälscht
Gruppe = Application.InputBox(Title:="Auswahl der betroffenen Gymnastikgruppe", Prompt:="Geben Sie die Nummer der Sportgruppe ein:", _
Default:="Hier eingeben", Type:=1)
liO.Range.AutoFilter Field:=14, Criteria1:=Gruppe  'hier wird die 14. Spalte als Filter gesetzt

Hallo, kann mir bitte einer weiterhelfen?? Bin am verzweifeln und weiß nicht, was ich falsch mache die ganze Zeit 😫 habe einen Fehler in der MsgBox… wo genau?

Hallo, ich habe einen VBA Code wo ich Spalten aus einer Excel- Datei nach Word kopiere. Jetzt möchte ich den Spalten unterschiedliche Längen vorgeben.

Den Code zum kopieren ist folgender:

    With liO.Range
      .Columns.Hidden = True                'jetzt werden erst mal alle Spalten ausgeblendet
      .Columns(2).Hidden = False    'Nummer           'und hier die Spalten die du brauchst wieder eingeblendet
      .Columns(4).Hidden = False    'Name
      .Columns(5).Hidden = False    'Vorname
      .Columns(13).Hidden = False   'gen_bis
      .Columns(14).Hidden = False   'Gruppe
      .Columns(19).Hidden = False 'Krankenkasse
      .Columns(21).Hidden = False  'Bemerkung
      
       '.Columns("B:O").EntireColumn.AutoFit 'geht so nicht
      
    End With

Wie muss ich den Code veräandern/ergänzen um für jede Zelle eine individuelle länge der Zelle zu erhalten? Gruß

Ich habe von einen alten Arbeitskollegen der schon in Rente ist, ein VBA Projekt bekommen und verzweifle daran.

Das Projekt funktioniert ansich aber ich soll eine Funktion ändern:

Documents.Add Template:= _

  "c:\word\Link.dot", _

  NewTemplate:=False, DocumentType:=0

Hier wird ein neues Document erzeugt mit einem Template. Das Problem ist, dieses Template bezieht

auch noch Daten aus einen anderen Projekt "Common". Im Grunde wird mit "Documents.Add Template:= _"c:\word\Link.dot""

in Link.dot die Document_Open() ausgeführt und das Common Projekt initialsiert.

Private Sub Document_Open()

  Common.Initialize

End Sub

Ich möchte aber nicht, das durch Documents.add ein 2. Document geöffnet wird, es soll das bereits aktive Dokument verwenden.

ich hab es mit diesen 2 Varianten bereits versucht:

#1

Dim oDoc As Document

  Set oDoc = ActiveDocument

  oDoc.AttachedTemplate = "c:\word\Link.dot"

#2

ActiveDocument.AttachedTemplate = "c:\word\Link.dot"

Leider passiert bei beiden, rein garnicht. Ich denke mal es liegt daran, das Document_Open() nicht ausgeführt wurde. Weiß jemand einen Rat?

Bei Tabellen ist es mir schon gelungen mit ActiveDocument.Tables.

Wie kann ich Checkboxen (Active X Steuerelement) und andere Elemente ansprechen?

Hallo,

ich habe mich in letzter Zeit in VBA eingearbeitet und bräuchte etwas Hilfestellung. Ich möchte, dass der User mehrere Zeilen untereinander markiert und diese daraufhin auf ein anderes Tabellenblatt genauso untereinander eingefügt werden. Hab es mit der application.InputBox Type 64 schon probiert, aber das klappt nicht ohne manuelle Eingaben.

Hallo zusammen

Ich habe einen VBA Code erstellt, welcher die gesamte Zeile löscht, wenn in der Spalte L "Löschen" steht. Dieser funktioniert auch so weit jedoch endet das Makro bevor alle Zeilen mit "Löschen" gelöscht sind. Und ich muss das Makro mehre Male ausführen damit alle "Löschen" weg sind.

Vielen Dank für eure Antworten

Hey brauch mal eure Hilfe in vba power query

Ich brauche eine Abfrage if then style

sie muss können :
Montag - Donnerstag = Table.SelectRows(#"Umbenannte Spalten", each Date.IsInNextNDays([DATUM], 1))

jedoch Freitag == Table.SelectRows(#"Umbenannte Spalten", each Date.IsInNextNDays([DATUM], 3))

wie bekommt man diese If Then sachen in power query hin ?
Danke für eure Hilfe

Ich habe ein kleines Schere Stein Papier Programm gebaut und will jetzt, dass wenn ein Knopf gedrückt wird das Ergebnis des Computer Gegners angezeigt wird und nach einer Sekunde wieder entfernt wird. Ich habe alles fertig soweit, dass einzige, was ich noch brauche ist die Sekunde Wartezeit. Hier ist der Code:

Sub Submit_Button()
[A1] = "GO"
Application.OnTime Now + TimeValue("00:00:01"), "Spiel"
[A1] = ""
End Sub

Hallo,

gibt es eine Möglichkeit, in VBA (Excel) ein Unicodezeichen in den Text einer Message Box einzubinden? Konkret geht es mir um das Warning sign.

Die Möglichkeit, die MsgBox-Konstante vbExclamation zu verwenden, ist mir übrigens bekannt, das ist aber nicht das, was ich meine bzw. möchte.

Vielen Dank für eure Hilfe!

Gruß, BerchGerch

Ich hätte zwei Fragen zu VBA in Excel über das Range-Objekt. Es wäre sehr nett, wenn mir jemand weiterhelfen könnte.

1_Frage

Worksheets(3).Range("A2:C3").Select

Auf dem dritten Arbeitsblatt wird der Bereich A2 bis C3 markiert. Klappt solange das dritte Arbeitsblatt aktiv ist, d. h. ich habe es anklickt.

Befinde ich mich z. B. auf worksheets(2) kann der Befehl Worksheets(3).Range("A2:C3").Select nicht mehr ausgeführt werden?

Laufzeitfehler 1004 Anwendungs- oder Objektorientierter Fehler

2_Frage

Dim Bereich as Range

Set Bereich = worksheets(3).Range("A2:C3")

Bereich.select

Die Zuweisung über Set kann ich ausführen, egal welches Arbeitsblatt ich angeklickt habe. Jedoch Bereich.select funktioniert nur, wenn ich mich wieder auf Blatt 3 befinde (bzw. dieses angeklickt habe)?

Sonst Laufzeitfehler 1004...

Kann mir hier jemand bitte weiterhelfen. Danke!

Hallo zusammen,

was müsste ich hinzufügen, um den Laufzeitfehler 5 zu umgehen? Wenn ich den VBA-Code ausführe, öffnet sich das Fenster für den Import von DAT-Dateien. Drücke ich auf Abbrechen, erscheint der Laufzeitfehler 5. Vermerkt wird der Code "Set F = fs.GetFolder(strPfad)". Wo und welchen Code müsste ich hinzufügen, um den Fehler zu beheben? Vielen Dank im Voraus. :)

Sub Schaltfläche1_Klicken()
'
'
'*** Öffnen von DAT-Dateien
Dim strText As String, strFilter As String

strText = "Bitte eine Auswertung Auswählen"
strFilter = "DAT-Dateien (*.DAT), *.DAT"""
strAuswahl = Application.GetOpenFilename(strFilter, 1, strText)
strPfad = Pfad_ermitteln(strAuswahl)
'
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(strPfad)
Set fc = F.Files

If ActiveSheet Is Nothing Then Workbooks.Add
For Each File In fc
    Zeile = Cells(65000, 1).End(xlUp).Row + 2
    strEinfügen = Cells(Zeile, 1).Address
    strAuswahl = File.Path

    'Einfügen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strAuswahl _
        , Destination:=Range(strEinfügen))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = ","
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
  End With
  Range(strEinfügen).QueryTable.Delete
Next
End Sub
_______________________________

 Function Pfad_ermitteln(ByVal strAuswahl As String) As String
 
 For i = Len(strAuswahl) To 1 Step -1
    If Mid(strAuswahl, i, 1) = "\" Then
        Pfad_ermitteln = Left(strAuswahl, i - 1)
        Exit Function
    End If
Next
End Function

Ich möchte mehrere Zip-Ordner (alle in einem Ordner) entpacken lassen. Diese haben alle ähnliche Namen (Stundendaten...). Sie sollen nach dem entpacken die Zip Ordner ersetzen, sodass ich in dem Ordner dann nur noch die entpackten Ordner und keine Zip mehr habe.

Danke schonmal im voraus :)

Hallo erstmal,

Ich möchte in Excel ein Feld haben bei dem ich mit der Maus drüber fahre und ein Fenster aufkommt indem dann ein Bild ist. So weit so gut. Ich habe es mit Kommentaren probiert und den Hintergrund so formatiert, dass er das Bild wiedergibt. Allerdings verstellt sich immer wieder beim Öffnen der Datei die Kommentar Größe, sodass das Bild nicht ganz angezeigt wird (was allerdings erforderlich wäre. Es mit VBA mouse over label unsichtbar..... Zu probieren geht prinzipiell allerdings sind die Fenster so gestaltet, dass sie minimiert und maximiert werden (siehe Bild) dadurch passt das Label dann nicht mehr auf die Größe der Zelle, also bitte Hilfe, wie mach ich das am besten?

Danke schon im Voraus.

PS. Falls jemanden interessiert was diese Zeichen zu bedeuten haben, es geht um Rubiks Würfel.

Ich weiß, Kommentare wie: "nimm doch Trainingsapps, die sind besser" sind nett gemeint, allerdings möchte ich diese Problem unbedingt lösen, einfach damit ich nicht aufgebe.

Hi, ich möchte in meiner Excel Liste einen hyperlink erstellen, der beim betätigen eine vba ausführt, ist das möglich?

In der Prozedur test wird die Prozedur zahlen aufgerufen. Es werden werden die Werte der Variablen a = 2 und b = 3 als Parameter an die Prozedur zahlen übergeben. a wird nun für x verwendet und b für y.

Gibt es eine Möglichkeit die Reihenfolge der Parameterübergabe zu vertauschen?

D. h a = 2 soll nicht x zugeordnet werden sondern y und b = 3 soll nicht y sondern x zugeordnet werden. Natürlich könnte man jetzt bei der Deklaration von

Sub zahlen(Byref y as integer, Byref x as Integer)

schreiben. So würde a = 2 dann y zugeordent werden und b = 3 dann x.

Gibt es eine andere Möglichkeit die Reihenfolge der Parameter bei der Übergabe zu vertauschen. Laut Lehrbuch:

► Kann mir dies jemand an meinem Bsp. erläutern, wie man dies macht?

Hi,

wie schaffe ich es, dass der Filter nicht mit "TEST", sondern mit der Variable gefüllt wird? (Variable ist einfach nur "Z")

Sub Schaltfläche6_Klicken()
'
' Schaltfläche6_Klicken Makro
'

'
Dim Variable As Variant


Variable = Range("B1").Value

   ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:= _
       "TEST"
End Sub