VBA – die neusten Beiträge

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 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.

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 :)

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.

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,

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, 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?

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

Hi, ich habe eine Funktion in Excel 2010 erstellt und möchte diese jetzt gerne aufrufen! Das funktioniert allerdings aus irgendeinem Grund nicht! Wenn ich im Funktionsassistenten oder in der Bearbeitungsleiste den Namen eingebe, findet Excel meine Funktion nicht, bzw. kann sie auch nicht aufrufen. Die Arbeitsmappe ist gespeichert als Arbeitsmappe mit Makros. Die Funktion ist als normale "Function ..." nicht als "Private Function..." angelegt! Im Funktionsassistenten finde ich im Drop Down Menü auch nicht die Kategorie "Benutzerdefiniert". Woran kann das liegen? Und wie kann ich es beheben? Danke für die Antworten schon im Voraus! PS: Bild von der Entwicklungsumgebung mit dem Code ist beigefügt!

Hallo Community,

ich habe eine große Tabelle, die eine bedingte Formatierung enthält. Ich würde diese jetzt gerne über einen Button ein bzw. aus schalten. Ich hab schon gelesen man könnte einfach den Button mit einer Zelle verknüpfen, und die bedingte Formatierung dann je nach Zellausgabe ein oder aus stellen. Allerdings weiß ich nicht wie man das anstellt :/

Ich hoffe mir kann geholfen werden,

Danke,

LG

Hi, ich habe hier ein Makro und weiß nicht was dabei falsch ist.... Makro: http://www.codecopy.de/?action=show&q=92cabe Das Makro funktioniert auch, aber nur kurz... Wenn ich es einmal ausführe dann klappt alles, auch beim zweiten mal wird die Zeile von Tabelle1 in Tabelle5 eingefügt! Beim dritten Mal Ausführen allerdings, sind im Tabellenblatt 5 nur Zwei Zeilen eingefügt worden! Woran kann das liegen und wie kann ich es beheben? Bzw. wenn es eine bessere Variante gibt es zu machen bitte schreibt mir den Quellcode! Das soll das Programm machen: Wenn in Tabelle1 in der Spalte L (12) in der dritten Zeile ein Wert steht, ob Text oder sonst was ist egal, dann soll die ganze Zeile kopiert und in Tabelle5 in der nächsten leeren Zeile eingefügt werden! Bitte helft mir mit diesem Makro! Danke für die Antworten schon im Voraus!

Ich muss den Inhalt einer speziellen Zelle in einem Excel-Sheet als String auslesen und in einem Word-Dokument einfügen. Das ganze soll per VBA funktionieren. Dabei sollte die Excel-Datei bestenfalls geschlossen bleiben. Kann jemand helfen? Nutze MS-Office 2013.

Hallo Leute,

in meinem Excel Dokument werden bereits die jeweiligen Daten der letzten Wartung und die der nächsten Wartung eingetragen. Mit einer bedingten Formatierung konnte ich folgendes realisieren:

• bei der nächsten Wartung, welche 14 oder mehr Tage entfernt ist ist das Feld grün eingefärbt
• bei der nächsten Wartung, welche weniger als 14 Tage entfernt ist ist das Feld gelb eingefärbt
• wenn die nächste Wartung überzogen ist wird das Feld rot eingefärbt

Nun möchte ich noch eine Messagebox, welche beim Öffnen des Dokuments aufpopt, erstellen, welche mir einen Überblick über die gelben und roten Felder gibt, also z.B.

• Überzogene Wartungstermine: Nr...., Nr... (also alle roten).

• Dringliche Wartungstermine: Nr..., Nr.,,, (also alle gelben).

In dem angehängten Bild seht ihr ein Beispiel mit Wartungsterminen.

Ich hoffe ich habe mich verständlich ausgedrückt und dass mir jemand helfen kann :D

Gruß

