Hallo,

ich habe mehrere Tabellen in einer Arbeitsmappe, in jeder Tabelle werden immer Daten von 3 Monaten gesammelt Bsp:

Tabelle 1 geht von Januar-März (des jeweiligen Jahres)

Tabelle 2 geht von April-Juni (desjeweiligen Jahres) usw.

Da die jeweiligen Daten immer mit Datum eingegeben werden hätte ich gerne das die Zellen für Januar z.B. Grün gefärbt sind, die für Februar rot und die für März Blau (auch in den anderen Tabellen sollen die Monate unterschiedliche Farben erhalten), damit sie besser zu erkennen sind.

Ich konnte leider nichts dazu finden, da die Bedingte Formatierung für Datum leider nicht ausreichend Funktionen dafür bietet.

Hat jemand eine Idee wie ich dieses Problem lösen könnte? Gerne auch Ideen wie ich dieses Problem mit VBA lösen könnte wenn das möglich ist (Würde auch reichen wenn die Datei sich beim öffnen immer aktualisiert und dann die Daten einfärbt).

Ich habe jetzt unzähle Varianten durch. Ich baue ein Bestellsystem für zwei verschieden Shops. Heißt, bei jedem eingetragenen Artikel in die Bestellliste soll am Ende der Listen-Zeile das jeweilige Logo eingefügt werden, kleiner als das Originalbild, kleiner als die Zeile selbst, für die Übersichtlichkeit in der Liste, mittig ausgerichtet.

Ich habe von Pictures.Insert zu Shapes.AddPicture gewechselt, da ich gelesen habe, dass dies die korrektere Form sei. Jetzt bekomme ich eine Fehlermeldung bei der Festlegung eines Rahmens.
Kann mir jemand meine Fehler aufzeigen? Folgende Fragen stellen sich mir:
- Welchen Variablen-Typ brauche ich für ein eingefügtes Bild?
- Wie kann ich diese Variable dann verwenden, um Größe, Position und Rahmen festzulegen?

Danke sehr!!!!!!

Sub LogoEinfügen(Shop As String, Zeile As Integer, Spalte As Integer)

Dim Breite As Integer
Dim Höhe As Integer
Dim strDatei As String
Dim Logo As Object
Dim ShopFarbe As Long, Rot As Long, Blau As Long

' Farben für die zwei Shops festlegen
Rot = 26316
Blau = 13395456

' Dateinamen je nach Shop auswählen und Shop-Farbe einstellen
If Shop = "ZL" Then
  strDatei = "D:\logo1.jpg"
  ShopFarbe = Rot
End If

If Shop = "AQ" Then
  strDatei = "D:\logo2.jpg"
  ShopFarbe = Blau
End If

' Bild einfügen

' Ort festlegen
Dim rg As Range
Set rg = ActiveSheet.Cells(Zeile, Spalte)

' Und einfügen
Set Logo = ActiveSheet.Shapes.AddPicture(strDatei, msoTrue, msoTrue, rg.Left, rg.Top, -1, -1)
Set rg = Nothing

With Logo
      .LockAspectRatio = msoFalse              ' Verzerrung egal
      .Height = Rows(Zeile).RowHeight - 4      ' kleiner als Zeile
      .Width = Columns(Spalte).Width - 4       ' schmaler als Spalte
      .Top = Cells(Zeile, Spalte).Top + (Cells(Zeile, Spalte).Height - Logo.Height) / 2         ' mittig
      .Left = Cells(Zeile, Spalte).Left + (Cells(Zeile, Spalte).Width - Logo.Width) / 2          ' mittig
  End With
  
  ' Rahmen ums Bild, in der Farbe des Shops
  With Logo.ShapeRange.Line
    .Visible = msoTrue
    .ForeColor.RGB = ShopFarbe
    .Weight = 1.5
    .ForeColor.TintAndShade = 0
  .ForeColor.Brightness = 0
End With

Set Logo = Nothing

' Zeilenhöhe anpassen
' Rows(Zeile).RowHeight = Logo.Height
 
End Sub

Guten Tag

Ich würde gerne den ganzen Text von der Linie in der sich mein Cursor befindet(siehe Bild) extrahieren und in ein String speicher. Es soll aber nich Markierd werden müssen

Wie geht das?

Guten Tag,

ich würde eine Tabelle erstellen wollen, welche man immer links erneuern kann, sprich mit dem Tastenklick auf die Schaltfläche, soll eine neue Spalte (nur von G6:G20) eingefügt werden. Gleichzeitig (bzw. davor) sollen die alten Spalten nach rechts geschoben werden.

Ich habe es versucht, durch ein Bild zu verdeutlichen.

Habe im Internet folgenden Ansatz gefunden. Habe in VBA aber nur schlechte Kenntnisse, weshalb ich den Code nicht auf mein Problem anpassen kann. Könnt ihr mir da helfen?

2. Das Eingefügte (also die Vorlage(Tabellenstriche)) kann ja von irgendwo eingefügt werden: zB: X1000:X1014 - richtig?

Hallo allerseits.

Ich scheitere mit einer Fehlermeldung die beim Debuggen auftaucht:

"OBJEKT ERFORDERLICH"

bei der Zuweisung in Zeile 8 [AktiveSheet ......]

Es soll eine Spalte (ziel_splte=14) von 1 bis Zeile (letzt_zle=58) mit einen Zeichen (delte_kez="X") gefüllt werden.

Ich habe bereits diese Zeile mit Set und mit .Value ergänzt gehabt, aber immer dieselbe Fehlermeldung bekommen.

' Zielspalte mit "X" füllen
ziel_splt = Worksheets("Statistik").Cells(15, 2)
letzt_zle = Worksheets("Statistik").Cells(20, 2)
delte_kez = Worksheets("Statistik").Cells(25, 2)

For I = 1 To letzt_zle
  AktiveSheet.Cells(I, ziel_splt) = delte_kez ' Zeile 8
Next I

Ich frage mich, welches Objekt hier fehlt?

Aber vielleicht ist es nur eine Kleinigkeit, die ich mit und ohne Brille mangels Erfahrung nur nicht erkenne!

Vielen Dank für eure Hilfe!

-Hermann-

Hallo,

folgende Logik soll umgesetzt werden:

Wenn Zelle A1 angeklickt wird, dann springe zur letzten aktiven Zelle im aktiven Tabellenblatt.

Habe im Internet "ActiveCell.Previous.Select" diesen Befehl gefunden, jedoch denke ich, dass es nicht dafür ist.

Hat jemand eine Idee wie ich dies umsetzen kann?

Guten Tag,

ich habe ewig im Netz gesucht aber nix passendes gefunden.

Ich würde gerne eine große Tabelle arbeitsblattübergreigend vergleichen. Je Woche wird hierzu ein neues Blatt eröffnet, in welcher sich eine Tabelle befindet, welche zum Teil andere Werte besitzt. Nun sollen die einzelne Zellen(String, Text) von dem neuen Arbeitsblatt mit dem letzten (sprich dem links davon) verglichen werden und identische Zellen markiert werden.

Wie kann ich das umsetzten?

Hallo Zusammen

Habe eine Liste mit Bezugsformel auf 100 Zeilen . Wie mach ich das, wenn die Zeile 54 leer ist (also nur die Formel), sollte die Seite 2 nicht gedruckt werden.

Gibt es für dies eine VBA Lösung? Schon jetzt vielen Dank für die Aufmerksamkeit und Hilfe

Guten Tag zusammen,

ich habe eine Combobox, dessen Inhalt aus einem gewissen Bereich angezeigt werden soll. Jedoch möchte ich, dass in der Liste keine leeren Zellen angezeigt werden.

Infos:
Bereich: Blatt XY Range L3-102
Name ComboBox: KAnzeigename
Name UserForm: Schreiben

Es läuft unter "Private Sub UserForm_Initialize()". Die leeren Zellen (formatiert als Standard) aus dem Bereich L3-L102 laufen über eine Wenn-Funktion mit dem Ergebnis = ""
Wo ist den denn Fehler?
Sind es aufgrund der Wenn-Funktion keine leeren Zellen mehr?

Dim i As Long
With Schreiben.KAnzeigename
   For i = 3 To 102
       If Not IsEmpty(Sheets("XY").Cells(i, 12)) Then
         .AddItem Sheets("XY").Cells(i, 12)
       End If
   Next
End With

Vielen Dank und Gruß

Moin,

Ich arbeite schon etwas länger mit VBA, aber hier stehe ich einfach aufm Schlauch.

Er sagt also, dass die methode "Range" in "dl" nicht existiert - dl ist aber ein Sheet!
Ich glaub es ist eine einfache Lösung und ich komm einfach nicht drauf

Hallo,

ich möchte in Excel jedes mal wenn ich die Rechnungs-Vorlage öffne, die nächste Rechnungsnummer eingetragen haben.

Meine Rechnungen sind alle in einem Ordner gespeichert.

Ich habe schon versucht mit VBA ein Script zu schreiben, welches alle Dateien in dem Ordner durchgeht und den Wert aus Zelle B13 nimmt und den höchsten am ende mit +1 in die Vorlage einträgt.

Da bin ich aber leider gescheitert :-)

