Hallo, folgendes Problem: ich habe zwei Excel-Dateien, in beiden sind Datensätze mit eindeutigen Nummern. Jetzt soll es in Datei-A nacheinander jede Zeile der Spalte A nehmen, in Datei-B danach suchen und wenn es nicht gefunden wurde, soll es die nicht gefundene Zeile aus Datei-A in Datei-B an die letzte Stelle anfügen. Und das soll es mit jeder einzelnen Zeile aus Datei-A machen (also mit einer While-Schleife).

Kann mir wer helfen?

Hallo zusammen,

ich möchte aus einem Bericht in einer bestimmten Spalte in Excel ein Datum aus einem Text auslesen. Da es aber nicht als Datum in Excel formatiert ist komme ich nicht weiter. Gibt es die Möglichkeit, nach einer bestimmten Zeichenfolge zu suchen? Also z.B. ZahlZahlPunktZahlZahlPunktZahlZahlZahlZahl (tt.mm.jjjj)?

Danke für eure Ideen :)

Schönen Gruß Jan

Hallo, ich habe einen Button in Excel, über welchen die aktuellste Version eines Dokuments in einem Ordner geöffnet werden soll. Der Pfad zum Ordner ist z.B. C:\Hallo\ und die Dokument-Namen habe immer folgenden Aufbau: beispiel-JJJJ_MM_DD.xlsx. In dem Ordner befindet sich auch nichts anderes außer den Dokumenten mit diesem Aufbau. Kann mir hier jemand helfen?

Hi!

Ich habe mich gefragt ob es möglich wäre sobald man eine Excel Datei öffnet direkt den gesamten Inhalt von C:\Temp\PDMCAD\SE zu löschen und Excel danach wieder zu schließen?!

Achtung! Es können noch Dateien aus diesem Ordner offen sein, dh hier müsste er die Dateien überspringen und die nicht gebrauchten folgenden Dateien wieder löschen.

Wäre cool wenn einer bescheid weiß!

Hallo, ich habe ein kleines Programm in VBA. Ich hänge gerade an folgender Stelle: Es sind 2 Excel-Dateien geöffnet (Datei-A und Datei-B). Das aktive Workbook ist Datei-A. Jetzt möchte ich aus Datei-B eine Zelle auslesen und diese einer Variablen als Wert zuweisen. Wie mache ich das? Datei-B ist ja weder das ActiveWorkbook, noch muss ich es erst noch öffnen, um es zum ActiveWorkbook zu machen. Ich möchte kurz gesagt zwei Variablen: Variable A ist Datei-A und Variable B ist Datei-B und möchte so immer zwischen diesen beiden unterscheiden. Ich möchte gerne ohne "ActiveWorkbook" arbeiten. Ich hoffe man versteht mein Problem und ihr könnt mir helfen.

Hi,

ich möchte, dass bei verbundenen Zellen die Zeilenhöhe automatisch en den Text angepasst wird. Gleichzeitig soll aber die Zellenformatierung (Schriftwart- und Größe, etc) nicht verändert werden. Ich hoffe, hier kann jemand helfen, ich bin echt verzweifelt.

Danke.

Ich möchte mittels VBA-Button gerne eine Anzahl von Spalten kopieren um meine Kalkulation somit zu erweitern.

Spalte E:H bilden die "Master-Spalten-Set". Diese Spalten sollen immer vor der Spalte in der die Zelle "Total Qty" vorkommt kopiert werden.

Mein aktueller Code lautet:

Sub Makro1()
    Columns("E:H").Select
    Selection.Copy
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight
End Sub

Wie muss ich diese Code erweitern um variable vor der Spalte mit der Zelle "Total Qty" das "Master-Spalten-Set" einzufügen?

Danke

Hallo zusammen, ich möchte gerne über VBA einer Date-Variablen den Wert aus einer bestimmten Zelle zuordnen in der Form "YYYYMMDD", einen Tag abziehen und anschließend mittels MsgBox ausgeben. Es steht z.B. in Zelle A2: "20160701" und es soll am Ende "20160630" ausgeben.

Kann mir hier kurz jemand helfen?

Hallo liebe Community,

ich weiß, es gibt mehrere Leute, die diese Frage schon gestellt haben, aber ich bekomme es einfach nicht hin. Vielleicht habe ich auch nur gerade eine Denk(Dummheits)Blockade, versuche das seit ca 2 Stunden zu realisieren.

Ich habe eine Tabelle mit diversen Daten und ein (Balken)Diagramm, welches für jede weitere Zeile in der Tabelle einen neuen Balken hinzufügen sollte. Das ist an sich nicht schwer, aber ich möchte, solange noch keine Daten vorhanden sind, keine leeren Stellen im Diagramm... (siehe: https://gyazo.com/346a1e059ea781ea82d471505856904a) ...und das kriege ich nicht hin.

Ich habe eine Hilfstabelle gemacht und einen Filter darüber gelegt, dass alle leeren ("") Zellen ausgeblendet werden, das funktioniert auch soweit im Diagramm, aber ich muss nach jedem Eintrag in die eigentliche Tabelle wieder den Filter von Hand aktualisieren und das ist ärgerlich.

Ich hoffe ihr könnt mir helfen, sonst sehe ich schwarz für meinen PC und mein Fenster (und eventuelle Fußgänger). Erklärt es am besten so, wie ihr es einem 6 Jährigen erklären würdet. :)

Grüße Tuesday

/ps: Was ich bisher ausgegraben habe und (vermutlich wegen mangelnder - bis nicht existenter - VBA Kenntnis) nicht funktioniert hat:

• office-loesung.de/ftopic93223_0_0_asc.php

• office-loesung.de/ftopic60304_0_0_asc.php

• gutefrage.net/frage/excel-gefilterte-daten-automatisch-aktualisieren

Hallo zusammen,

ich bin gerade dabei, eine Datenbank zu erstellen und würde dafür gerne Daten von einer Website automatisch auslesen lassen. Konkret geht es um die Arbeitslosenquoten aller Landkreise und Städte, die von der Bundesagentur für Arbeit monatlich veröffentlicht werden.

Hier ein Link zu einer Beispielstadt: https://statistik.arbeitsagentur.de/Navigation/Statistik/Statistik-nach-Regionen/Politische-Gebietsstruktur/Bayern/Amberg-Stadt-Nav.html

Im Beispiel sollte die Arbeitslosenquote insgesamt (5,9) und der Stand der Angabe (Mai 2016), der über der Tabelle steht, ausgelesen werden.

Im HTML-Code ist die Quote in folgender Zeile angegeben: 5,9 Beim Datum sieht es folgendermaßen aus: Ar­beits­markt im Über­blick - Be­richts­mo­nat Mai 2016 - Am­berg, Stadt

Dabei sollten die ausgelesenen Werte in zwei separaten Excel-Feldern ausgegeben werden. Das muss aber nicht zwingend alles in einem Makro geschehen. Zwei Makros für die unterschiedlichen Felder wären optimal, da ich den Code dann wahrscheinlich auch besser nachvollziehen kann.

Da die direkte Webabfrage über Excel nicht funktioniert, weil die Seite nicht korrekt geladen wird, denke ich, dass VBA hier unumgänglich ist, oder? Ich habe jedoch leider keine Programmierkenntnisse und bin aus den Einträgen in diversen Foren leider auch nicht schlau geworden.

Im Nachhinein müsste das Makro entsprechend anpassbar sein, sodass ich auch die Daten der anderen Städte auslesen kann (die Quellseite ist immer nach dem gleichem Prinzip aufgebaut).

Falls jemand eine Idee hat, wie das Problem zu lösen ist, würde ich mich sehr darüber freuen! Vielen Dank!

Hallo, ich habe in Excel eine XLSM-Datei und eine accdb-Datei für Access. Jetzt versuche ich in der Excel Datei mittels VBA auf Knopfdruck eine Verbindung zu der Datenbank aufzubauen und probehalber alle Datensätze zu löschen, das funktioniert jedoch nicht, es wird also vermutlich schon die Verbindung nicht klappen... Code ist folgender (aus dem Internet zusammenkopiert, da ich noch nie mit Access-Datenbanken gearbeitet habe):

Public Sub test_db()
Dim conn As ADODB.Connection

    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = W:\CU-AL\..."
    Sql = "DELETE * FROM Test"
    conn.Close
    End Sub