Ich habe in meinen Kontakten eine benutzerdefinierte Spalte "Sendedatum" angelegt, in der mir stets aktuell angezeigt werden soll, wann ich der Person zuletzt eine Mail geschickt habe (leider gibt es eine solche Spalte in Outlook nicht standardmäßig). Dazu brauche ich ein Makro, das durch die Schaltfläche "Senden" ausgelöst wird und zusätzlich zum Senden der Mail prüft, ob die Empfängeradresse in meinen Kontakten verzeichnet ist, und wenn ja, dort in der Spalte "Sendedatum" eben das Gesendet-Datum einträgt, damit ich das nicht jedes Mal manuell machen muss. Wer kann mir einen Tipp geben? Ich wäre sehr dankbar.

Hei Leute, habe in Tabelle 3 im Bereich B5:C30 Texte stehen die ich ab der ersten freien Zelle in der Tabelle 1 der Spalte A einfügen muss. Dies muss ich ca. 100 mal machen, daher möchte ich es nicht von Hand machen. Habe schon selber probiert aber irgend etwas ist falsch, das Makro kopiert geht in die freie Zelle Tabelle1 Spalte A , aber fügt nicht ein. Kommt der Fehler Laufzeitfehler.

Sub umwechseln()

' umwechseln Makro

Dim s As String Dim i As Long

Range("A5:A29").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5:C30").Select
 Sheets("Tabelle1").Select
    With ActiveSheet
i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Select
        
        Exit Do
    End If
Loop While i < 65535End With   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False Sheets("Tabelle3").Select
Range("E10").Select

End Sub

Sorry wenn das nicht gut dargestellt ist...weis nicht wie man aus VBA kopiert und hier in welchen Format einfügt.

Gruß Monkee

Hallo Leute

Ich bin gerade dabei mittels Userformen eine Fußballtabelle zu erstellen.

Nun habe ich folgendes Problem. In dem Tabellenblat "Statistik" werden alle Statistiken zu den Vereinen gespeichert. In Spalte A stehen die Vereinsnamen - Spalte B stehen die geschossenen Tore - Spalte C stehen die erhaltenen Tore - Spalte D steht die Tordiferenz - Spalte E stehen die PKT

Team--e.Tor--g.Tor--diTor--PKT

FC Team1 -- 6--4--3--8

FC Team2 --5--4--3--8

FC Team3 --2--5--3--9

FC Team4 --6--4--3--7

FC Team5 --6--4--2--8

Wie kann ich über VBA die Tabelle bzw. die Teams so sortieren, dass zuerst die Pkt berücksichtigt werden, danach die Tordiffernez und danach die geschossenen Tore.

Ich würde mich über eine Antwort freuen

LG Jumbo125

Hi,

ich habe eine Frage zu Excel VBA!

Da ich mich nicht besonders gut auskenne, werde ich ein Makro erstellen welches die ganze Zeile einfach in ein anderes Tabellenblatt kopiert. Dieses Makro möchte ich dann so ändern, dass die kopierte Zeile im anderen Tabellenblatt, in dem sie eingefügt werden soll, in die nächste LEERE Zeile eingefügt wird. Könnt ihr mir bitte schreiben, wie dieser Befehl heißt, bzw. was ich machen muss?

Und noch eine Frage:

Kann man Makros via Wenn-Funktion ansprechen, wenn ja, wie?

Danke für die Antworten schon im Voraus!

Ich muss eine Excel-Tabelle erstellen, wobei einige Benutzer eine bestimmte Spalte sehen können und andere wiederum nicht.

Den Benutzern, die die Spalte nicht sehen dürfen, darf es auch nicht möglich sein, die Spalte einzublenden.

Ich bin leider völlig unerfahren mit VBA und habe auch nach langem Suchen im Internet keine passende Lösung gefunden.

Sollte eine Lösung per Makro möglich sein ist es ebenfalls ganz wichtig, dass die Benutzer nicht die Möglichkeit bekommen das Makro zu deaktivieren.

Ich bedanke mich schon mal ganz herzlich!!!

LG Hafenhilde

Ich habe bereits versucht die Variable als "Public" zu deklarieren, doch ist sie bei der Rückkehr aus dem UserForm in das Arbeitsbaltt leider leer.

Hallo zusammen,