Vielleicht kennt sich einer von euch da besser aus und könnte mit weiterhelfen.

Vielen Dank im Vorraus,

LG, Julian

Liebe Community,

ich habe über den Makroaufnahme ein umfangreiches Makro aufgenommen. Typisch dafür ist, dass oft der Befehl Select benutzt wird. Da ich gelesen habe, dass dadurch die Geschwindigkeit verlangsamt wird und weggelassen werden sollte, habe ich das so befolgt.

Vorher ist das Makro innerhalb weniger Sekunden durchgelaufen, jetzt braucht es circa eine Minute. Ich habe mal ein Beispiel angehängt, wo man den Zeitverlust sehr deutlich bemerkt.

Habe ich da was falsch gemacht?

Vorher:

    Cells.Select
    Range("B13").Activate
        With Selection.Font
            .Name = "Calibri"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontMinor
        End With

Nachher:

With Cells.Font
        .Name = "Calibri"
        .Size = 14
        .ThemeColor = xlThemeColorLight1
        .ThemeFont = xlThemeFontMinor
    End With

Ich habe eher wenig Ahnung von VBA, habe mich durch Ausprobieren und Internetseiten rumgeschlagen.

Vielen Dank schonmal für Antworten.

Lamio13

Hallo Zusammen,

ich möchte in meinem Beispiel die Formatierung einer Zelle in Abhängigkeit vom Inhalt der Zellen E1;E3:E4 ändern. Bei Inhalt = 1 soll der Hintergrund grün werden.

Hierfür erstelle ich eine Regel für eine bedingte Formatierung:
=UND((E1;E3:E4)="1")

Leider kommt es hier zu folgender Fehlermeldung: Verweisoperatoren (wie etwa Vereinigungen, Schnittmengen und Bereiche)oder Arraykonstanten dürfen nicht für Bedingte Formatierung-Kriterien verwendet werden.

Es würde mich freuen wenn Ihr mich auf meinen Denkfehler aufmerksam machen könntet oder andere nützliche Tipps für mich habt - vielen Dank dafür im Voraus!

Gruß Leo

Ich habe laut einer Anleitung auf YouTube

Hier ist der Link

Kurzgefasst wird dort in einem bestimmten Bereich eine Bedingte Formatierung gemacht, mit der Formel:

=$A$1=ZEILE()

Hierzu wird noch ein VBA Code gebraucht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$A$4:$Q$10000")) Is Nothing Then
Range("$A$1").Value = Target.Row
End If
End Sub

Resultat:
Die Zeile der aktiven Zelle wird nun farblich markiert.

Frage:
Mir ist nun aufgefallen, dass ja jedes mal wenn irgendwo geklickt wird der VBA Code abgespielt wird. Dementsprechend kann man die Vorwärts und Rückwärts Buttons nicht mehr verwenden :(

Dies ist leider sehr unpraktisch. Ich habe in die Zellen etwas eingefügt und wollte dann es rückgängig machen und nicht mal das geht.
Daher die Frage, gibt es hier ein Workaround? Oder eventuell eine ganz andere Lösung ohne VBA?

Danke vorab

Wer kann mir für folgenden Fall einen VBA Code erstellen?

Bei Knopfdruck soll:
a) in der aktiven Zeile Zelle A bis Q grün eingefärbt werden
b) zusätzlich soll in der aktiven Zeile; Zelle B; +1 gerechnet werden
c) zusätzlich soll sich die aktive Zelle ändern. Also die neue aktive Zelle soll folgende sein: Eine Zeile runter; Zelle B soll aktiv/ausgewählt sein.

Dank im Voraus

Hallo Zusammen,

wieder eine VBA Frage meinerseits:
Ich vermute, dass es bei folgender Zeile zu einem Problem kommt, wenn Zahlen >9 gefunden werden sollen:
stunden = Worksheets("Tabelle2").Cells(ActiveCell.Row, Range("1:1").Find(eingabe).Offset(0, 0).Column)

"stunden" und "eingabe" sind jeweils als double definiert.
Bei den zahlen 1-9 habe ich meinen Code bisher probiert, aber ab 10 kommt es zum Crash und an der Zelle steht, dass folgende Meldung: "ein in der Formel verwendeter wert ist vom falschen Datentyp"

Vielen Dank für jede Antwort bereits im Voraus!
Liebe Grüße Leo

Kurzgefasst brauche ich einen Makro mit folgender Logik:

Wenn irgendeine Zelle angeklickt wird, worin die ersten drei Zeichen identisch sind wie mit einem Tabellenblatt, dann soll zu dem Tabellenblatt gewechselt werden.

Also Zelle A1 heißt zum Beispiel "AAA_Tabelle1".
Klickt man nun auf A1, soll Excel zum Tabellenblatt mit dem Namen "AAA" springen.
Und dies bitte automatisiert. Denn manuell könnte ich es auch machen, aber dann wären halt alle Werte fest und nicht variabel. Mein manueller/nicht flexibler Code lautet:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell Like "AAA*" Then
Sheets("AAA").Select
End If
End Sub

Vielen Dank im Voraus

Hallo zusammen,

kann man für mehrere Textboxen bis auf Ausnahmen den gleichen Inhalt prüfen?

Zu Sache: Ich habe ein Userform mit einer Multiseite mit 10 Pages. Jeder Page hat 63 Textboxen, ergo 630 Textboxen im gesamten Userform.

Von diesen 630 Textboxen muss in 620 Textboxen geprüft werden, ob diese entweder leer sind oder eine Uhrzeit steht. Wenn dieses der Fall ist, dann ist alles Ok. Ansonsten soll entsprechend der Vorgang abgebrochen werden.

Die 620 Textboxen haben alle individuelle Namen wie (AN1t1a, AN1t1e, AN1t2a usw.) Dies ist nach einem bestimmten Muster.

Die restlichen Textboxen, die NICHT geprüft werden sollen haben Namen wie (AN_Name1, AN_Name2, AN_Name3 usw. bis 10).

Wie können nun alle 620 Textboxen auf folgendes Format geprüft werden:

Private Function CheckTime(ByVal txt As String) As Boolean

If txt.Length <> 5 or txt.Length <> 0 Then
Return False
End If

If txt(0) >= "3" Then
Return False
End If

If txt(0) = "2" AndAlso txt(1) >= "4" Then
Return False
End If

If txt(2) <> ":" Then
Return False
End If

If txt(3) = "0" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "1" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) = "2" Then
Return False
End If

If txt(3) = "3" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "4" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) > "4" Then
Return False
End If

Return True
End Function  

Falls die Prüfung auf die korrekte Uhrzeit fehlerhaft ist oder auch einfacher geht, nehme ich die Hilfe auch gerne an :) Erlaubte Uhrzeiten sollen im Forma HH:MM sein und im Viertelstunden Takt (10:00, 10:15, 10:30, 10:45) erlaubt sein. Nur Zahlen sind nicht möglich, da es auch einen Doppelpunkt gibt ;)

Gruß

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

  Sub Test()

  ActiveCell.Offset(1, 1) = "1"

  End Sub

  Function Test()

  ActiveCell.Offset(1, 1) = "1"

  End Function

Hallo,

in der Seiten- bzw. Druckansicht wird auf 1 Seite breite und 1 Seite hoch skaliert.

Beim Laden der Datei wird die Ansicht "Seitenlayout" aber noch auf mehrere Seiten verteilt angezeigt.

Kann man denn erzwingen, dass das Seitenlayout ohne Switchen zur Druckansicht beim Öffnen der Tabelle bzw. Tabellenblätter korrigiert wird?

moin, bei Excel ist seit kurzen das Problem, dass wenn man ein neuen Command Button einfügen will (egal ob neues Dokument oder nicht), der keinen Namen hat, nur oben links als Objekt2 angezeigt wird und nicht als Commandbutton angezeigt wird.

Im Entwurfsmodus kann man keinen Doppelklick auf diesen Button machen.

Am Anfang ging es, 2 Tage später in einem neuen Dokument aber nicht mehr, obwohl ich bewusst nichts geändert hab.

Kann man das irgendwie in den Einstellungen beheben? Andere mit diesem Problem konnten es durch eine Neuinstallation beheben, aber das ist für mich eigentlich keine Option.

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

Hallo,

wir haben unterschiedliche Arbeitsplätze mit diversen Druckertreibern.
Dadurch sehen manche Excel-Tabellen bei jedem unterschiedlich aus, wodurch die Zeilen teilweise auf eine neue Seite verschoben werden.

Kann man das ggf. mit Excel-VBA sicherstellen, dass es gleich bleibt?

Danke im Voraus.

Hallo,

wie muss ich diesen Code hier umschreiben damit NICHT die Unterordner der Unterordner angezeigt werden, sondern nur die der 'ersten Stufe'.

Also angenommen auf dem Laufwerk C:\ sind die Ordner

A, B, C, D, E

und diese Unterordner von C:\ enthalten jeweils auch Unterordner Namens
aa, bb, cc, dd, ee,

Dann schreibt der bisherige Code

A - aa
bb
cc
dd
ee
B - aa
bb

und so weiter.
Ich brauche aber nur die Ordner A, B, C, D, E und nicht deren Unterordner.