Was mache ich falsch? Vorallem: welchen Provider brauche ich???

Und ich muss doch auch in Excel unter "Extras" --> "Verweise" bestimmte Häckchen setzen. Wisst ihr, welche das sind?

Hallo liebe Community,

ich versuche seit einer knappen Stunde diese Problem zu lösen und habe auch schon google konsultiert, konnte aber bisher keine zufriedenstellende Lösung finden.

Mit einem Zwischenschritt ohne VBA würde ich es hinbekommen, aber da ich diese Funktion sehr oft benutzen werde, wollte ich es doch etwas angenehmer haben.

• Excel 2013

• Mein Bereich ist E6:I400

• Die kopierten Daten haben immer diesen Aufbauen: (Dezimal-)Zahl + Buchstaben (z.B. 0,9 g, 123 kcal)

Ich hätte nun gerne einen Knopf, den ich aktivieren kann, der dann in allen Zellen in meine Bereich jegliche Buchstaben/Leerzeichen entfernt und nurnoch die Zahlen ausgibt (also nurnoch 0,9 und 123 mit obigem Beispiel).

Ich hoffe ihr könnt mir helfen.

Vielen Dank im Voraus Tues

Hallo, ich habe eine große Excel Tabelle und muss nun das Datum aus einer Zelle lesen, um es in eine andere zu schreiben. In der Zelle steht beispielsweise "neu ab 07.05.16". Jetzt muss ich aus dieser Zelle das "07.05.16" lesen und in eine andere schreiben. Die Zellen haben immer dasselbe Format: Neu ab 'Datum'. Kann mir hier jemand helfen? Das ganze soll mit VBA gemacht werden.

Hi, folgende Aufgabe muss ich lösen: Nach Eingabe von zwei Zahlen fragt das Programm ob plus oder minus gerechnet werden muss und gibt dann das entsprechende Ergebnis aus... Ich habe folgende Lösung:

Public Zahl1, Zahl2, Ergebnis As Long

Public Art As String

Sub Zahlen()

Zahl1 = InputBox("Geben Sie die erste Zahl ein: ")

Zahl2 = InputBox("Geben Sie die zweite Zahl ein: ")

Art = InputBox("Sollen die Zahlen addiert oder subtrahiert werden? +/-")

If Art = "+" Then

Ergebnis = (Zahl1 + Zahl2)

Else

Ergebnis = (Zahl1 - Zahl2)

End If

MsgBox ("Das Ergebnis lautet " & Ergebnis & ".")

End Sub

Das Problem ist, dass das Ergebis, wenn Zahl1 & 2 jeweils 1 sind, ja logischerweise 2 sein müsste...allerdings kommt halt 11 raus. Also er fügt die Zahlen einfach zusammen.

Kann mir da jemand helfen?? Danke im Voraus :)

Ich würde wissen, ob es eine Formel für Excel gibt, um zu prüfen, ob der Text in einer bestimmten Zelle durchgestrichen ist. Mit VBA wüsste ich schon wie das geht, allerdings konnte ich in dieser Tabelle bislang alles mit Excel-Formeln lösen und möchte jetzt nicht extra ein Makro aufmachen für diese kleine Aufgabe.

Danke im Voraus!

Hallo, wie oben schon beschrieben. Ich versuche mich zur Zeit an VBA und möchte nun eine Funktion, die prüft, ob die Schriftfarbe eines Textes in einer Zelle rot ist. Gibt es hier eine passende Funktion? Falls das jemand weiß, noch eine weitere Frage: Dasselbe wie oben, nur möchte ich auch noch prüfen, ob der Text in einer Zelle durchgestrichen ist. Gibt es hierzu etwas passendes?

Hallo Forum!

Betreffend meiner Frage möchte ich eine Tabelle für einen Einfeldträger programmieren, welche mir die Ergebnisse von Normal- und Querkraft sowie den Biegemoment auswirft. Dazu beziehe ich eine Momentenformel, welche ich durch integrieren ableite um die Stammfunktionen zu bekommen. Jedoch weiß ich nicht wie ich diese Formeln in meine Programmierung einbeziehen kann bzw wie ich die darin vorkommenden Variablen richtig definiere. Bitte um Hilfe!

Angabe siehe Foto:

Hey Leute, ich zocke zur Zeit Pokemon Feuerrot auf dem VisualBoyAdvance und habe eine Seite( http://sfc.pokefans.net/codes/frbg.html#alte-pokemon ) gefunden wo es eine Menge Cheatcodes gibt. Das dumme nur, sie funktionieren nicht! Ich gehe auf Cheats -> List.. -> Gameshark/CodeBreaker (ich gebe hier den Code ein) -> OK -> OK! So, normalerweise sollte nun das gewünschte Pokemon etc. auftauchen, aber nichts geschieht. Ich habe es mal mit Mastercode probiert, mal ohne. Was mache ich denn falsch? Was sollte ich anders machen? Will mir jemand sagen wie ich am Besten den Master- und den Cheatcode eingeben sollte? Ich brauche "HILFE".

Danke im Voraus :)

Ich möchte eine Checkliste erstellen, aus der ich je nach Bedarf mehrere Haken setzen kann und daraus eine Word-Datei mit vorher festgelegten und zu den Haken zugeordneten Textbausteinen erstellt wird.

Beispiel: Ich möchte eine Rechnung erstellen für den Verkauf für Äpfel. Daher klicke ich in der Checkliste auf den Eintrag "Äpfel" und in der anschließend generierten Word-Datei wird ein vorgefertigter Textbaustein eingefügt "Eine Gute Wahl, Äpfel sind sehr gesund.".

Ich hoffe, dass mein Anliegen einigermaßen verständlich ist.

LG Hans

Ich suche ein VBA-Script mit deren Hilfe ich einen Bereich in meiner Tabelle nach einem Kommentar durchsucht, der den Inhalt von Zelle XY enthält. Die Zellen, sollen dann durch bedingte Formatierung eingefärbt werden. (Damit in Zelle XY dann etwas anderes reingeschrieben werden kann und die bedingte Formatierung darauf eingeht.)

Kann mir da jemand weiterhelfen? Ich versuche soetwas mit der Aufzeichnungsfunktion hinzubekommen, aber das klappt nicht!

Danke!

Hi, wie kann ich in VBA prüfen, ob eine Zelle ein Listobject ist oder nicht? Danke für die Antworten schon im Voraus!

Hallo, ich benötige ihre Hilfe bei der Erstellung eines VBA Makros für Excel. Das Makro soll folgendes leisten: Ich habe eine Excel Datei (Nr. 1) in der in einer Zelle ein Wert eingetragen wird. Nach diesem Wert soll dann in einer anderen Excel Datei (Nr. 2) gefiltert werden und anschließend sollen die gefilterten Daten aus Excel Datei Nr. 2 in die Excel Datei 1 kopiert werden. Ist das möglich?

Vielen Dank vorab für ihre Antworten.

Hallo zusammen.

Ich hab leider nix gescheites zu meiner Problemstellung gefunden, deshalb frage ich jetzt einfach mal direkt nach: Ich möchte in einer großen Tabelle nach mehreren Kriterien in der ersten Zeile suchen. In dieser Zeile sind Überschriften (aus einer .xml übernommen). Leider wiederholen sich die Überschriften ab und an, allerdings mit den unterschiedlichsten Ziffern als Anhängsel (zb AKMKaufteile, AKMKaufteile5, AKMKaufteile324...). Das wäre jetzt aber noch kein Problem, da ich ja normalerweise eh nur nach Teilen des Wortes suche. Ich habe allerdings auch Überschriften die ziemlich ähnlich sind und mit als Treffer gewertet werden so wie ich das mache (zb AKMKaufteileD34, AKMKaufteileB412... also immer entweder das D oder das B mit da drin, und diese Spalten brauche ich nicht).

Zusammengefasst möchte ich einfach nur die erste Zeile nach AKMKaufteile (das ohne D und B) suchen und auch die Zellen/Spalten haben, wo die Ziffern angehängt sind; es handelt sich dabei um Preise, bei D ist das Datum und B der Benutzername angegeben, letztere beiden sind uninteressant).

For i = 1 To 1000
   If InStr(1, Cells(1, i).Value, "AKMKaufteile") > 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileB*") = 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileD*") = 0 Then
      For j = 1 To 300
         If InStr(1, Cells(j, i).Value, "") > 0 Then
             Cells(j, i).Activate
              ActiveCell.Copy Destination:=Worksheets("Ergebnis").Cells(j, 10).Offset(1)
         End If
      Next j
         
   End If