ich habe in Excel eine Liste, mit einer Hintergrundfarbe die ich aus der Farbpalette selbst hinzugefügt habe. Nun habe ich in Visual Basic hinterlegt das je nachdem was an Werten ausgespukt wird einzellne Zellen rot gefärbt werden. Cells(zd, 6).Interior.Color = vbRed Wenn man die UserForm noch mal ausführt und die Werte ok sind, soll die Farbe wieder auf die vorherige Farbe geändert werden. Da diese aber keine standart Farbe ist, weiß ich nicht wie ich diese dort wieder rein bekomme..

Hallo!

Ich soll auf der Arbeit einen Begleitschein mit fortlaufender Nummer für unsere Mitarbeiter in Excel erstellen. Ich möchte das aber nicht manuell eingeben, da das viel Zeit in Anspruch nimmt.. Also es ist quasi wie eine Seitenzahl.

Beispiel: 1. Schein "Begleitschein Nr. 1" 2. Schein "Begleitschein Nr. 2" usw.

Ich hoffe es ist verständlich was ich meine & ich hoffe, dass mir jemand einen Lösungsweg zeigen kann, für den man nicht studiert haben muss :P

DANKE IM VORRAUS! <3

Servus zusammen,

in einem Sheet auf der Arbeit habe ich folgendes Problem: In meinem aktiven Tabellenblatt kann in B12 der Inhalt Tablet, Mobile, Video, Desktop oder 0 (oder eben die vorher leere Zelle) vorkommen. Je nachdem was dort steht, soll in in der Zielzelle (J12) der selbe Wert stehen. Folgende Regeln möchte ich damit abdecken: 1) Wenn B12 = 0 dann 0 2) Wenn B12 = Tablet dann J12 = Tablet 3) Wenn B12 = Mobile dann Mobile 4) Wenn B12 = Video dann Video 5) Wenn B12 = Desktop dann Desktop 6) Wenn B12 = leer dann 0

Hier meine Formel: =WENN(B12=0;0;WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("desktop";B12));WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("mobile";B12));WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("video";B12));"Tablet";"Video"));"Mobile"));"Desktop")))

Sie funktioniert zwar auf den ersten Blick, aber manchmal zeigt es trotzdem etwas falsches an. Tablet statt 0, Dekstop statt Tablet, usw. aber nur vereinzelt und das macht mein darauffolgendes Makro verrückt ^^

Habt ihr eine Ahnung woran das liegen kann?

Danke & Greetz!

Hi zusammen,

ich ziehe mir jeden Tag ein File, dass immer unterschiedlich viele Zeile hat. Ich bräuchte nun ein Skript, dass mir die Zeilennummer ausspuckt, in der der Wert "monat" vorkommt. Gerne als msgbox :)

Danke! Greetz

Guten Tag

Ich erstelle ein Quiz. Die Fragen stehen in einem Array. Um eine Frage als Text anzuzeigen habe ich diesen Code: lblQu.Text = frage(rnd)

rnd steht dabei für eine Zufallszahl.

Ich will aber nicht das eine Frage doppelt vorkommt. Kann mir da jemand helfen?

Hallo, wie erhält man eine Liste von Kombinationen, welche eine festgelegte Summe ergeben? Anforderungen: 1. Summe fix, kann einfach geändert werden 2. 5 Zahlen gesamt, welche die Summe ergeben sollen 3. Der Bereich der 5 Zahlen ist festgelegt auf 1 bis 50 4. Die Zahlen dürfen je Kombination nur 1x vor kommen

Gibt es was dafür..? - Formel, VBA, Programm, Tool? Im Idealfall sind Punkte 1-3 anpassbar..

Danke für eure Hilfe

Hallo,

folgende Situation: All meine Post sammel ich unsortiert in Ordnern. Um diese zu finden habe ich sie Nummeriert (3/112 [3-Ordner;112-laufende Nummer in diesem Ordner]). Um bestimmte Briefe wieder finden zu können, habe ich eine Exceltabelle angelegt. Spalten ABC geben die Nummerierung wieder, in Spalte D ist der Absender, E enthält das Datum des Schreibens und in F stehen bestimmte Inhalte des Briefs um diese mit Strg+F finden zu können.