Public Sub OrdnerListen_Start()

  Dim fso As Object
Dim strPfad As String

    strPfad = "C:\"  

With ActiveSheet   

    .UsedRange.ClearContents

    Set fso = CreateObject("Scripting.FileSystemObject")

    Call OrdnerListen(fso, strPfad, .Range("A1")) ' Pfad anpassen!

    Set fso = Nothing

   End With

   End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)

On Error Resume Next

  Dim o, uo

  Set o = fso.GetFolder(Ordnerangabe)   

  rng.Offset(Zeile, Spalte).Value = o.Name    
Zeile = Zeile + 1

  For Each o In o.SubFolders

    Call OrdnerListen(fso, o.Path, rng, Zeile, Spalte)

  Next

  Set o = Nothing
Set uo = Nothing

End Sub

Hallo zusammen,

Ich habe ein Makro geschrieben, mit welchem jeweils via Button eine neue Spalte eingefügt wird.

Über den Button Spalten entfernen wird die jeweils ausgewählte Spalte gelöscht.

Private Sub CmdSpaltePlus_Click() 'Test Spalte hinzufügen

Dim spalte, zeile As Integer

Application.ScreenUpdating = False

spalte = 4

Do Until Cells(2, spalte).Value = "Perfektion"

   spalte = spalte + 1

Loop

Columns("D:E").Copy

Columns(spalte).Insert Shift:=xlToRight

Range(Cells(2, spalte - 2), Cells(2, spalte + 1)).Merge

Range(Cells(4, spalte), Cells(4, spalte + 1)).Merge

Cells(3, spalte).Value = ""

Cells(3, spalte + 1).Value = ""

Cells(4, spalte).Value = ""

Cells(4, spalte + 1).Value = ""

zeile = 6

 

Do Until zeile = 1000

   If Left(Cells(zeile, 1).Value, 1) = "S" Then

        Cells(zeile, spalte).Value = ""

       Cells(zeile, spalte + 1).Value = ""

    End If

   zeile = zeile + 1

Loop

Application.ScreenUpdating = True

End Sub

 

Private Sub CmdPerfektionPlus_Click() 'Perfektion Spalte hinzufügen

Dim spalte, zeile As Integer

Application.ScreenUpdating = False

spalte = 4

Do Until Cells(2, spalte).Value = "F.n.B."

   spalte = spalte + 1

Loop

Columns("D:E").Copy

Columns(spalte).Insert Shift:=xlToRight

Range(Cells(2, spalte - 2), Cells(2, spalte + 1)).Merge

Range(Cells(4, spalte), Cells(4, spalte + 1)).Merge

Cells(3, spalte).Value = ""

Cells(3, spalte + 1).Value = ""

Cells(4, spalte).Value = ""

Cells(4, spalte + 1).Value = ""

zeile = 6

Do Until zeile = 1000

   If Left(Cells(zeile, 1).Value, 1) = "S" Then

        Cells(zeile, spalte).Value = ""

       Cells(zeile, spalte + 1).Value = ""

    End If

   zeile = zeile + 1

Loop

Application.ScreenUpdating = True

End Sub

Spalten löschen

Private Sub Kompetenzenentfernen_Click() 'Spalten löschen

ActiveSheet.Unprotect Password:="MNPS"

If Cells(5, ActiveCell.Column) = "Schicht" Or Cells(5, ActiveCell.Column) = "Nr." Or Cells(5, ActiveCell.Column) = "Name" Or Cells(3, ActiveCell.Column) = "A1" Or Cells(3, ActiveCell.Column) = "D1" Or Cells(9, ActiveCell.Column) = "." Or Cells(3, ActiveCell.Column) = "E1" Or Cells(3, ActiveCell.Column) = "F1" Or Cells(3, ActiveCell.Column) = "G1" Or Cells(3, ActiveCell.Column) = "H1" Or Cells(2, ActiveCell.Column) = "." Or Cells(1, ActiveCell.Column) = "Zielwert" Then

MsgBox "Spalte kann nicht gelöscht werden"

Else

Selection.EntireColumn.Delete Shift:=xlUp

End If

'ActiveSheet.Protect Password:="MNPS"

End Sub

Die Buttons funktionieren auch alle, nur leider kommt oft eine Laufzeitfehlerneldung oder das ganze Programm hängt sich auf wenn ich erst mit dem einen Button eine Spalte eingefügt habe und im Anschluss mit dem anderen Button eine Spalte einfügen.

Es funktioniert also leider nicht verlässlich. Hat jemand eine Idee woran das liegen könnte?

Vielen Dank im Voraus!

Hallo ich möchte Folgendesachen, und brauche dazu jemand der sich mit VBA auskennt:

Ich möchte auf Knopfdruck (Excel Button) den Aktuellen Aktienkurs festhalten können (Also quasi einfrieren auf einer neuen Zelle. Dieser sollte sich natürlich nicht mit dem Aktuelen Kurs mitändern). Kann mir jemand erklären wie ich das machen kann?

Danke für eure Hilfe🙏🏻

Hallo,

ich habe eine Multiseite mit 10 Seiten (ANPage1 - ANPage10). Beim öffnen der Multiseite wird bereits die richtige Anzahl an Pages ausgegeben (Anzahl geht aus Tabelle 2 A10 hervor.

Wenn ich nun über ein anderes Steuerelement (hinzufügen oder entfernen) auf dem Userform den Wert für A10 um +/- 1 ändere (je nach Steuerelement), soll auch entsprechend die Page .Pages("ANPage").Visible = True gesetzt werden.

Beispiel:
in A10 steht die Zahl "5". Es wird mit öffnen der Multiseite 5 Pages ausgegeben. Drücke ich nun auf den Button "hinzufügen", dann wird der Wert in A10 "6". entsprechend soll nun die ANPage6 auf Visible = True gesetzt werden.

Wenn ich nun auf den Butten "entferne" drücke, dann wird aus A10 die Zahl "5" und entsprechend soll die ANPage6 auf Visible = false gesetzt werden.

Ich weiß, es sind zwei verschiedene Befehle und wird wahrscheinlich eine Schleife? sein, jedoch habe ich da keine Ahnung, wie ich dies umsetze. Das drumherum im Befehl steht bereits.

Wahrscheinlich denke ich auch zu kompliziert.

Gruß

Hallo zusammen,

Weiß jemand weshalb ich den Range(cells(x,y),cells(x,y)) Befehl nicht in ein anderes Tabellenblatt übertragen kann?

Im ersten Tabellenblatt führe ich ein Makro aus welches auch mit dem Range(cell...) Befehl arbeitet, den gleichen Code möchte ich jetzt auf 2 weitere Tabellenblätter übertragen. Das funktioniert soweit, nur bei dem Range Befehl kommt die Laufzeitfehlermeldung.

Danke im Voraus!

Hallo zusammen,

ich habe eine Problem mit der Comobox. Die Combobox läuft über Userform und es wird nicht angezeigt.

Folgendes:

Ich möchte, dass wenn die auf den Butten druckt, schließt sich die alte Box (Lobby) und die neue Box (Start) öffnet sich. In der Box gibt es zwei Comboboxen, dessen dropdown aber nicht angezeigt wird. Deren Namen (AnAnzahl) und (Monatsauswahl) sind aber korrekt. Über .AddItem hätte ich es auch bereits versucht. Zudem hatte ich den Befehl auch direkt als Private Sub und nicht im Schritt zuvor beim vorigen Button.

Die Bilder zeigen die Eigenschaften und den Fehler.

 Private Sub Stundenerfassung_Click()
Lobby.Hide
Start.Show
Dim AnAnzahl(9) As Variant
Dim Monatsauswahl(11) As Variant
AnAnzahl(0) = "1"
AnAnzahl(1) = "2"
AnAnzahl(2) = "3"
AnAnzahl(3) = "4"
AnAnzahl(4) = "5"
AnAnzahl(5) = "6"
AnAnzahl(6) = "7"
AnAnzahl(7) = "8"
AnAnzahl(8) = "9"
AnAnzahl(9) = "10"
Monatsauswahl(0) = "Januar"
Monatsauswahl(1) = "Februar"
Monatsauswahl(2) = "März"
Monatsauswahl(3) = "April"
Monatsauswahl(4) = "Mai"
Monatsauswahl(5) = "Juni"
Monatsauswahl(6) = "Juli"
Monatsauswahl(7) = "August"
Monatsauswahl(8) = "September"
Monatsauswahl(9) = "Oktober"
Monatsauswahl(10) = "November"
Monatsauswahl(11) = "Dezember"
End Sub

Bilder:

Danke für die Hilfe.

Gruß

Hallo,

ich habe ein Problem, dass ich nicht beheben konnte. Ich arbeite mit realtiv großen Excellisten, in denen sehr viel Zahlen sind.

Um Doppelte Zahlenkombinationen zu vermeiden, brauche ich eine Suchfunktion, um zu prüfen, ob in einem bestimmten Bereich der Mappe diese Kombi schon enthalten ist. Dabei ist zu bedenken, dass die Zahlen nicht in einem gemeinsamen Kästchen stehen, sondern vertikal über mehrere Kästchen verteilt sind (aber zusammen untereinander)

z.B. suche ich die Zahlen

6

8

58

95

112

wie bekomme ich heraus, ob diese fünf Zahlen bereits untereinander in einem bestimmten Bereich in meiner Mappe sind?

Danke im Voraus!! :-)