Next i

(So klappt es leider nicht)

Vielen Dank für jeden Tipp der mich weiterbringt ::)

Gruß

Jan

Hallo Zusammen,

ich habe folgendes Problem: Ich soll aus einem ziemlich unübersichtlichen Tabellenblatt Zellen aus bestimmten Spalten (mit bestimmter Überschrift) kopieren und in eine andere Tabelle einfügen, wenn der Inhalt > 0 ist. Das blöde hierbei ist, dass sich die Überschriften nach einiger Zeit wiederholen, die Zellen mit den Werten aber immer weiter unten auftauchen (vielleicht wird das ja im beigefügten Bild deutlich, auch wenn die Farben gewöhnungsbedürftig sind :D). Ich möchte also quasi diese Blöcke nehmen und untereinander anordnen, wobei nicht immer alle Überschriften (also auch die Spaltenanzahl) identisch sind :/

Ich bin für jeden Ansatz dankbar. Schönen Gruß Jan

ich habe in C3=Aufgabe; D3=Bearbeiter;E3=Anfangstermin;F3=Endtermin G3=DidDifferenz von Endtermin und Anfangstermin als Dauer der Aufgabe und H3 =die Differenz von Heute und Endtermin. Wenn ich nun die dauer per Hand berechne, ich meine ich gebe die Formel G=F3-H3 rechnet Excel richtig mache ich das selbe über die UserForm kommt Unfug raus. Und wie ich die offenen Termine per UserForm ausrechne weiß ich noch nichtt. Kann mir da einer helfen.

Gruß Monkee

Hallo,

ich habe eine Excel Tabelle erstellt, mit verschiedenen Namen und Zeiträumen (von - bis) zu den Namen erstellt. Ich möchte, dass Excel durch einen CommandButton prüft, ob die Zeiträume korrekt eingetragen sind. Zum Beispiel habe ich beim Namen "Fireflice3" einen Zeitraum von 21.04.2016 bis 20.04.2016. Das ist ja aber kein gültiger Zeitraum, da das "von" Datum größer als das "bis" Datum ist. Vba soll hier eine Msgbox zur Warnung ausgeben. Ich weiß wie man diese Programmierung auf einzelne Zellen anwendet.

Bsp. If cells(Zeile, Spalte) >= cells(zeile, Spalte) then Msgbox("ungültiger Zeitraum") End If

Meine Frage bezieht sich darauf, wie ich diesen Code nicht auf einzelne Zellen anwende sondern auf ganze Bereiche. Kann mir da jemand weiterhelfen?

Besten Dank

Bitte um eine ausführliche Erklärung, weil ich mich noch nicht sehr gut auskenne. Danke für Antworten im voraus.

Hi, ich arbeite momentan an einer Userform(Bild) womit ich in meiner Tabelle "Gesamtdaten": In die erste leere Zeile einen neuen Mitarbeiter anlegen kann.

Diese läuft auch einwandfrei.

Der Übernehmen Button hat folgende Programierung: (ist nur der teil den Ihr auch auf dem Screenshot seht ... der rest wäre zu viel :D )

Private Sub cmdÜbernehmen_Click()

Dim ELZ As Long

ELZ = Sheets("Gesamtdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Gesamtdaten").Cells(ELZ, 1).Value = Me.TXTlfdNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 2).Value = Me.TXTLehrjahr.Value
Sheets("Gesamtdaten").Cells(ELZ, 3).Value = Me.CBAusbildungsart.Value
Sheets("Gesamtdaten").Cells(ELZ, 4).Value = Me.CBAusbilder.Value
Sheets("Gesamtdaten").Cells(ELZ, 5).Value = Me.TXTName.Value
Sheets("Gesamtdaten").Cells(ELZ, 7).Value = Me.TXTVorname.Value
Sheets("Gesamtdaten").Cells(ELZ, 8).Value = Me.TXTPersonalnummer.Value
Sheets("Gesamtdaten").Cells(ELZ, 9).Value = Me.CBGeschlecht.Value
Sheets("Gesamtdaten").Cells(ELZ, 10).Value = Me.TXTStrasseHsNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 11).Value = Me.CBPLZ.Value
Sheets("Gesamtdaten").Cells(ELZ, 12).Value = Me.CBOrt.Value

Der Abbruch button:

Private Sub cmdAbbruch_Click()

Unload Me

End Sub

Nun würde ich jedoch noch gerne einen button haben der wenn ich oben im Textfeld "lfdNr" eine schon vorhandene nummer eingebe. Dieser sofort alle daten in die jeweilge Combbox/Textbox einträgt und falls ich eine änderung vornehme diese auch mit rückfrage (msgbox Datensatz wurde geänder etc.) auch wieder in die Zeile der passenden LfdNr übernimmt.

Ich bin recht neu in VBA ... bzw. arbeite diese Jahr das 1. mal überhaupt mit excel ... desswegen hole ich mir (wenn ich nach [nun fast 1 woche] suchen keine lösung zu diesem problem finde die mir "zusagt" bzw. ich diese verstehe ... ( will ja was lernen ;'D )

Ich entschuldige mich schonmal für mein etwas "konfuses" auftreten aber hoffe auf Unterstützung :)

Was villeicht auch noch zu erwähnen ist:

Die lfdNr setzt sich automatisch beim öffnen der Userform auf die LfdNr die ein Neuer Datensatz automatisch bekommen sollte.

    TXTlfdNr = Sheets("DropDown-Menü's").Range("J15") 'In J15 steht die Formel =ANZAHL2(Gesamtdaten!A2:A502)

MfG Tim

Wichtig ist noch, dass ich nicht ganze Zeit Alt drücken möchte, wenn man es zum Beispiel mit der Accelerator-Eigenschaft machen muss. Antworten bitte ausführlich beschreiben. Danke im voraus.

Erstmal mal muss man sagen, dass ich absoluter Anfänger bin. Ich habe schon mehrere Bilder erfolgreich in "UserForm" eingefügt. Wenn ich also das Programm mit F5 starte, will ich ein Bild durch das Drücken der rechten und linken Pfeiltaste bewegen lassen. Aber wie funktioniert das?
Danke für eure Hilfe im voraus, weil das Programm als Projektarbeit im Technikkurs zählt.

Hey, ich versuche zur Zeit bei Excel einen Taschenrechner unter der Verwendung von Makros zu erstellen. Grundsätzlich habe ich damit keine Probleme, bloß das Ausrechnen und das "Die letzte Ziffer auf dem Anzeigefeld löschen" funktionieren einfach nicht... 0-9, Grundrechenarten, Pi, On, Off, Komma funktioniert super.

Würde einen Screenshot von dem anhängen, was ich dort bisher habe, aber das ist endlos lang und wahrscheinlich komplett falsch. :D

Habe auf mehreren Seiten nach Hilfe gesucht, konnte aber nichts Passendes finden.

Kann mir da eventuell jemand weiterhelfen, wäre super...? :D

Ich würde gern ein Makro haben das ich an ein Knopf binde. Sobald der knopf gedrückt wird soll in Zelle A1 die laufende Uhrzeit erscheinen. Ein anderer Knopf soll das wieder beenden und die letzte Uhrzeit bleibt dann in der Zelle.

jemand eine Idee oder gar ein Code ?

Danke

Hi,

ich suche eine einfachere Lösung für meine UserForm um über CheckBoxen meine Tabelle zu Filtern.

Im grunde möchte ich also, wenn ich einen Wert ankreuze soll dieser Gefiltert werden.

Wie im Beispiel (unten):

FKEP und KKEP angekreuzt = FKEP und KKEP angezeigt.

Nur KKEP angekreuzt = nur KKEP angezeigt

"Wert" der gefiltert werden soll | CheckBox Name
 FKEP                              CBFilterFKEP
 KKEP                              CBFilterKKEP
 KfB                               CBFilterKfB
 ausgesch.                         CBFilterausgesch
 beendet                           CBFilterbeendet
 EQ - KfB                          CBFilterEQKfB
 EQ - FKEP                         CBFilterEQFKEP

Mein momentaner Code schaut wiefolgt aus:

    Private Sub CBFilterFKEP_Click()

If CBFilterFKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP"), Operator:=xlFilterValues

If CBFilterKKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP", "KKEP"), Operator:=xlFilterValues

End If
End If
End Sub

Private Sub CBFilterKKEP_Click()

    If CBFilterKKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP"), Operator:=xlFilterValues

    If CBFilterFKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP", "FKEP"), Operator:=xlFilterValues

    End If
    End If
    End Sub

Soweit so gut ... nun habe ich aber nur FKEP und KKEP "abgestimmt" ... muss ich nun alle 5 Werte auch "abstimmen" ? Das wird nämlich ein SEHR langer code ... und ich könnte wetten das es in VBA viel leichter geht ...

Hat wer eine Idee von euch?

MfG Tim

Hallo, ich programmiere in VBA etwas und nun bin ich an einem Punkt angelangt, an dem ich nicht weiß wie ich ihn lösen könnte. Ich habe eine Userform erstellt und dort gibt es eine Combobox. Wenn man dort einen Wert auswählt, wird dieser in einer Tabelle mit Datensätzen im Hintergrund gefiltert. Eine weitere Combobox erscheint, und diese soll nun mit den Werten gefüllt werden, die beim bereits gefilterten in einer anderen Spalte übrig bleiben. Die gleichen Wörter können dort auch noch öfter vorkommen. Also ich filtere zum Beispiel als erstes nach Nahrungsmittel und in der Combobox danach sollte dann Käse, Gemüse, Obst etc. zu wählen sein. Nun meine Frage: Wie kann ich aus einer bereits Gefilterten Tabelle Werte die übrig geblieben sind für die Initialisierung meiner Combobox verwenden? Danke für die Antworten schon im Voraus!

PS: Ist in Excel und nicht Access (hat seine Gründe)

Hallo Zusammen,

Ich habe ein Tabellenblatt, in dem es 179 verschiedene Druckbereiche geben soll. Diese Druckbereiche sind alle benannt. Hamburg, Dortmund, Bremen etc. Bisher musste ich manuell jeden einzelnen Druckbereich speichern. Die PDF hat dann einen von mir vorgegebenen Namen. Also entstehen auch hier 179 verschieden benannte PDF´s. Jetzt würde ich gerne einen Button generieren, der über VBA programmiert uist, alle Druckbereiche (im selben Verzeichnis wie die .xls) als PDF abzuspeichern.

Für mich als Laien sollte der Code übersetzt wie folgt aussehen:

-speichere Druckbereich "Hamburg" aus "Tabellenblatt1"in "Pfad/Verzeichnis" als PDF unter dem Namen "Hamburg1" - etc und das 179 mal mit verschiedenen Namen und Druckbereichen

Ich hoffe ich konnte einigermaßen verständlich machen, was ich mir wünsche.

Ich bedanke mich schonmal für die Hilfe.

:)