Das klappt soweit auch alles gut. Jetzt möchte ich das aber alles mit Makros automatisch machen. Also dass ich in einem Feld einen Suchbegriff einge, und dann nurnoch die Zeilen angezeigt werden, die diesen enthalten.

Bsp.: Ich Suche nach "Rechnung" - es sollen alle Briefe, bei denen ich diesen Tag in irgendeiner Art in Spalte F eingegeben habe angezeigt werden. Also sowohl "Rechnung" als auch "InternetRECHNUNGsbetrag" sollen stehen bleiben. Alle anderen Zellen sollen ausgeblendet werden.

In VBA habe ich bisher das eingegeben, was auch in einem Testsheet geklappt hat (Also natürlich nur das Zeilenausblenden)

Sub test() Dim x As Integer

Tabelle1.Activate x = 2 Do If Cells(x, 6).Value = "" Then Rows(x).EntireRow.Hidden = True Else Rows(x).EntireRow.Hidden = False End If x = x + 1 If Cells(x, 1).Value = "Gesamt" Then Exit Do Loop

End Sub

Anschließend habe ich in meiner Origionalen Tabelle eine Hilfsspalte eingefügt, die nach den Wörtern in Spalte D und F suchen soll und das Wort oder etwas anderes in der Hilfsspalte wiedergibt, damit der oben ganannte Code alles ausblenden kann. Habe ich so leider nicht hinbekommen.

Kann mir jemand helfen? ich denke der Ansatz ist gut und auch umsetzbar. Ich bin allerdings für andere Lösungsansätze offen. Bedenkt dabei aber bitte, dass ich eine VBA-Bull bin, also eventuell eine kleine Erklärung, was mit welchen Variablen geimt ist, dass ich das anpassen kann.

Vielen Dank schonmal im Voraus

Hallo zusammen,

ich habe in Visual Basic eine Variable, die sich mit einer Formel errechnet. Diesen Wert würde ich gerne auf zwei Nachkommastellen runden, weiß aber nicht wie. Kann mir jemand helfen?

Gruß

Hallo zusammen,

ich will in Visual Basic Variablen addieren.

S12 = S2 + S3 + d2

Wenn z.B. S2=1, S3=2 und d2=3 sind sollte 6 raus kommen, jedoch wird mir 123 ausgegeben. Kann mir jemand sagen was ich ändern muss?

LG

Hallo Leute

Ich bin auf der Suche nach einer Möglichkeit, gleiche Einträge in einer Array zu löschen. Zum bespiel Array(0)=10 Array(1)= 20 Array(2)= 10 Array(3)= 40 Array(4)= 10

Wie lösche ich nun die gleichen Einträge aus der Array. Bzw. Noch besser wäre es, wenn ich sie in eine andere Array schreiben kann.

Vielen Dank Peter

Hallo es geht um das programmieren von VBA in Excel Ich hätte 2 Fragen erstens:

Ich versteh das mit den Arrays nicht erstelle ich damit eine Variable mit mehreren Werten oder erstelle ich damit mehrere Variablen mit ähnlichem Namen?

und zweitens mein eigentliches Problem:

Gibt es eine möglichkeit einer Variable mehrere verschiedene Werte zuzuschreiben und diesa aber einzeln abzufragen bzw. zu ändern? (Es würde auch mit vielen einzelnen Variablen gehen aber das wird mir dann doch sehr unübersichtlich bei ca. 3-4 hundert^^) Bsp. PunktA(X-wert,Y-Wert,Z-Wert) wenn wer code beispiele hätte wäre es auch klasse ;)

LG Marinus

Hallo zusammen,

ich würde gerne über Visual Basic, wenn eine bestimmte if Bedingung erfüllt ist (bekomme ich hin), einen Zellbereich leeren (Formatirung soll erhalten bleiben, also nur Hintergrundfarbe und Inhalt löschen), z.B. 2B bis 6E. Kann mir jemand hierbei helfen? Ich weiß leider weder wie ich eine Aktion für einen Zellbereich ausführe (es werden mehrere Zellbereiche werden) noch weiß ich, wie ich über Visual Basic Zellen leeren kann.

Gruß

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If
    

End Sub