Hey Leute ich habe mit Visual Basic einen Button gebaut der mehrere Zeilen löscht.

Diesen würde ich aber gerne beim Drucken verstecken?

Hat irgendwer vorschläge?

PS: Ich benutze noch die 2007er Version

MfG Finn

Hallo, kurze Frage zu VBA, falls sich da jemand findet der das gut kann ^^

Wir müssen zur Hausübung folgendes Szenario "erschaffen":
Wir haben die Tabelle "Buchungsmaske", die in Spalte B freie Felder zur Eingabe von Werten hat (Beispiel: Datum - Konto-Nummer - Kontobezeichnung...). Diese sollen dann durch die Schaltfläche "speichern" in das bereits vorhandene Tabellenblatt "Buchungen" gespeichert werden, und zwar in die nächste freie ZEILE.

Ich habe schon danach gesucht aber finde kaum anwendbares für diesen Sachverhalt in Foren, bzw. suche ich möglicherweise auch falsch.

Mein Code derzeit:
Dim Copy As Range, Paste As Range

  Dim aWerte()

  Set Copy = Sheets("Buchungsmaske").Range("B4:B20")

  Set Paste = Sheets("Buchungen").Range("A1:U20")

  If Sheets("Buchungsmaske").CheckBox1.Value = True Then

   aWerte() = Copy

   Paste = aWerte() 

  End If

Laufzeitfehler der immer auftaucht ist "438"

Danke für die Hilfe im Vorraus!

Hallo zusammen,

ich stehe im Moment auf dem Schlauch.... Leider bin ich kein Profi in VBA.

Mein Problem ist folgendes: Ich möchte bestimmte Spalten aus einem Tabellenblatt in ein anderes kopieren. Da die Reiehnfolge der Spalten nicht immer gleich ist, ermittle ich die zu kopierenden Spalten anhand der Überschrift in der ersten Zeile. Soweit so gut...

Nun scheitere ich leider an der Umsetzung. Bis zum kopieren funktioniert es. Doch klappt das einfügen in das neue Tabellenblatt nicht...

Es tritt folgender Fehler auf:

"Laufzeitfehler 1004

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"

Ich hoffe ihr könnt mir weiterhelfen

Viele Grüße

Hallo zusammen,

ich versuche eine Message-Box in Excel zu erzeugen, die beim Wechsel eines Worksheets bald fällige bzw. überfällige Termine anzeigt. Dabei stehen die Fälligkeiten in der Spalte K. Eine solche Meldung soll allerdings unterbleiben, sofern der Bearbeitungsstand auf "abgeschlossen" gesetzt wurde. Der Bearbeitungsstand wird in der Spalte N mittels Dropdown-Liste erfasst.

Mein Code sieht folgendermaßen aus:

Private Sub Worksheet_Activate()

 Dim rDatTermin

 Dim rDatStand

 Dim sMsgBaldFaellig As String

 Dim sMsgUeberFaellig As String

 Dim sMsgAbgeschlossen As String

 sMsgBaldFaellig = ""

 sMsgUeberFaellig = ""

 For Each rDatTermin In Range("K4:K500")

   If rDatTermin.Value <> "" Then

     If rDatTermin.Value < Date Then

       sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatTermin.Row, 2) & vbCrLf

     Else

       If rDatTermin.Value <= Date + 14 Then _

         sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatTermin.Row, 2) & vbCrLf

     End If

   End If

   Next

 For Each rDatStand In Range("N4:N500")

   If rDatStand.Value <> "" Then

     If rDatStand.Value = "abgeschlossen" Then _

       sMsgAbgeschlossen = 1

     End If

   Next

 If sMsgUeberFaellig & sMsgBaldFaellig <> "" & sMsgAbgeschlossen <> 1 Then

   MsgBox "Überfällig" & vbCrLf & vbCrLf & sMsgUeberFaellig & "Bald fällig" & vbCrLf & sMsgBaldFaellig

 End If

End Sub

Offensichtlich klappt hier die Verknüpfung zur zweiten Bedingung noch nicht. Die erste Bedingung wird geprüft und korrekt angezeigt. Der Bearbeitungsstand wird dabei jedoch nicht berücksichtigt. Wo habe ich da meinen Gedankenfehler?

Hallo,

ich habe ein Excel Programm von einem Rechner mit Windows 7, Excel 64bit erstellt.
Dort funktioniert es auch einwandfrei.
Testet man es nun auf Windows 10, Excel 64 bit, kommt folgende Fehlermeldung:

64-Bit Office setzt 64-Bit Windows voraus (was der Fall ist).
Weiterhin kommt dann folgende Fehlermeldung:

Was kann ich tun?

Vielen Dank!

Hallo zusammen,

Wenn man fundierte VBA Kenntnisse im excel vorweisen kann, erhöhen sich die Jobchancen signifikant?

Ich mache mir Gedanken drüber ob neben Praktikum, Werkstudentenstelle, Auslandssemester noch VBA Kenntnisse aneignen soll. Es geht um Jobs später im Controlling bzw. Accounting/ Finance

Guten Tag

Ich habe ein Projekt bei dem ich (Wie unten im Beispiel) Daten auslesen muss aber eben nicht alle sondern nur die mit dem 1. Datensatz (Wie im Beispiel 500)

Beispiel: (So sieht ca. die .txt Datei aus nur brauche ich nur die mit 500 am Anfang)

500;12345;Name;Vorname;Datum
501;Bla1;Bla2;Bla3
503;Produkt;Wert;Status
500;12346;Name1;Vorname1;Datum1

Wie lässt sich eine Tabelle nach aufsteigenden Ziffern sortieren?
sodass zum Beispiel die zahl 12597 über der Zahl 345 steht, da die 1. Ziffer kleiner ist.
es soll also nicht nach dem „Wert“ bzw. der Größe des Wertes sortieren.
hoffe ist verständlich.

Und wieder eine Frage:

Ich habe ausgeblendete Tabellenblätter und möchte nun über einen Command-Button, dass sich die Userform schließt, ein bestimmtes Tabellenblatt eingeblendet, dann aktiviert und dann eine Userform öffnet. Im Debug-Modus klappt es, aber wenn ich es direkt versuche, wird zwar die Userform geschlossen aber das Tabellenblatt nicht eingeblendet und aktiviert. Wenn ich die Userform schließe, dann aber wird das Tabellenblatt eingeblendet.

Habe wohl eine falsche Reihenfolge in diesem Code:

Private Sub CMD_More_Click()
    CMD_More.TakeFocusOnClick = False
    Unload Me
    Worksheets("Fertigungsprüfplan Seite 2").Visible = True
    Call change1
End Sub

Public Sub change1()
    Worksheets("Fertigungsprüfplan Seite 2").Select
    Range("A1").Select
    Load UserFormInspectionFeature2
    UserFormInspectionFeature2.Show
End Sub

Kann da auch jemand helfen? Danke im Voraus. Ich möchte es nur verstehen...

Durch ein anderes Makro wird zuvor der Bereich A5:C400 so gefiltert, das alle leeren A-Zellen die ganze Zeile ausblenden lässt. Im jetzigen Schritt versuche ich, den Bereich A5:C400, in welchem viele Zeilen ausgeblendet sind, auf ein anderes Tabellenball zu kopieren. Das Bild zeigt meine aktuellen Stand, aber irgendwie bin ich da überfragt. Die ausgeblendeten Zeilen sollen NICHT mitkopiert werden.

Könnte jmd mein Programm anpassen, sodass es klappt?

VIelen Dank!

Hallo zusammen,

gibt es einen Vba Code welche eine Selbstzerstörung beinhaltet. Dabei sollen alles was in der excel Datei ist gelöscht werden.

danke im Voraus !

Hi, ich habe einen String aus mehreren Textfeldern, einen Teil davon möchte ich gerne hochstellen. Kann man das irgendwie mit Superscribt machen? Diesmal irgendwie schwierig etwas dazu bei Google zu finden.

Der String sieht aus wie folgt. Den Teil mit "TextBox_ToleranceUP.Text & " " & TextBox_ToleranceLO.Text" möchte ich gerne hochstellen. Danke im Voraus.

connect = TextBox_InspectionCriterion.Text & " " & TextBox_ToleranceUP.Text & " " & TextBox_ToleranceLO.Text

Hallo zusammen,