Hallo!

Zurzeit versuche ich mich an VBA. Ich habe ein Makro erstellt, dass aus einer Excel Tabelle z.B. eine Rechnung erstellt ( durch befüllen der Texftfelder einer Vorlage )

Nun wollte ich das Makro so umändern, dass automatisch der richtige Pfad zum Speichern bzw Öffnen der Vorlage, für den jeweiligen Windows Nutzer benutzt wird. ( Das habe ich mithilfe von Workbook.Path gemacht.

Allerdings gibt er mir jetzt immer Laufzeitfehler 429 aus und ich weiß nicht was zu tun ist.

Bitte helft mir. ( Office und Word sind up to date )

Grüße

Chris

Hier mein Code: https://paste2.org/E8ZmvBXk

Ich habe eine Liste und jede einzelne Komponente hat ein Kontrollkästchen.

Jetzt bin ich an einem Leitfaden dran, über den ich je nach dem welche Zahl in ein Input Dialog eingegeben wird verschiedene Kontrollkästchen aktivieren will. Jetzt heißt mein normales Kontrollkästchen aber "Kontrollkästchen 1".

Wie kann ich ein solches Kontrollkästchen über ein Makro ansprechen um es auf "TRUE" zu setzen? Geht das überhaupt?

Hi Leute!

Folgendes... Ich habe in meiner UserForm1 einen "Beenden" Button erstellt. Drücke ich diesen öffnet sich meine UserForm2 mit der Frage (Zwei Buttons JA/NEIN) ob ich beide Masken wirklich schließen will. Soweit alles geschafft.

Nun weiß ich nicht was ich nach Private Sub CommandButton2_Click()

eintippen muss damit sich UserForm1 und UserForm2 beide schließen.

Hoffe ihr könnt mir helfen :)

Hi Leute,

ich habe Excel 2016 und versuche vergebens meine Kombinationsfelder mit den 3 Werten "Stahl" "Messing" und "Edelstahl" zu füllen.

Es Wird oft beschrieben das ich nachdem ich in der Userform bin und mir ein Kombinationsfeld erstellt hab auf "code anzeigen" gehen muss und oben rechts "initalize" klicken soll, jedoch finde ich diesen befehl dort nicht.

Kann mir einer weiter helfen?

Eine Bestandsauswertung wird in Excel(2010) ausgegeben und tägl. in meine zu analysierende Tabelle in einem Blatt (Abl.Schleifpuffer) abgelegt bzw. überschrieben. In diesem Blatt soll mittels VBA eine intelligente Tabelle erstellt werden.

Per Aufzeichnung klappt das ganz gut, nur gibt es da paar Haken:

1. sollte sich die Auswertung (Quelle) ändern aufgrund Programmanpassungen, verschieben sich auch die Zellen. So beginnt sie nicht von A11 sondern evtl. von B12

2. erstelle ich eine intelligente Tabelle, so gibt mir das Makro immer die Größe von der zuerst erstellten Tabelle "$A$11:$N$853" wieder, sodass bei der nächsten Auswertung die Zeilen ab 854 gar nicht mit einfließen. D.h. die Auswertung wird tägl. gemacht und die Länge ist definitiv variabel.

Wie bekomme ich Excel dazu das er automatisch erkennt "Ab Spalte A und Zeile 11 beginnt die Tabelle" und endet bei Spalte A und Zeile 999.

Derzeit ist die Aufzeichnung so verlaufen:

    Sub konvertiere_Abl_als_Tabelle()
'
' konvertiere_Abl_als_Tabelle Makro
'

'
    Sheets("Abl. Schleifpuffer").Select
    Range("A11").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$11:$N$853"), , xlYes).Name = _
        "Abl.Schleifpuffer"
    Range("Abl.Schleifpuffer[#All]").Select
End Sub

Für eure Unterstützung wäre ich sehr dankbar.

Hallo Liebe Excel - Kenner,

gibt es die Möglichkeit oder einen Code, wo ich Zellen löschen die ich nach Datum und Uhrzeit bestimme?

Bsp: Zelle A1: K30 löschen am 25.03.2016 - 14:00 Uhr

Gruß Manuel

Hallo,

ich soll mit VBA ein Programm schreiben, welches eine beliebige Dezimalzahl in eine Binärzahl umwandeln kann. Das Prinzip dahinter habe ich verstanden, allerdings scheitert es noch an der Umsetzung. Als Beispielzahl habe ich hier die 17 verwendet.

Sub vba_dezbi()

Dim ergebnis As Integer

Dim zahl As Integer

Dim rest As Integer

Dim lv(1 To 566) As Integer

zahl = 17

Do While zahl > 0

rest = zahl Mod 2 & rest

zahl = zahl / 2

. . .

Loop

MsgBox(...)

End Sub

Ich habe herausgefunden, dass man hierfür Felder(Arrays) benutzen muss, allerdings komme ich damit auch nicht viel weiter... Ich hoffe, dass mir jemand helfen kann und weiß, was ich anstatt "..." schreiben muss.

Hätte gerne auf meinem "Blatt1" eine Auflistung aller Blätternamen der Exceldatei. Die Namen sollen untereinander ab Zelle D3 von "Blatt1" stehen. Zusätzlich soll in der nächsten Spalte E jeweils ein Zellenwert (Datum) von den Blättern stehen. Der Datumswert der Blätter steht in Zelle E9. Sprich am Ende soll mir das Makro eine Tabelle liefern in der Form:

Tabellenname Datum

Blatt 2 04.05.12

Blatt 3 02.02.10

... ....

