Hallo VBA Experten, wie kann ich 2 Comboxen miteinander verbinden ? Unter dem Code von Combbox1 steht eine genauere Beschreibung meines Anliegens

Private Sub UserForm_Initialize()
Dim LastRow As Long
Dim I As Long
Dim J As Long
ReDim Liste(1) As String

    J = 1
   
    LastRow = Worksheets("Daten").Range("B:B").End(xlDown).Row
    For I = 1 To LastRow
    
   
  
        If Worksheets("Daten").Cells(I, 7) = "nein" Then
        If Worksheets("Daten").Cells(I, 6) = "ja" Then
         
            ReDim Preserve Liste(J)
            Liste(J) = Worksheets("Daten").Cells(I, 2).Text
            J = J + 1
        End If
        End If
  Next I
    ComboBox1.List() = Liste()

End Sub

Ich möchte , dass mir eine Zweite Combobox2 automatisch die Projektnummer(befindet sich in Spalte A ) des Jeweiligen Kunden aus Spalte B in die Combobox2 einfügt, das heißt praktisch: Wenn ich in Combobox1 einen Namen aussuche sollte es mir die passende Projektnummer aus der gleichen Zeile aus Spalte A in die Combobox2 eintragen. Danke schon im Vorraus

        Private Sub UserForm_Initialize()
With Me.txtDatum.Value = Date


   Dim r As Range
With Worksheets("Daten")
        Set r = .Range("B1", .Range("B65536").End(xlUp))
ComboBox1.RowSource = "Daten!" & r.Address
End With
End With




End Sub     

Ist es möglich, dass die combobox all jene Daten herausfiltert wo, in Spalte G nein steht? Also praktisch dass es mir nurmehr jene Daten aus Spalte B in der Combobox anzeigt wo in der gleichen Zeile in Spalte G ein nein steht ? Danke im Voraus

Guten Tag zusammen, ich habe eine Vorlage "Tagesplan.dotm", die dazu dient, eine mit ihr geöffnete Datei unter einem vorgegebenen Namen zu speichern.

Dies geschieht so:

Sub FileSave()

If ActiveDocument.Path = "" Then 'Falls Dokument noch nie gespeichert wurde FileSaveAs Exit Sub End If ActiveDocument.Save

End Sub Sub FileSaveAs()

Dim DocName As String

With ActiveDocument DocName = "Tagesplan" & "_" & ActiveDocument.Bookmarks("Nachname").Range.Text & "_" & ActiveDocument.Bookmarks("Vorname").Range.Text & "_" & Format(Now, "yyyy-mm-dd_HH-MM") End With

With Dialogs(wdDialogFileSaveAs) .Name = DocName .Show End With

End Sub

Dies funktioniert auch einwandfrei. Wahrscheinlich deshalb, weil ich es nicht selbst erstellt , sondern mir mangels ausreichender Kenntnisse zusammengeklaubt habe.

Ich möchte nun zweierlei erreichen:

1. dass zusätzlich zum vorgegebenen Dateinamen auch der Pfad vorgegeben wird

2. dass die somit erstellte und benannte Datei beim erneuten Öffnen und anschließendem Speichern mit aktueller Zeitangabe, also verändertem Namen gespeichert wird.

Da blieben meine weiteren Zusammenklaub-Versuche erfolglos.

Vielleicht kann mir jemand behilflich sein.

Im Voraus vielen Dank,

viele Grüße

rachpaka

Ich habe eine Tabelle in der nur bestimmte Textinhalte formatiert werden sollen. Das Makro soll nach einer ganz bestimmten Zeichenfolge (z.B. " -- ") in den Tabellenzellen suchen. Wenn er diese Zeichenfolge in der Zellle gefunden hat, soll der ganze Zellinhalt linksbündig, fett und unterstrichen formatiert werden. Das Makro soll so die ganze Tabelle durchsuchen. Ich bekommen das irgendwie nicht hin. Über eine Hilfe wäre ich dankbar. Viele Grüße JanSchnie

Hallo,

ich habe in Powerpoint 2010 eine interaktive Schaltfläche erstellt und mit einem Makro zum Schließen des Programms verknüpft. Nun würde ich diese Schaltfläche gern so formatieren, daß ein Icon/Bild darauf zu sehen ist. Also auf die Schaltfläche drauf packen. Das funktioniert aber nicht, weil man dann ja nicht mehr auf die Schaltfläche, sondern nur auf das Icon/Bild klickt. Gruppierung hab ich schon versucht, geht leider auch nicht.

Die Vorgehensweise ist in Excel, Word, .... vermutlich die gleiche, muß also nicht speziell für Powerpoint sein.

Hat jemand einen heißen Tipp für mich ?

Der Titel ist mehr als verwirrend...

Ich habe eine Liste mit knapp 380.000 Zeilen. Sie enthält Datenwerte, einer pro Zeile und somit unterscheiden sich alle. Manche Werte beginnen mit Ziffern (1-0), Sonderzeichen (-_=+%&) oder manche mit Buchstaben(a-z, A-Z). Ich habe nun das Problem, vor jeden dieser Werte muss ich einen Präfix stellen. Dieser ist immer identisch aufgebaut und endet mit einem Punkt (.).

Beispiel

Aus -1234ABC12 soll SYNTAX.-1234ABC12 werden

Ich hatte schon an einen Trick mit Excel gedacht, alles in Spalte B einfügen und in Spalte A via Makro die Syntax setzen, aber das ist ein riesen gefummel bei so vielen Zeilen, zumal Excel das nicht packt. Nach 20.000 Zeilen gibt der Prozess schon fast den Geist auf.

Kann ich via einer MySQL Datenbank oder Notepad++ was mit ausrichten? Ich brauche die Liste später wieder als .txt Datei, zur weiteren Verarbeitung.

Moin moin,

bin leicht am verzweifeln ^^''

Datenbankinhalte zweiter ODB's sollen vergleichen werden...sie haben auch soweit den gleichen Inhalt, nur jeweils in einem anderen Format :/

Die eine - schön tabellarisch - , die andere in dieser Struktur:

1
Key1    1
Key2    a
Key3    z

2
Key1    3
Key2    b
Key3    z

Aber genau diese sollte am Ende ebenfalls diese Form hier haben:

Nr  Key1    Key2    Key3
1   1       a       z
2   3       b       y

Ich habe keinerlei Anhaltspunkte wie und womit...ich denke an VBA unter Access, aber wie genau? Für etwaige Ideen bzw Hilfestellungen wäre ich sehr dankbar :)