bei meiner Frage vor einigen Tagen (https://www.gutefrage.net/frage/text-mittels-checkbox-in-word-einblenden-vba-macros) habe ich erfahren, wie man per VBA Text durch Checkboxen anzeigen lassen kann.

Es handelt sich hier allerdings nicht um einzelne Wörter, sondern um ganz Absätze, die einer gewissen Formatierung bedürfen. Gibt es eine Möglichkeit, den Code im VBA-Editor so zu verändern, dass einzelne Worte fett oder unterstrichen angezeigt werden?

Herzlichen Dank im Voraus für hilfreiche Antworten!

Hallo zusammen,

ich stehe vor einem (für mich sehr großen) Word-Problem: Ich möchte zwei Checkboxen einfügen (aus der Kategorie Entwicklertools > Steuerelemente > Active X Kontrollkästchen), welche beim Anklicken jeweils einen bestimmten Text anzeigen bzw. wieder ausblenden.

Aus meiner bisherigen Recherche habe ich herausgefunden, dass das wohl durch Macros funktionieren sollte, damit kenne ich mich aber absolut nicht aus und meine bisherigen Versuche, einen Code aus dem Internet einzufügen, sind auch alle fehlgeschlagen.

Wenn sich irgendjemand in der Lage fühlt, mir weiterzuhelfen und einen entsprechenden Code zur Verfügung zu stellen, tausend Dank schon mal im Voraus!!

Wie schreibe ich das in VBA? Dankeschön

Hallo,

ich habe ein Problem, dass ich nicht gelöst bekomme:

Ich habe eine Liste mit den Zahlen 1 bis 70. Aus diesen Zahlen brauche ich alle 10er-Kombinationen die es gibt. Das dürften ein paar Millionen sein. Es geht also nicht darum, wieviele Kombinationen es gibt, sondern um die einzelnen Kombinationen selbst.

zum Beispiel:

1,2,3,4,5,6,7,8,9,10

1,2,3,4,5,6,7,8,9,11

1,2,3,4,5,6,7,8,9,12

und so weiter.. Vielleicht findet sich hier ein Experte :)

Guten Tag zusammen,

ich habe folgendes Problem: Wenn ich aus der Excel-Datei per Makro eine PDF erstellen möchte, kommt seit kurzem folgender Fehler:

Laufzeitfehler -2147417848 (80010108):
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt.

Lt. Debugger ist folgender Zeile betroffen:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     DateiName, Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
     False   

Der Fehler tritt nur bei Excel 2016 auf. Bei der Verson 2010 gibt es keine Probleme. Kann es daran liegen, das Excel 2016 noch nicht gekauft wurde sondern nur die Testversion ist? Jedoch halte ich dieses für unwahrscheinlich..

Der Fehler ist auch im Internet bereits bekannt, jedoch habe ich bisher noch keine Lösung gefunden.

Gruß

Wenn ich die Tabelle mit: Range("Tabelle1[#ALL]") beschreibe, bekomme ich die gesamte Tabelle inklusive Überschriften. Ich möchte jedoch nur einzelne Spalten der Tabelle, aber trotzdem mit den passenden Überschriften.

Mit dem VBA im Bild bekomme ich die richtigen Spalten, aber keine Überschriften. Hilfe :D

Danke

Hallo Zusammen

Ich möchte folgendes in einem Excel machen:

In Tabelle1 habe ich mehrere Zeilen die so aufgebaut sind: Spalte A = Nummer (01-99), Spalte B = Bild, Spalte C = Beschreibung, etc.

Das Bild in Spalte B möchte ich einbetten. Oder so einfügen, dass ich es z.B. in Tabelle2 mit "=Tabelle1!B2" anzeigen kann. Wie kann ich das Bild am besten hinterlegen? Ich habe schon die Bilder mit der ALT-Taste in die Zelle gezogen resp. in den Einstellungen eingestellt, dass sie "Von Zellposition- und Grösse abhängig" sind. Das hat aber nicht funktioniert.

Des weiteren möchte ich dann in einem UserForm eine ComboBox haben, mit den Nummern in Tabelle1. Sobald eine Nummer ausgewählt wurde, sollen daneben das Bild (Spalte B) und die Beschreibung (Spalte C) angezeigt werden. Wie diese Infos dann weiterverarbeitet werden, habe ich bereits vorbereitet.

Bei den Bildern habe ich die Tabelle1 und das UserForm grob dargestellt.

Vielne Dank,

Michael

Wenn ich den Entfernen Button aklicke kommt die MsgBox "Da steht nicht".
Die soll aber erst kommen wenn da wirklich nichts steht.
Kann mir jemand helfen?

LG

Hallo zusammen!

Ich möchte bei einem Visual Basic Formular ein Textfeld erstellen wo automatisch der Benutzername eingetragen wird von dem der das Formular ausführt. Wie mach ich das bzw. wie lautet der Befehl?

Danke!

ich habe ein Programm wie ein Taschenrechner erstellt.
In den Feldern kann man zahlen eingeben und danach kommt das ergebnis.

diese soll aber als Vorlage dienen und wenn man die Anwendung schließen möchte dann soll die Frage „ Möchten Sie es speichern?“ nicht erscheinen.

Gibt es einen VBA Code welches ich schreiben kann damit die Datei nicht speicherbar ist.

also ich klicke auf das rote X und es schließt sich auch weder zu fragen noch zu speichern.

Danke

mfg

integerhallo liebe Community folgende Frage zur Deklaration von Jahr

Hätte ich anstatt integer auch Byte nehmen können ?

Vielen Dank schonmal

Hallo Zusammen ,

ich bin leider wirklich nicht fit was das Thema Makro schreiben angeht deshalb habe ich folgendes Problem:

Ich habe mehrer Spalten mit etwa 1000 Zeilen voller Daten. Es handelt sich dabei um Minutenwerte. Diese würde ich gerne in 30 min Werte zusammenfassen. Da das händisch ewig dauert bräuchte ich dafür ein Makro welches den Mittelwert bildet und 3 Spalten weiter in der ersten Zeile (wo auch der erste Werte der zur Mittelwertsberechnung rangezogen wird notiert ist). Dann soll der nächste Mittelwert mit den Folgenden 29 Minuten-Werten gebildet werden, 3 Spalten weiter unter dem vorherigen Mittelwert notiert werden.

Folgendes habe ich versucht:

Sub Halbstundenmittelwerte()

Dim i As Integer

Dim z As Integer

Dim x As Integer

Dim MW As Double

For i = 10 To 15010 Step 30

z = i

x = z + 29

Range(Hz).Select

ActiveCell.FormulaR1C1 ="= AVERAGE("Cz:Cx")"

Range(Hi).Value = MW

Next i

End Sub

Danke euch !

Hallo, nochmal die selbe Frage, anders gestellt.

Ich habe mit dem erweiterten Filter jeweils einen Listenbereich und einen Kriterienbereich festgelegt.

Mit dem Button „Filtern“ kann ich, wenn ich in die obige Tabelle beispielsweise eine Abteilung reinschreibe wie „VK“, alle Mitarbeiter in dieser Abteilung in der unteren Tabelle anzeigen lassen. Das habe ich mit einem Makro gemacht und dann einfach auf die Schaltfläche zugeteilt. Mit VBA Codes kann ich gar nichts anfangen, ist aber als Bild nochmal hinterlegt.
Wenn ich jetzt mit dem Filterbutton etwas herausgefiltert habe, werden die anderen Mitarbeiter mit einer anderen Abteilung ja ausgeblendet. Ich möchte, um wieder alle Mitarbeiter einzublenden, einen zweiten Button einfügen. Nun weiß ich aber nicht, was genau ich machen soll, sobald ich den Makro aufzeichnen lasse. Kann mir jemand helfen?
bitte keine VBA-Codes, es muss ja auch anders gehen!

Moin.
mich hab Probleme bei ner Formel in VBA. Für die Formel muss von 3 werten jeweils der höchste und der niedrigste ausgelesen werden und mit diesem muss dann weitergerechnet werden. Ich habe das bisher über die normalen Formeln gemacht und wollte es nun mit vba machen das es schneller geht. Hab aber kein Plan wie ich das programmiere das der min und Max wert ausgelesen wird.

meine formel war diese:

„ =((MAX(C5:C7))-(MIN(C5:C7)))/(SUMME(C5:C7)/3)*100“

ich würds gerne machen das ich eingebe:

=Funktion(Wert1;Wert2;Wert3)

ist das umsetzbar ?

Gruß !

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

  MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

  GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!

die Aufgabe lautet: "...berechnete Noten sollen nach der 1. Nachkommastelle "abgeschnitten" werden werden". Dies soll mittels einer VBA-Funktion "NOTERUNDEN" realisiert werden.

Kennt jmd zufällig einen fertigen Quelltext dafür ?

Wie kann ich in Excel die Pfeiltasten überwachen lassen, d. h., immer wenn ich in der Tabelle "Tabelle1" die rechte Pfeiltaste drücke, soll nicht die Zelle rechts von der aktuellen Zelle ausgewählt werden (wie es ja normal wäre), sondern das Makro "Makro1" ausgeführt werden.

Geht das überhaupt?

Wir müssen in Excel etwas mit VBA programmieren, und ich bräuchte dabei ein bisschen Hilfe.

Wir sind bei dem neuen Thema das wir Excel Tabellen mit VBA bearbeiten und ich kenne mich dort leider noch nicht so gut aus.

Bei dem Beispiel sollen die Fehlstunden der Schüler per Schaltfläche erhöht werden können.

In Excel sieht das ganze dann so aus:

Unter der 4 und der 2 sollte dann noch eine Schaltfläche vorhanden sein.

Ich danke für eure Hilfe! :)