Bin leider noch ein Anfänger bei VBA und hab dieses noch nicht Umsetzen können. Für mögliche Anregungen und Lösungen wäre ich sehr dankbar! Die Blätteranzahl variiert weshalb ein Makro von Nöten ist.

Ich habe eine Tabelle in der möchte ich abhängig von der Bezeichnung in Spalte A (alle Werte die in Spalte A dieselbe Nummer haben -> M und 3 Ziffern) das entsprechend am häufigsten vorkommende Ereignis in der Nachbarspalte herausfinden (ein Datum) - das Ergebnis (Datum soll dann in Spalte C gelistet werden); optionla noch Spalte D (Anzahl des am häufigsten vorkommenden Ereignisses:

A - B - C (häufigster Wert) - D (Anzahl des häufigsten Wert)

M123 - 28.02.12 - 28.02.12 3x

M123 - 28.03.12

M123 - 28.02.12

M123 - 28.02.12

M234 - 12.01.12 -12.01.12 - 3x

M234 - 12.02.12

M234 -12.01.12

M234 - 12.02.12

M234 -12.01.12

M456 - 31.03.12 - 31.03.12 -2x

M456 - 12.02.12

M456 - 31.03.12

Für Hilfe wäre ich sehr dankbar :)

P.S. mit Fromel kann ich ganz gut umgehen denke ich aber mit Makros nur die grundlegendsten Basics (wenn überhaupt)

Danke schon im Vorraus - Grüße Sascha

Hallo Community, ich hab zwar etwas Erfahrung in Visual Basic aber verzweifle an VBA. Folgendes Problem habe ich.

Ich habe ein Kombinationsfeld (Formularsteuerelement) „Dropdown 13“

Dieses Kombinationsfeld ist schon mit einer Liste gefüllt.

Bsp. Text1 Text2 Text3 ….

Ich möchte im VBA Code den Wert bzw. Text auslesen, eigentlich ganz einfach.

Bsp.

Dim Wert as String

If Dropdown13.Text = “Text1” Then

Wert = Text1

End If

Irgendwie so in der Art.

Ich möchte mit dem „Wert“ den ich aus dem Dropdown13 herauslese weiter programmieren.

Das funktioniert auf diese Art leider nicht?

Grüße Michael

Huhu,

ich habe ein VBA-Makro mit Oberfläche erstellt und würde dieses gern per "Desktop-Icon" starten, leider weiß ich nicht wie :C

Kann mir da jemand helfen?

Vielen Dank!!

Hi, ich habe in VBA ein Formular programmiert und möchte nun Kommawerte abfangen. Wie kann ich prüfen ob ein Komma in einem Textfeld steht? Danke für die Antworten schon im Voraus!

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

• Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden

• Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden

• Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.

• Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

Guten Tag,

Ich habe in Excel eine Userform erstellt mit der man durch Auswahl von einigen Comboboxen und Listboxen eine Tabelle erstellen lässt.

Beim schließen der Userform ist diese Auswahl wie gewohnt weg. Sprich die Comboboxen sind wieder in der Grundeinstellung, also nichts ausgewählt.

Gibt es einen weg das dies nicht so ist, also das beim schließen die auswahl gespeichert wird und beim nächsten öffnen wieder sichbar ist?

Danke für Hilfestellungen

Hallo liebes Gute Frage Forum,

ich bin ein blutiger Anfänger im Programmieren und möchte mich trotzdem an eine, wie ich finde, nicht ganz so leicht Aufgabe wagen.

Ich hoffe es erbarmt sich jemand und hilft mir weiter.

Meine Aufgabe:

Ich habe eine ExcelDatenbank die mehrere Einträge für mehrere Kunden verwaltet. ( Name, Anrede, Straße usw. )

Außerdem habe ich ein Word Dokument erstellt in das ich die Word Textmarken eingefügt habe ( Ebenfalls so benannt Name, Straße, Anrede usw. )

Nun möchte ich in Excel eine Zeile anklicken und anschließend das Makro ausführen. ( Das Makro soll dann nur für die Ausgewählte Zeile ausgeführt werden )

Die Vorlage soll aber nicht überschrieben werden, es soll ein neues Word Dokument erstellt werden, in dem die Felder dann ausgefüllt sind ( Am besten mit anderem Speicherpfad den ich dann auch direkt im Makro eingeben kann. )

Natürlich habe ich es auch schon selber versucht, allerding haben mir die Codeschnipsel die ich aus dem Internet geholt habe nicht ganz geholfen.

Hier mein Code: http://paste2.org/wFtw5UId

Mein Problem ist es nun, dass nur das letzte Textfeld wo ich die Referenz auf "Hallo" gesetzt habe befüllt werde, die anderen jedoch nicht obwohl excel keine fehlermeldung ausspuckt..

Außerdem hätte ichs gerne so wie oben beschrieben, dass er nur die Vorlage mit den Textmarken öffnet aber nicht überschreibt sondern ein neues Dokument mit den ausgefüllten Textmarken erstellt. (Pfad soll im Makro bestimmt werden)

Ich hoffe sehr das mir jmd. weiter helfen kann

Einen wunschönen Tag noch :)

Hi,

folgendes Szenario: Ich bekomme in unterschiedlichen Zeitabständen CSV Dateien die ich in Excel importieren möchte. An sich ist das ja kein Problem. Jedoch möchte ich den ganzen Schritt automatisieren und die Daten der CSV an das Ende einer formatierten Tabelle setzen. Hat folgenden Hintergrund: Ich möchte über die Daten der CSV Dateien mehrere Auswertungen laufen lassen. Diese müssen nur einmal angelegt werden und danach immer über alle Daten aus allen CSVs laufen. Die Daten aus den CSV Dateien werden einmalig Importiert, also sind keine Dateiverbindungen nötig. Mein erster Gedankengang war ein Excelsheet "Import" in welches ich die Daten lade und dann per Makro ans ende der Tabelle schiebe. Doch da war mein Problem ein VBA-Skript zu schreiben welches immer an die nächste freie Stelle die Daten kopiert. Eventuell gibt es ja auch eine einfachere Lösung und ich finde Sie nicht. Ich habe Excel2016 im Einsatz und keine Einschränkungen in Sachen Makros. Zudem ist es eine 64bit Version welches die Verarbeitung großer Makros relativ zügig funktioniert.

Vielen Dank im Voraus für alle Antworten

Grüße

Ich versuche vergeblich ein Makro für eine Exceltabelle zu erstellen und brauche dringend Hilfe. In der Tabelle1 befindet sich eine Liste mit 1200 Artikeln. In der Spalte A sind die Artikelnummern und in den Spalten C bis N die Stückzahl zu dem jeweiligen Artikel.

Durch ein Makro will ich nur die Zeilen in die Tabelle2 kopieren, bei denen ein Wert/Stückzahl zu dem jeweiligen Artikel in die Spalten C bis N eingetragen wurde.

Ich hoffe mir kann jemand weiterhelfen.... Vielen Dank

Hallo, ich suche einen Excel VBA-Code der mir eine fortlaufende Nummerierung einfügt. Beginnend bei B8 soll er in der selben spalte bleiben und immer 1 weiter runter zählen. Wäre für jede Hilfe sehr dankbar.