Wie kann ich die Items in ComboBox2 an Value von ComboBox1 anpassen? Z.B. Wenn in ComboBox1 Item1 ausgewählt ist soll in ComboBox2 Item1a und Item1b angezeigt werden, wenn ich jetzt aber in ComboBox1 Item2 auswähle soll in ComboBox2 Item2a und Item2b angezeigt werden. Mit dem folgenden Code werden die Items erstellt aber leider Löschen sich die Items nicht bei einer anderen Auswahl in ComboBox1:

If ComboBox1.Value = "Item1" Then

With Me.ComboBox2

.AddItem "Item1a"

.AddItem "Item1b"

End With

End If

If ComboBox1.Value = "Item2" Then

With Me.ComboBox2

.AddItem "Item2a"

.AddItem "Item2b"

End With

End If

.RemoveItem "Name des Items" hat nicht geklappt.

Ich kann in Python gut programmieren und bin sehr gut in Excel allgemein (VBA ausgenommen), aber mit VBA habe ich null Erfahrung. In meinem Traumjob werden "Sehr gute MS-Office Kenntnisse inklusive VBA-Programmierung" gefordert.

Wie lange braucht man, bis man "sehr gut" ist in VBA? Dauert das genauso lang wie bei "normalen" Programmiersprachen wie Python? Oder geht es schneller?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

Hallo zusammen,

ich habe in Access einen Button, der aus einer Abfrage eine PDF erstellt und diese via E-Mail versendet.

Ich möchte den Button so programmieren, sodass die PDF nicht verschickt wird, wenn die Abfrage keine Daten enthält.

Teil der Ereignisprozedur "Beim Klicken" für den Button:

Private Sub Befehl96_Click()
    Dim stDocName As String     Dim fileName, fldrPath, filePath As String     Dim answer As Integer       Dim strFrom, strSchema, strPW, strServer, strText, strBenutzer, strUseSSL, strSubject, strBody, strFile As String  'E-Mail     Dim intPort As Integer     Dim cdoMsg As CDO.Message
    Const cdoAnonymous = 0          Const cdoBasic = 1      Const cdoSendUsingPort = 2          stDocName = "Artikeländerungsprotokoll_ARTGruppe"     DoCmd.OpenQuery stDocName, acNormal, acEdit          fileName = Format(Date, "YYYYMMDD") & "_Aenderungsprotokoll_Herstellverfahren"     fldrPath = "K:\ARTIKEL\SQL_Protokolle"     filePath = fldrPath & "\" & fileName & ".pdf

    If Dir(filePath) <> "" Then
        
        answer = MsgBox(prompt:="PDF-Datei existiert bereits: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
        "Möchten Sie die Datei ersetzen?", Buttons:=vbYesNo, Title:="Datei Name existiert bereits")
    
    If answer = vbNo Then Exit Sub
    End If
 
   DoCmd.OutputTo acOutputReport, "ARTIKELÄNDERUNGSPROTOKOLL ARTGruppe", acFormatPDF, filePath

Ich möchte prüfen, ob in der Abfrage"ARTIKELÄNDERUNGSPROTOKOLL_ARTGruppe" Daten enthalten sind. Wenn keine Daten enthalten sind, dann soll nur eine MsgBox erscheinen, die besagt, das keine Daten vorhanden sind und nichts weiter.

Ich bin ein Anfänger im programmieren und tue mir schwer...

Kann mir bitte jemand helfen?

Hallo ich würde gerne mit einer UserForm meine Tabelle befüllen wie kann ich es machen das das was ich in ein Textfeld eingetragen habe in ein bestimmtest Feld eingetragen wird z.B. D12

Hi Zusammen

Ich habe eine Tabelle, in der in Zellen A3:G3 Formeln sind. Ich will mittels Makro die Formeln nach unten kopieren. In Spalte I sind Datensätze. Wie kann ich ein Makro so erstellen, dass die Formeln in Spalten A:G nur soweit eingefügt werden, wie in Spalte I Daten vorhanden sind? Die Daten in Spalte I ist variabel (200, mal 300, etc.)

Es gibt doch sicher vorgefertigte Möglichkeiten zu Eingabe einer Zeit, die aus einem Text eine Zeitspanne macht, zur Vermeidung von Problemen beim Eintippen einer Angabe im Format m.ss,000, also zum Beispiel bei der Erfassung der Zeit für eine sportlichen Wettbewerb wie Mittelstreckenläufe oder Skirennen.

AppActivate verlangt nach dem Fenstertitel. Es handelt sich um Excel und GTA online.

Unter top oder height kann ich mir ja noch was vorstellen.

Hallo, kann mir bitte jemanden mit dem Code behilflich sein?

Dieser Code sucht die Zellen in Spalte"A" nach bestimmten Textinhalt ab und bei Treffer löscht er die zughörige gesamte Zeile. Meine Frage: kann man diesen Code so ändern, dass anstatt die gefundene Zeile zu löschen nur mit einer Farbe z.B. Orange (44) färbt? Vielen Dank im Voraus.

Sub zeilenloeschen()
  Dim i As Long
  Dim letzteZeile As Long
  Dim suchBereich As Range
  Dim gefunden As Range
  Dim ersterTreffer As String
  Dim suchWert As String
  suchWert = "1" 'hier kommt dein Suchwert rein
  
  With ThisWorkbook.Sheets("Sheet4")
    letzteZeile = .Range("A" & Rows.Count).End(xlUp).Row
    Set suchBereich = .Range("A1:A" & letzteZeile)
    Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
    If Not gefunden Is Nothing Then
      ersterTreffer = gefunden.Address
      Do
        gefunden.Activate
        ActiveCell.EntireRow.Delete shift:=xlUp
        Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
      Loop While Not gefunden Is Nothing
    End If
  End With
End Sub

Hallo!

Ich bin gerade dabei ein Programm zu erstellen. Dieses soll dazu dienen einen I/O-Check von Automatisierungstechnik durchführen zu können. Um die Prüfung zu dokumeentieren habe ich Togglebuttons mit i.O und n.I.O eingefügt.

Ist es möglich diese Prozedur zu automatisieren?
Es werden größenteils Lichtschranken getestet. In der Spalte "Status" wird mir ein Messwert der Helligkeit übermittelt. Ich will jetzt eine Funktion programmieren, die mir den ToggleButton auf "i.O" setzt, wenn die zugehörige Statuszelle z.B. 3 mal in 3 Sekunden unter einen gewissen Wert sinkt.

Vielen Dank im Voraus!

Hallo zusammen,

ich habe in Excel eine Dropdown auswahlliste.

Nun ist meine Frage, ob ich per Makro in dieser Liste einen Schritt weiter, bzw. wieder zurück kann?

Quasi einen "1 Höher" und "1 Runter" Buton.

Vielen dank im Vorraus!

VG

Hallo,

Ich habe derzeit das Problem, dass ich mittels Indirekt auf Werte aus einer anderen Mappe zugreife. Funktioniert, aber die Mappe muss geöffnet sein.

Deshalb habe ich ein VBA, welches diese Mappe öffnet und wieder schließt.

Da es sich jedoch nicht nur um eine Mappe, sondern ca. 30 handelt dauert das öffnen und schließen ziemlich lange, da die Dateien auf einem Server liegen.

Ich suche nach einer Möglichkeit auf die geschlossenen Mappen zuzugreifen und die Werte zu übernehmen ohne die Mappen zu öffnen. Geht das irgendwie?

Die derzeitige Formel in der entsprechenden Zelle sieht so aus: =INDIREKT(" '["&R10&"]"&$B$1&"'!"&"$C$10")

In R10 steht der Name der Mappe.

In B1 steht der Name des Tabellenblattes.

Beides ist variabel.

Vielen Dank.

Hallo zusammen,

an der Arbeit haben wir ein paar Excel Dateien (auf Netzwerklaufwerk), die zur gleichzeitigen Bearbeitung für mehrere Nutzer freigegeben sind. Das Problem hierbei ist, dass man es beim Öffnen nicht mitbekommt, wenn ein anderer Nutzer die Datei bereits geöffnet hat und bearbeitet. Besonders ärgerlich ist es wenn ein anderer Nutzer die Datei speichert und die Eingaben im gleichen Bereich getätigt wurden, wo man selber was geändert hat.

Ich Frage mich, ob es möglich ist beim öffnen der Datei per VBA MsgBox gewarnt zu werden, falls die Datei bereits von einem anderem Nutzer (wenn möglich gerne mit Namen des Nutzers) geöffnet ist?

Kann mir hier jemand weiterhelfen?

Vielen Dank und viele Grüße

Guten Tag,

ich habe ein kleines Problem.

Kurz zur Situation:

Ich möchte aus der Tabelle Test (Range A3:I102) nur die Zeilen löschen (ClearContents), wo in Spalte I "erledigt" steht. Jedoch sollen nur die Spalte A, B, D, E und I gelöscht werden. Dieses lasse ich über einen Button laufen.

Quasi: Wenn in Spalte I erledigt steht, dann lösche/cleare die dazugehörige Zeile in Spalte A, B, D, E und I. Die anderen Zeilen sollen nicht gelöscht werden. (Sind ja nicht erledigt :D)

Kann da jemand etwas aus dem stehgreif raushauen?

Vielen Dank!

Gruß

Hallo,

ich habe eine Tabelle mit 1934 Zeilen und 6 Spalten mit diversen Werten. Am Ende dieser Tabelle möchte ich ein paar statistiche Auswertungen einfügen und habe ein Problem folgende Formel per VBA-Makro in eine Leerzeile einzufügen:

'=ZÄHLENWENNS(F2:F1934;"=0")+ZÄHLENWENNS(F2:F1934;"=1")

Schreibe ich diese Formel manuell in die Zelle, summiert sie was sie zählen soll!

Der Makro liefert mir einen Laufzeitfehler 1004 und ich weiß nicht warum...

FORM01A = FRST_F & ":" & LAST_F & ";""""=0"""""

FORM01B = FRST_F & ":" & LAST_F & ";""""=1"""""

FORM01 = "=ZÄHLENWENNS(" & FORM01A & ")" & "+ZÄHLENWENNS(" & FORM01B & ")"

Cells(neu, 1).EntireRow.Insert

Cells(neu, 1) = "Anzahl aktive MGL in " & xGMD

Cells(neu, 2) = FORM01

Ich vermute, dass es an den Hochkommata liegt. Hat jemand eine Idee?

Gruß jumo

Ich möchte mit einem Input-Begriff eine Tabelle durchsuchen, jedoch soll es auch möglich sein, z. B. das Wort Koblenz zu finden, wenn ich nur kobl eingebe.
Ganz toll wäre es, wenn das Wort auch gefunden würde, wenn ich Cobl oder Kopl als Suchbegriff eingeben würde.

Hallo,

aufgrund der "Corona" Krise, muss ich mein Geschäft leider mit Online-Shopping am leben halten.

Um die Hersteller Excel CSV Daten importieren zu können, muss ich diese vorab etwas bearbeiten. Vielleicht gibt es für mein Problem eine Automatisierung?

Ich habe folgende Beispiel Tabelle:

Spalte A | Spalte B | Spalte C

Hemd XY | Grün, Blau, Weiß | L,M

Ich brauche diese für meine Shop wie folgt.

Hemd XY | Grün | L

Hemd XY | Grün | M

Hemd XY | Blau | L

Hemd XY | Blau | M

Hemd XY | weiß| L

Hemd XY | weiß | M

Also Spalte B und C sollen nach dem Komma getrennt werden und der ganze Artikel in eine neue Zeile geschrieben werden. Wobei Spalte C für jede Farbe erscheinen soll.

Vielleicht kann mir da jmd behilflich sein. Bis ich dies händisch angepasst habe, ist die Krise vorbei.

Danke

VG
Siggi

Heyho,

ich würde gerne für mein Informatikstudium ein VBA-Excel-Makro nachts ausführen lassen (reines CopyPaste-Makro). Ich habe das auf meinem Rechner, der immer an bleibt mal mit der Funktion "Application.OnTime Uhrzeit, Makroname" getestet. Am ersten Tag wurde das Makro nachts ausgeführt, am nächsten Tag nicht. Mir ist aufgefallen, dass ich mich einmal anmelden muss, sonst wird das Makro nicht ausgeführt? Da es am dritten Tag wieder ausgeführt wurde. (Der Rechner bleibt sicher immer an). Taskplaner möchte ich nicht einsetzen.

Was mache ich falsch, bzw. kann mir jemand helfen ? Kann ich das Makro auch anders nachts täglich ausführen lassen ? Wäre sehr dankbar für eure Hilfe?<br>

Danke,danke für jeden Tipp :-)

Grüßchen Sarah

Ich habe eine Tabelle in Excel erstellt. Nun ist dort ein Button, der auf Knopfdruck ein Makro ausführt, das, wenn die aktuelle entweder B2 oder C6 oder D10 ist, in diese Zelle eine 5 einträgt. Wie kann ich das mit einer If-Anweisung umsetzen (mithilfe von Or-Operatoren)?

Also ich meine so in die Richtung

If ActiveCell = B2 Or C6 Or D10 Then

Active Cell.Value = 5

Else

MsgBox("Das Argument ("5") ist nicht mit der aktuellen Zelle kompatibel.")

End If

Nur dass das oben nie funktioniert, weil ich nicht weiß, wie ich mehrere Zellen als richtig ansehen lassen kann.

Kann mir jemand das richtige Makro zeigen?

Kurz zu mir: bin Produktmanager bei einer Versicherung. Wir machen auch die ein oder andere Kalkulation oder Spielerei mit Excel, ich bin aber bin kein Profi in dem Programm. Möchte mir gerne VBA aneignen. Ich beherrsche z.B. verschachtelte WENN; DANN Funktionen ganz gut. Ist das ne gute Voraussetzung für VBA oder ist VBA nochmal nen anderes Level? Mir geht es nur um Excel VBA

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

Hallo,

Ich hab so gut wie keine Ahnung von Excel-VBAs, aber den Auftrag bekommen ein Tool zu erstellen, welches ein Vorlagen-Tabellenblatt kopiert, die Kopie dann in den nächsten Monat (Monatsnamen-Abkürzung + Jahr) umbenennt und zu Letzt einen Wert aus dem vergangenen Monat in den neuen überträgt.

Für jeden Monat soll es also ein Tabellenblatt geben.

Ich hab festgestellt, dass man mit dem Aufnahme-Tool da nicht sehr weit kommt.

Die Vorlage kopieren und umbenennen funktioniert auch schon fast, allerdings stimmt das Format noch nicht.

Ich habe keine Ahnung, welchen VBA-Befehl es benötigt um das vorherige Tabellenblatt auszuwählen, damit der Wert dann kopiert werden kann.

Vielen Dank jetzt schon einmal.

Hallo!

ich versuche derzeit folgendes, ohne mich wirklich mit VBA auszukennen :D

Ich habe zwei Tabellen, Tabelle1 und Tabelle2. Auf Tabelle 1 habe ich mehrere Kategorie-Namen (im Beispiel die Zahlen) und möchte diese quasi "Selektieren", um damit einen Filter für meine Daten in Tabelle2 zu setzen, um dort nur die Daten zur jeweiligen gefilterten Kategorie anzuzeigen.

Zur Zeit sieht es wie folgt aus (vereinfachte Darstellung mit Zahlen als Kategorie):

Tabelle 1:

Tabelle 2 (Zahlen = Kategorie, Buchstaben = Daten):

Und mein Code

Sub Filtern()
Dim Kriterium As String Dim Counter Counter = 0
For i = 1 To 5     If Cells(i, 1) = "X" Then Kriterium = Kriterium + """" + CStr(Cells(i, 2)) + """" + ","     Counter = Counter + 1      Next i
Dim Liste As Range Set Liste = Worksheets("Tabelle2").Range("A2:B10") Liste.AutoFilter Liste.AutoFilter Field:=1, Criteria1:=(Kriterium)

End Sub

Zur Erklärung was ich mir dabei gedacht habe:

In der For-Schleife gehe ich erstmal die Tabelle 1 durch und schaue, wo ein X ist und füge dann entsprechenden Kategorie-Namen aus der Zelle daneben meinem String hinzu.

Dies scheint auch zu klappen, eine Test-Ausgabe via MsgBox hat mir das Ganze so ausgegeben wie ich wollte (so: "3","5",)

Im nächsten Schritt sage ich, wo die Daten sind die zu filtern sind und wende dann "AutoFilter" an, um den Filter zu setzen. Dabei sage ich dann, dass er in Feld 1 die Kriterien suchen soll. Als Kriterium gebe ich ihm meinen vorher erstellen String, welches er als ein Array verarbeiten soll, um alle Kriterien zu berücksichtigen.

Das Ergebnis sieht allerdings nur so aus:

Ich kenne mich wie gesagt eigentlich überhaupt nicht mit VBA aus, daher wäre gut möglich, dass mein Code ein zusammengeschuhsterer Haufen Müll ist, aber naja... :D

Sieht da jemand zufällig den Fehler?

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

Hallo, ich habe in einem Buch gelernt, wie man jeweils eine Zelle bei Excel zufällig einfärbt:

Range("A1").Interior.Color = Int(16777216 * Rnd)

nach etwas nachdenken habe ich einen bestimmten Bereich zufällig eingefärbt:

Range("A1:H90").Interior.Color = Int(16777216 * Rnd)

Wie mache ich das nun, wenn ich aber jede einzelne Zelle in dem Bereich in einer eigenen zufälligen Farbe einfärben will ohne (720/2)x die Syntax

Range("A1").Interior.Color = Int(16777216 * Rnd)

Range("A2").Interior.Color = Int(16777216 * Rnd)

zu verwenden?

Vielen Dank im voraus!

Mein Problem:

Mit dem ersten Makro wird ein Wert in Zelle A1 geschrieben.

In einem weiteren Makro will ich nun diesen Wert auslesen mit Worksheets("Blatt1").Cells(1, 1).Value = i. Wenn ich das mache steht danach in Zelle A1 aber eine 0 und nicht mehr der vorige Wert. Was ist falsch?

Excel letzte Zelle mit wert finden, eine Zelle darunter auswählen, formel einfügen und bis Zelle 500 runterziehen.

per VBA

Hallo,

Ich lasse in Excel (Excel 2019) auf Knopfdruck ein Makro laufen.

Es ist eigentlich ganz simple: Es schreibt "ok" in die aktive Zelle, kopiert die linke Zelle und springt dann wieder ein runter und ein nach rechts.

Private Sub CommandButton3_Click()

Range(ActiveCell, ActiveCell.Offset(2, 0)) = "ok"

ActiveCell.Offset(0, -1).Select

Range(ActiveCell, ActiveCell.Offset(2, 0)).Copy

ActiveCell.Offset(3, 1).Select

End Sub

Das was ich nicht hinkriege:

Es wird leider die gesamte Zelle kopiert. Wenn ich die Zelle irgendwo anders einfüge wird die gesamte Zelle mit Rahmen und anderen Formatierungen eingefügt.

Nun die Frage: Kann ich anstatt die gesamte Zelle auch nur den Zelleninhalt, also nur die Schrift ohne jegliche Formatierungen kopieren lassen? Ich brauche es in den Zwischenspeicher, sodass ich es wo anders in einem Browser mit STRG+V einfügen kann.

Vielen Dank im Voraus

Guten Tag zusammen.

Ich möchte eine Excel-Tabelle erstellen, in denen mehrere Zellen eine Checkbox haben. Ich möchte nun, dass wenn eine bestimmte dieser 5 Checkboxen in einer Zeile angeklickt wird, dass sich die komplette Zeile grün färbt und wenn der Haken wieder raus ist soll sich die Zeile wieder weiß färben.
Aktuell habe ich eine eher suboptimale Lösung in der ich für alle 200 Zeilen für jede Checkbox ein eigenes Makro erstellt habe und beim Anklicken ebenjener in die Zelle, in der auch die Checkbox ist, ein X eingetragen wird und sich dadurch die Zelle grün färbt.

Kann mir da jemand helfen? :)

Hallo,

ich suche nun schon länger eine Lösung für mein Problem und komme im Moment nicht so recht weiter weil mir VBA irgendwo anscheinend meine Formel abbricht - keine ahnung, bin ja auch blutiger Anfänger.

Versuche nun schon seit Stunden es hinzubekommen, dass in jeder Zeile von Spalte A ein Zeitstempel gesetzt wird, wenn in Spalte B ein Wert (egal ob text oder Zeit) gesetzt ist.

Den Zeitstempel schaff ich schon zu setzen - aber noch nicht mit der Bedingung dass er automatisch gesetzt werden soll wenn jemand in Spalte B was eintippt. Möchte also auch vermeiden, dass jemand mit einen Buttonklick oder dem Aufrufen des Makros dieses erst starten muss um den Zeitstempel zu setzen. <br>

Mein Code bisher:

Sub ZeitstempelMakro()

If Not IsEmpty("B:B) then

Columns("A:A").Select

Selection.Find(What:="").Activate

ActiveCell.FormulaR1C1 = Format(Now, "dd.mm.yyyy hh:mm:ss")

End If

End Sub

Vielleicht kann mir jemand helfen und mir den kleinen Logikfehler finden helfen

danke! 

Ich trage in Spalte H ab Zeile 5 Daten ein, wenn jemand angerufen hat. Wenn das Datum gestern oder älter ist soll die Zelle leicht rot ausgefüllt sein.

Wenn ich es über Bedingte Formatierung und neue Regel mit "=$B2<heute()" versuche, sind die Zellen allerdings auch rot, wenn garnichts drin steht. Wie kann ich das verhindern?

In meiner Telefonliste habe ich verschiedene Spaltenüberschriften in Zeile 4 ( zB Datum, Name, Nummer...) und darunter die jeweiligen Anrufe. Ich möchte, dass sobald in Spalte "i" ein "ü" oder "Ü" eingetragen wird, dass die gesamte Zeile archiviert wird, d.h. sie in dieselbe Tabelle auf Arbeitsblatt 2 "Erledigt" verschoben wird.

Ich hab ein Formular und versuche, wenn auf IRGENDEIN Textfeld geklickt wird, ein Makro bzw. Code zu starten. Ich will aber nicht vorher angeben müssen, welche Textfelder das sind und will auch keine 30 onclicks für jedes Textfeld.

Habt ihr ne Idee? Hab schon gegooglet..

Hallo,

mein momentanes Vorhaben:

Ich habe eine Masterliste und daraus möchte ich gern mittels VBA durch Zeilen markieren neue Teillisten exportieren bzw später auch wieder importieren können.

Problem hierbei ist, die Masterliste wird von einem anderem Service generiert. Der Service erzeugt .xlsx Dateien als ohne Makro. Bis das System, Dateien mit Makros erzeugen kann würde ich gerne eine Übergangslösung basteln. Vor allem weil ich das Projekt leite und bis zu meinem Praktikumsende nur noch ein paar Wochen sind.

Meine Frage: Ist es möglich mit Python o.ä. die Makro-Skripte in eine .xlsx Datei zu packen und diese Tabellen dann als .xlsm zu speichern? Vorallem geht es um eine Modul Skript und ein DiesesArbeitsblatt-Skript, welches beim Start ausgeführt wird. Kenne mich selber nicht so super gut in VBA aus.

Ideal wäre es, wenn es komplett automatisiert läuft, also der Kollege öffnet eine dieser Listen dann wird, diese Liste automatisiert mit dem Makro versehen. Ich schätze das ist performancelastig,da permament geprüft werden muss ob eben eine Liste geöffnet wurde, deswegen würde auch eine manuelle Lösung reichen. Quasi ich wähle die Liste starte ein kleines Programm und bekomme die Liste mit dem Makros zurück.

Ist dies möglich? Mein großes Problem ist, das ich nicht weiß wie ich diese VBS-Skripte in die Liste importiere, so das dies erkannt wird.

Wäre super wenn da jemand was weiß.

mfg werdas34

Wenn K1 geändert wird soll es in der Tabelle2 den vorherigen Wert auflisten. Zum Beispiel Zelle K1 ändert sich von 260 zu 300 dann soll der Wert 260 aufgelistet werden in der Tabelle2. Wenn nun 300 zu 290 geändert wird soll 300 gespeichert werden. Das ganze soll dann in Tabelle2 so in etwa aussehen bis jetzt A1 = 260 A2 = 300 A3 = 290.

Ich habe bereits nach einer Lösung gesucht und diese erfordert jedoch etwas mit VBA-Code von dem ich nicht so viel Ahnung habe. Ich weiss noch nicht einmal wie ich in Spalte A:A die Namen der Kunden zählen kann, dabei jedoch die doppelten ignoriere :`)

Ich danke bereits im voraus

Hallo.

Ich will einen Tannenbaum mit * erstellen, aber schaffe es nur so:

Das Problem ist, dass er von links nach rechts wie eine halbe Pyramide ist. Ich möchte aber, dass er wie eine echte Tanne aussieht. Also das erste Sternchen * oben mittig, dann in der nächsten Reihe wieder mittig, usw..

Ich weiß nur, dass man irgendwie mit Leerstrings arbeiten muss. Es soll auf jeden Fall am Ende wie ein Baum oder eine Pyramide sein. Danke.

Bisher habe ich diesen Code:

Private Sub tannenbaummodel()
  Dim n
  Dim a
  Dim zweig As String
  
  For n = 1 To 5
    zweig = ""

    For a = 1 To n
      zweig = zweig & ""
    Next

    Debug.Print zweig
  Next
End Sub

Ich dachte nicht, dass mir VBA Probleme machen würde, doch anscheinend doch. Ich programmiere seit gut drei Jahren und das, was am einfachsten ist, bringt mich gerade zum Verzweifeln. Es liegt aber auch daran, dass ich mich in VBA nicht gut auskenne.

Hier mein Problem:

Ich habe eine Userform mit zwei Textboxen. In die Textbox1 schreibe ich einen Wert hinein. Dieser Wert multipliziert sich dann mit dem Wert 61,7 aus der Spalte G2. Das Resultat erscheint anschließend in der Textbox2 mit der Währung CHF hintendran.

Das ist mein Code:

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Private Sub TextBox1_Change()
  On Error Resume Next
  TextBox2.Value = TextBox1.Value * Tabelle1.Range("g2").Value
End Sub

Private Sub TextBox2_Change()
  On Error Resume Next
  If TextBox2 <> "" Then
    TextBox2 = Format(TextBox2, "##,##0.00 Fr.")
End Sub

Private Sub UserForm_Click()
End Sub

Nach meinen Erfahrungen her stimmt der Code. Es scheitert jedoch beim multiplizieren, denn für mein Programm ist 1 x 64,7 = 22’463.00 CHF.

z.B.
Excel zeigt in der Zelle den Wert 100
Wenn ich in die Zelle mit F2 gehe, die Formel markiere und mit F9 das Ergebnis ansehe steht der Wert 270
Jetzt muss/müsste ich in jeder solchen Zelle mit F2 und ENTER/TAB/strg+s das Ergebnis aktualisieren (funktioniert also). Gibts es hierfür eine schnellere/gesamtheitliche Lösung ?
Kann man also alle Zellen/Formeln auf einmal "abschließen"?
VG