Hi, ich programmiere in VBA und bekomme immer einen Fehler. Der Teil des Codes in dem der Fehler passierte:

   If cmbUnterkategorie.Value = "Ton" Then
     lblArt.Caption = "Farbe:"
     lblArt.Visible = True
     cmbArt.RowSource = Tabelle1.Range("E2:E" & _
     Tabelle1.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
     cmbArt.Visible = True
  End If

Um genau zu sein wird der Fehler bei der 4. und 5. Zeile angezeigt (gehören zusammen). Was habe ich falsch gemacht? Es gibt ein Formular mit einer Combobox "Unterkategorie". Wenn deren Wert "Ton" entspricht soll eine weitere Combobox eingeblendet werden. Das was man aus dieser Combobox auswählen kann wird aus dem Tabellenblatt Tabelle1 (VBA-interner Name) entnommen. Diese wird allerdings vorher gefiltert und deshalb sollen alle noch übrig gebliebenen Einträge aus Spalte E zur Auswahl in der Combobox stehen! Danke für die Antworten schon im Voraus!

VBA Excel, Ich suche einen Passwortgenerator.

Der Passwortgenerator soll die aktuelle Uhrzeit hh:mm:ss und den Wochentag beinhalten. Der Wochentag ist schon ein Textfeld Do oder We oder Mo und die 3 anderen Zellen A1 ist Datumsformat + hh vom =()Heute, A2 ist Datumsformat + mm vom =()Heute, A3 ist Datumsformat + ss vom =()Heute (aktuelle Tageszeit), A4 ist =TEXT(E9;"TTT") vom Datumsformat in E9 . Das kreierte zufällige PW soll so aussehen: 120334Mo oder 0312Mo34 oder Mo341203. Immer 8 Zeichen per Macro und keine Zelle doppelt. Das Macro kann über das Script bisher die Felder A1 - A3 nicht richtig auslesen: Mo,1283642429,308022685242429,3085777778.

hallo, gibts eine möglichkeit mit excel eine kleine funktion zu erstellen, die sowohl mit vba und ohne vba machbar ist? also eine funtkion nur mit excel zb eine rechenaufgabe und dann dasselbe über vba programmiereung? wäre cool wenns so eine vorlage gäbe... oder mir einer helfen kann, ich blicke da überhaupt net durch...

danke im voraus

mfg matheasi

Hi, in Excel kann man ja einen Bereich als Tabelle formatieren. Nun meine Frage. Wie kann man die 3. spalte eines definierten Bereiches in VBA ansprechen? Danke für die Antworten schon im Voraus!

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

Hallo, ich habe eine sehr komplizierte Frage: Ich arbeite in einem großen Unternehmen. Meine Kollegen und ich benutzen (als Datensammlung) eine sehr große Excel Datei die in einem Netzwerk-Laufwerk abgelegt ist. Einer dieser Kollegen hat die Datei mit sehr vielen VBA´s, Macros und Sonderfunktionen vollgestopft. Darunter eine Funktion die den User der Excel-Datei mit Name und Passwort ins SAP einloggen kann, ohne das man selbst nach einem (sonst immer nötigen!!) Passwort gefragt wird. Wir wissen das der besagte Kollege sehr fit ist in Sachen VBA-Codes. Die Firmeneigene IT-Abteilung hat sogar Angst davor das er etwas in ihr System bastelt. Mitlerweile können wir mit ziemlicher Gewissheit sagen das dieser Kollege auf unsere Daten (E-Mails, Passwörter usw.) Zugriff hat bzw mitlesen kann. In einigen Versuchen haben wir herausfinden können das dieser Kollege Dinge weiß die wir bewusst untereinander nur als E-Mails verschickt haben (um nur ein Beispiel zu nennen)

Meine abschließende Frage hierzu: Ist es möglich über eine Excel-Datei mit VBA´s Zugriff auf andere Rechner zu bekommen und wie kann man das beenden, bestenfalls nachweisen? Vielen Dank für jede zielführende Antwort!

Also eine Combobox bei mir wird unter gewissen bedingungen mit unterschiedlichen Items gefüllt.

Nun soll eine MSGbox kommen wenn ein gewisses Item Vorhanden ist, meine Ansätze waren ganz unterschiedlich aber alle ohne Ergebnis

If combobox9.object(range("J2") then ...

Wichtig ist das es in der Combobox nur vorhanden sein soll und nicht unbedingt ausgewählt

Vielen Dank für die Hilfe

Hallo ich bräuchte mal Hilfe bei einer Excel IF Schleife. Unswar habe ich 2 Zellen. C2 und C3 Der Wert, den man in C2 einträgt, wird in einer Rechnung verwendet. Man soll aber wahlweise auch in C3 einen Wert eingeben können. Und die Schleife soll dann folgendes machen:

Wenn C2 leer ist (bzw 0) soll der wert von C3 in die Zelle von C2 "kopiert" werden oder zumindest zugeordnet werden. Wie wäre hier der "Code"?

Ich brauche einen VBA code mitdem man aufgefordert wird einen Text einzugeben (Msg-Box) welche von Jan-Dec auswählbare diskrete Werte erlaubt und diese werte dann in einer Spalte B sucht (darin steht dann z.B. 10-OCT-2015) -> ich will dann OCT eingeben können und für alle Werte in Spalte B, die OCT enthalten, sollen dann die Spalten A,C,D,E ausgegeben werden bzw. sthen bleien und die restlichen Zeilen (die kein OCT in Spalte B enthalten), sollen gelöscht bzw. ausgeblendet werden.

Ich möchte eine vorhandene Aktualisierungsabfrage per Klick oder Ereignis ausführen, scheitere aber leider an der Umsetzung. Hat jemand einen Tipp für mich? Danke für die Hilfe!

Hallo liebe Experten, ist folgende Aufgabe mit VBA zu lösen ? : Zellbereich A1:A10 ist gefüllt mit unterschiedlichen Zahlen und ich möchte eine zufällige Zahl aus diesem Zellbereich , es ist wichtig dass nur eine zufällige Zahl aus diesen Zahlen die in dem Zellbereich vorkommen gewählt wird. Es gibt kein minimum und keine maximum Angabe , die Zahlen in dem Bereich ändern sich ständig und somit kann ich mich auch nicht auf einen bestimmten Zahlenbereich festlegen zB. 1-100. Ist sowas überhaupt machbar? für eure Hilfe wie immer sehr dankbar MfG Uwe

Hallo Zusammen,

Ich hab ein Problem. Ich würde gern durch das schreiben einer 1 hinter meiner Materialsammlung per Knopfdruck alle gewählten Zeilen in eine Zusammengestellte Tabelle einfügen.

Die Materialsammlung bei der ich auswähle ist in Tabelle zwei und wird dann per Knopfdruck abgefragt. Die markierten sollen dann in Tabelle 1 in eine Tabelle eingefügt werden.

Da ich aber mit Variablen Arbeite ist das schwieriger als gedacht

Hier mein code zum verdeutlichen

Private Sub CommandButton1_Click()

Dim strBereich As Range Dim x As Integer

For x = 3 To 60 If Worksheets(2).Cells(x, 10) = "1" Then

Worksheets(1).Range(Cells(x, 2), Cells(x, 9))=Worksheets(2).Range(Cells(x, 1), Cells(x, 8))

End If Next x

End Sub

funktioniert leider aber nicht.

Bitte im Hilfe

Hallo Experten, ich baue für mein Sohn ein Rechnungsformular. Nun habe ich eine UserForm mit 10 Textboxen erstellt. Eine Textbox soll mir Telefonnummer anzeigen. Wie muss ich die Textbox
formatieren damit dann in der dazu gehörigen Zelle die Telefonnummer mit führenden Nullen angezeigt werden. Wobei das ja 2 oder 1 Null sein kann. Private Sub CommandButton1_Click()

Set frm = UserForm3

Application.ScreenUpdating = False

Sheets("Rechnung").Activate

Range("AH4").Select

With frm

ActiveCell.Offset(1, 0).Value = .TextBox1.Value

ActiveCell.Offset(2, 0).Value = .TextBox2.Value

ActiveCell.Offset(3, 0).Value = .TextBox3.Value

ActiveCell.Offset(4, 0).Value = .TextBox4.Value

ActiveCell.Offset(5, 0).Value = .TextBox5.Value

ActiveCell.Offset(6, 0).Value = .TextBox6.Value

ActiveCell.Offset(7, 0).Value = .TextBox7.Value

ActiveCell.Offset(8, 0).Value = .TextBox8.Value

ActiveCell.Offset(9, 0).Value = .TextBox9.Value

ActiveCell.Offset(10, 0).Value = .TextBox10.Value

End With

Application.ScreenUpdating = True

End Sub

Gruß Monkee

Hallo,

Kann mir jemadn bitte Helfen bin am verzweifeln habe schon viele Varianten probiert, zbsp.

Private Sub Worksheet_Change(ByVal Target As Range) If Range("N9") = "N1" Or Range("N9") = "N2" Then Range("J9") = "09:00" End Sub

Aber es funktioniert nicht mit mehere Zellen.

Klicke auf die Grafik für eine größere Ansicht Name: ecxe-bild.JPG Hits: 2 Größe: 86,3 KB ID: 8639

Also ich möchte wenn man auf irgend einer N(Spalte)(Zeile 6-36) N1 oder N2 eingibt, in dieser Zeile (G,n) (H,n) (I,n) (J,n) (K,n) verschiedene Uhrzeiten ausgibt. Das gleiche mit D1,D2,F6,F8

danke im vorraus für eure Hilfe

Guten Tag, ich habe mal wieder eine Frage zu ACCESS.

Ich habe dort ein Formular, dieses Formular hat ein Textfeld in dem man ein Datum eingibt. Das Datum wurde bisher immer manuell eingegeben (immer das Datum, an dem das Formular das letzte mal aufgerufen wurde). Da es sehr umständlich ist, wollte ich das jetzt automatisch in das Textfeld laden.

Ich habe als erstes eine neue Tabelle angelegt mit dem Namen Zeitraum. In dieser befindet sich nur eine Spalte, nämlich Datum. zu dieser Spalte gibt es auch immer nur einen Eintrag, nämlich das aktuelle Datum. Dann habe ich einen Button am Formular angebracht, mit dem man dieses am Ende beenden soll. Klickt man darauf wird das Datum in der Tabelle aktualisier: (funktioniert)

    Dim db As DAO.Database
    Dim tb1 As DAO.Recordset

    Set db = CurrentDb
    Set tb1 = db.OpenRecordset("Zeitraum", dbOpenTable)
    If tb1.Updatable Then
        tb1.MoveFirst
        tb1.Edit
        tb1!Datum = Date
        tb1.Update
    End If
   
    tb1.Close
    db.Close
    Set tb1 = Nothing
    Set db = Nothing
       
    DoCmd.Save
    DoCmd.Quit

Nur wie bekomme ich jetzt das Datum in das Textfeld, jedesmal wenn ich das Formular neu öffne?

Ich habe beispielsweise schon versucht folgendes in das Textfeld zu schreiben

=[Zeitraum]![Datum]

Aber das ging nicht.

Ich hoffe mir kann jemand weiterhelfen oder mir einen Tipp geben.

Ich soll für einen Bekannten in der Feuerwehr ein Makro zu einer Excel Liste schreiben. Konkret: - Wenn in Spalte B ein "A" für Atemschutz steht, soll die Zeile rot hinterlegt werden. Das Makro dazu habe ich auch schon geschrieben. Das Problem: Ich müsste dieses Makro jetzt für jede Zeile neu kopieren und abändern. Gibt es eine Möglichkeit das Makro für jede Zeile zu wiederholen?

Tabelle und Makro anbei.

Hallo zusammen,

ich habe eine UserForm in der folgendes steht:

    ...
    Spalte = 3
    Zeile = 6
    
    Unload UserForm1
    
    If OptionButton2 = True Then
        UserForm2.Show
    End If
...

In der zweiten UserForm steht dann:

Sub CommandButton1_Click()

If OptionButton1 = True Then
    Spalte = 6
ElseIf OptionButton2 = True Then
    Spalte = 9
ElseIf OptionButton3 = True Then
    Spalte = 12
ElseIf OptionButton4 = True Then
    Spalte = 15
End If

Unload UserForm2

End Sub

Leider funktioniert es nicht und "Spalte" bleibt immer 6.. Kann mir jemand weiterhelfen und sagen wie ich es hin bekomme, dass Spalte geändert wird?

Hallo, ich habe eine Excel Datei mit einem Button, welches dieses Fenster aufzeigt wenn ich es anklicke. nun möchte ich unter dem "FMEA Notfallplan" noch weitere bedingungen einfügen wie z.B. "FMEA Test"

wie gehe ich da vor?

Hallo, Ich habe ein VBA Programm geschrieben (in Exel), möchte aber ein paar Variabelnamen ändern. Kann man das irgendwie machen ohne jedes einzeln umzuändern? Wäre sehr hilfreich, da das Programm sehr lang ist.

Vielen Dank schonmal

Hallo Zusammen,

etwas komplizierteres Problem hier: (zumindest bin ich nach stundenlangem Googeln auf englisch und deutsch auf kein akzeptables ergebis gekommen)

Im Prinzip klingt es einfach: Ich will ein Organigramm erstellen per Excel (Word wuerde auch noch gehen, keine sonstige Freeware da ich im Buero keine Software runterladen kann/darf). Nun will ich aber kein "statisches" Organigram (zb per SmartArt). Es soll eher so etwas sein wo ich auf einen Namen klicke und dann alle untergeordneten Leute/Mitarbeiter aufklappen (NUR DIE VON DEM JEWEILIGEN "BOSS").

Mit Gruppieren etc. komme ich nicht vorran da ich 1. will dass es per Mausklick auf den namen geht und 2. ich nicht mehr als 8 untergruppen erstellen kann damit.

Am liebsten auch ein Makro dass ich anpassen koennte ?Hab hier noch ein Bild was vllt etwas besser erklaert was ich meine.

Zum Bild:Ich will dann quasi dass am Anfang nur "CEO" da steht. Dann klicke ich zb auf "C" dann poppen 1,2,3,4,5 auf und ich klicke auf "1" dann poppen 11,12,13 auf etc.. der rest soll am besten verborgen bleiben (viel uebersichtlicher)

Hoffe, dass war einigermassen gut erklaert. Bei Fragen etc einfach nachfragen...Ich finde dazu leider auch wirklich nirgends etwas (ausser irgendwelcher Freeware etc.) Aber es MUSS doch moeglich sein?

Danke euch vieeelmals schonmal!!!

EDIT:

hab jetzt mal probiert einen Makro zu schreiben:

Sub collapse()

Selection.Offset(1, 1).Select
Range(Selection, Selection.End(xlDown)).

Select Selection.EntireRow.Hidden = True

End Sub

_______

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Target.Column = 2 Then

Target.Select

Call collapse

End If

If Target.Address = "$B$10" Then

Target.Select

Call collapse

End If

End Sub

____

Problem: Wenn ich es mit "target.column" mache (was mir lieber ist) dann wuerde ich gerne haben dass er bei leeren zellen nichts macht in dieser spalte... wie geht das genau? und hat einer eine ahnung wie ich das hinkrieg dass wenn ich WIEDER auf die gleiche zelle gehe er mir des rueckgaengig macht? Ich hab so eine ahnugn mit true/false denke ich mal aber habe keine ahnung wie ich das umsetzen kann..

Also irgendwie dass wenn ich einmal draufdruecke und des eingeklappt ist er weiss visibile = false oder sowas und wenn ich wieder draufdruecke soll er halt true machen versteht ihr mich :D?

Moin, ich möchte gerne mehrere Tabellenblätter löschen (Excel -> VBA). Das Problem dabei: Die Nummer des ersten und letzten zu löschenden Blattes soll abgefragt werden. Habe jetzt schon die eine oder andere Zeile "zusammengebastelt", allerdings läuft das Sub noch nicht so ganz rund. Kann mir da jemand weiterhelfen?? Bin mit VBA leider nicht so vertraut....

Sub Aufgabe 17()

Dim intWert1 As Integer
Dim intWert2 As Integer
Dim intWert3 As Integer

intWert1 = InputBox("Nummer des ersten zu löschenden Blattes?", "Tabellenblätter löschen", 0)
intWert2 = InputBox("Nummer des letzten zu löschenden Blattes?", "Tabellenblätter löschen", 0)

Application.DisplayAlerts = False

For intWert3 = intWert1 To intWert2
    intWert3 = "Tabelle" + intWert1
    Worksheets(intWert3).Delete
Next intWert3

Application.DisplayAlerts = True

End Sub

Hallo, ich möchten, wenn z.B in Zelle D4 eins steht das die Zeile also A4-D4 x mal kopiert werden und dann untereinander eingefügt werden. Ich habe das mit einer Formel versucht, habe aber keine Lösung gefunden. Ich hoffe jemand kann mir helfen.

P.S. (Copy und Paste geht nicht, da es sehr viele Zeilen gibt zum Kopieren)

 Danke im voraus.

Hallo zusammen

Kann man mittels VBA im Word ein Bild an einer bestimmter Position einfügen? Also nicht dort wo der Cursor sich befindet?

Ich möchte nämlich ein Bild am Rand des Blattes einfügen, wo man den Cursor nicht hinstellen kann.

Ich weiss es würde mit Textfeldern gehen, aber dann müsste man ca. 1500 Vorlagen anpassen.

Besten Dank für eure Hilfe

Ist es möglich, dass ich in Excel z.B. in Zelle A1 eine Zahl eingebe, dann in Zelle B1 die aktuelle Uhrzeit erscheint und beim zweiten eingeben der selben Zahl in einer ganz anderen Zelle (z.B. A38), dies automatisch erkannt wird und in C1 wieder die aktuelle Uhrzeit erscheint. Es geht um Einfahrt- und Ausfahrtszeiten... Erst wenn beim dritten Mal die selbe Zahl eingegeben wird, soll in einer neuen Zeile, das wieder mit der Einfahrtzeit begonnen werden.

Ich habe eine sehr lange Excel Liste mit mitnütlichen Werten über ein Jahr. Diese würde ich gerne in eine Liste mit 15 minütiger Taktung zusammen fassen. Also es sollen immer blockweise 15 Werte summiert werden. A1-15 in der ersten Zelle A16-A30 in der zweiten und so weiter. Das sollte doch machbar sein oder? Wenn möglch möchte ich auch den Indirekt Befehl vermeiden, da dieser die Tabelle sehr stark bremst.

Wer hat eine Idee?

Moin ich habe ein Problem und zwar ist es so, dass ich einen Rechner erstelle möchte der die Zahl in Textfeld 1 x die Zahl in Textfeld 2 / die Zahl in Textfeld 3 nimmt und das Ergebnis dann in Textfeld 4 schreibt , wenn man auf einen Commandbutton drückt . Also Zahl1 x Zahl2/ Zahl3 = Zahl 4. Die Oberfläche hab ich schon gemacht

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

Ich habe eine Access Datenbank-Tabelle mit den Einträgen Ersatzteilnummer, Materialtext, Typennummer, Sonstige Nummer und Kommentar.

Über ein Formular mit Suchfeld möchte ich mir Alle Datensätze anzeigen lassen, bei denen mindestens eine der Spalten meiner Datenbank den Suchbegriff enthält. Es sollen also alle Datensätze angezeigt werden bei denen die Eingabe im Materialtext vorkommt ODER in der Typennummer ODER im Kommentar usw.

Der Filter wie unten eingefügt funktioniert mehr oder weniger, jedoch habe ich so keine ODER Verknüpfung. Hat vielleicht jemand eine Idee, wie ich das realisieren könnte?

Vielen lieben Dank!! Max

If Len(Me!txtQSf) > 0 Then

Me.Filter = ""
       If Ersatzteilenummer Like "" & Me!txtQSf & "" Then
       Me.Filter = "Ersatzteilenummer LIKE '" & Me!txtQSf & "'"
       Me.FilterOn = True
    Else
        If Materialtext Like "*" & Me!txtQSf & "*" Then
            Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
            Me.FilterOn = True
        Else
                If Typennummer Like "*" & Me!txtQSf & "*" Then
                     Me.Filter = "Typennummer LIKE '*" & Me!txtQSf & "*'"
                     Me.FilterOn = True
                Else
                  If Kommentar Like "*" & Me!txtQSf & "*" Then
                      Me.Filter = "Kommentar LIKE '*" & Me!txtQSf & "*'"
                      Me.FilterOn = True
                  Else
                    If Sonstige_Nummer Like "*" & Me!txtQSf & "*" Then
                            Me.Filter = "Sonstige_Nummer LIKE '*" & Me!txtQSf & "*'"
                            Me.FilterOn = True
                    Else
                        Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
                        Me.FilterOn = True                              
     End If
     End If
     End If
     End If
     End If
Else
Me.Filter = ""
Me.FilterOn = False
End If

End Sub

Hallo. Ich bin hier gerade echt aufgeschmissen.

Wir haben eine Excel Mappe mit Makros. Das funktioniert an sich ja sehr gut. Nur gibt es hier einige wenige PC's die die Mappe zwar öffnen und speichern können aber dann gehen die Probleme los.

Sobald einer dieser Rechner die Mappe speichert, kommt auf allen anderen Rechnern ein Kompilierungsfehler: "Objektbibliothek ist ungültig oder enthält Verweise, die nicht gefunden werden konnten"

Ich habe zu diesem Problem nur eine Lösung mit Killbits und dem ActiveX Compatibility Manager gefunden. Das hat aber auch zu nichts geführt.

Die Fehlermeldung ist noch mal im Anhang.

Vielleicht kennt sich ja hier jemand aus.

Danke im Vorraus.

Ich spiele pokemon mystery dungeon team rot aber wenn ich die cheats aktivieren will funktionieren sie nicht.. ich habe zur auswahlt: "Generic Code", Gameshark Advance", "Gamebreaker Advance" und "Flashcart CHT"

Kann mir jemand sagen wie das funktioniert?

Das habe ich mit einem VBA Code geschafft, nun ist das Problem, dass ich den Pfad welchen ich im Explorer ausgesucht habe nicht in das Textfeld bekomme... Vielen Dank für eure Hilfe!

Ich möchte die letzte Ziffer einer Zahl in einer Zelle ermittel! z.B. 123456789. In dem Bsp. die 9. Dafür brauche ich einen VBA Code.

Hi Leute

Ich bin gerade dabei eine Tabelle in Excel mit VBA zu automatisieren.

Doch nun hänge ich an einem Wverweis den ich gerne in Excel ausführen möchte.

Es gibt eine Tabelle in der eine Bedingung abgefragt wird dort wird dann, wenn die Bedingung eintrifft, in der selben Zeile das Suchkritererutum festgelegt.

Und zwar ist dies eine ID, mit welcher dann in einer anderen Tabelle ein Name gesucht wird.

der gefundene Name soll dann in eine Tabelle 3 eingetragen werden.

Tabelle2.Range("B65536").End(xlUp).Offset(1, 0).Value = WorksheetFunction.HLookup([A49], Sheets("Tabelle7").[A1:ZZ50], 3, False)

das ist die Anweisung die eintritt wenn die Bedingung war ist und der Name gesucht und eingetragen werden soll.

Das Problem ist nur das irgendwas hier nicht stimmt und ich komm einfach nicht drauf. Es liegt aufjedenfall an der Funktion nach dem " = " also dem Wverweis.

Habt ihr eine Idee ?

Hallo, ich hab hier den Beispielbefehl cells(2,3). Value="Hallo". Wozu dient der Punkt? Was ist in diesem Befehl das Objekt, die Eigenschaft (Attribut), das Event (Ereignis) und die Methode?

Hallo Zusammen,

ich habe folgenden Aufbau in einer Excel Tabelle:

Name | Preisgeld | Rang

Nun würde ich gerne die Spalte Rang mit der Platzierung gemessen am Preisgeld füllen. Ist dies möglich? Wenn ja wie?

Vielen Dank im Voraus!

Hallo. Mein Problem ist , ich möchte in einer bestimmten Spalte als erstes Zeichen nur einen Buchstaben zulassen. Gibt es eine Excel-Funktion oder ein Makro was das durchführen kann ? MfG neulandr

Hallo,

ich bin gerade dabei ein kleines Lagerverwaltungssystem per Excel zu schreiben und ich hänge an einer Stelle. Ich will, dass wenn ich in meiner Eingabemaske einen bestimmten Button drücke, sich nochmal ein Fenster öffnet in dem ich eine Zahl eingebe (z.B. 4). Darauf sollen dann 4 Zellen in der Spalte A markiert und gelöscht werden, die einen bestimmten Inhalt haben.

Kann mir jemand weiterhelfen? :(

Private Sub btn3_Click() frmMengenrechner_Obi.PrintForm End Sub

Der Befehl druckt die Userform aus, aber leider nur einen kleinen Teil. Ich möchte einen Code, der mir ohne viel aufwand für den Anwender, die UserForm ausdruckt. Vielen Dank schon mal!!

In meinem Tabellenblatt in Spalte A sind Werte eingetragen mit Leerzeilen dazwischen. Ich möchte diese Werte immer bis zum nächsten Wert kopieren, so das am Ende meine Tabelle komplett ausgefüllt ist. Es gibt bestimmt ein Makro oder eine Funktion die das kann.

Hi, wie kann ich in Excel VBA eine Spalte nicht schreibgeschützt machen, das restliche Tabellenblatt jedoch schon? Kann mir da bitte jemand den Code schicken? Danke für die Antworten schon im Voraus! PS: Das Tabellenblatt ist schon schreibgeschützt, ich will nur wissen, wie ich diese eine Spalte beschreibbar machen kann...

Hi, wie kann ich in VBA verschiedene Spalten ausblenden und das einblenden für den normalen Nutzer sperren?

Danke für die Antworten schon im Voraus!

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian