VBA-Code für Excel erweitern?

Genau. Wenn man in einer Zelle 'ankommt wird das SelectionChange geworfen. dann kann man in genau diesem Moment Dinge tun.
Aber Achtung. Schreib man nun einen neuen Inhalt in diese Zelle wird direkt danach das Worksheet_Change eworfen. Dies mus man dann verhindern.
Application.EnableEvents = false
'Update Code
Application.EnableEvents = True

ChrisAlex2

Beitragsersteller

11.03.2023, 19:56

Ich werde das nachher, wenn ich Feierabend habe, direkt testen. Nur weiß ich immer noch nicht, wie ich es Excel per VBA mitteile, das er in die aktive Zelle das Datum+1 schreibt. Mit A10+1 funktioniert das nicht, weil das ja z.B von A14 nach A15 dann nicht klappt

IchMalWiederXY

12.03.2023, 18:15

Range("A11").value = Range("A10").value

ChrisAlex2

Beitragsersteller

14.03.2023, 10:08

Ich hab jetzt hin und her probiert, hab mir nen Makro aufgezeichnet, wie es aussehen soll, aber das passt hinten und vorne nicht. Und wenn ich ganz ehrlich bin, die Bruchstücke, die bekomme, verwirren mich zur Zeit(beruflich bedingt) eher als dass sie mir helfen.

Gruß Chris

IchMalWiederXY

14.03.2023, 18:12

mmhh mag sein.
Aber auch wir haben nur ein BruchStück.
Die Tabelle selbst mit dem Aufbau ist nicht zu sehen.
Eine Zeile einblenden/ausblenden hinzufügen abhängig von der aktuellen Position ist eigentlich ein "Einzeiler"
Daher ggf nochmal ganz anders an das Vorhaben ran gehen.

ChrisAlex2

Beitragsersteller

26.03.2023, 18:15

Hallo,

wie kann ich denn hier eine Demo-Mappe hochladen?

IchMalWiederXY

26.03.2023, 20:17

kann man nicht. ggf einen der Experten als "Freund" antriggern, dann eMail Adressen austauschen...(Ich mache da aber nicht mit. andere haben aber sehr viele "Freunde")

ChrisAlex2

Beitragsersteller

27.03.2023, 10:25

So geht´s auch, hoffe ich mal https://www.herber.de/bbs/user/158456.xlsm

IchMalWiederXY

27.03.2023, 20:56

Also:
Alles soll passieren wenn sich in der Zeile: 10 etwas GEÄNDERT hat.
Dieses Event
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
wird immer dann angesprungen wenn sie tatsächlich etwas ändert in einer Zelle.
Es gilt also die Bereiche einzuschränken, wann man dort landet.
If Target.Row = 10 Then 'muss noch als Einschränkug ergänzt werden.
If Target.Column = 1 then ' Hier verändert sich das Datum. Dann abhängig die Liste für A8 verändern. Dies macht man mit "abhängigen DropDown" Suche in meinen GuteFrage Antworten.
In "O" nach unten laufen mit dem select
If Target.Column < 15 Then

Cells(Target.Row, Target.Column + 1).Select

Else

Cells(Target.Row + 1, 1).Select

End If

Warum, welche Zeile versteckt wird ist mir nicht klar. Hier einen Code vorzuschlagen wird daher Spekulation.
Das "Ausblenden" von Zeilen würde ich aber über einen kontrollierten Autofilter machen, anstatt Zeilen zu verstecken. Beim Start des WorkBooks
Private Sub Workbook_Open()
End Sub
könnte man prüfen in welchem Monat sich befindet und den Filter entsprechend setzen.
Generell ist dein Tabelle PIVOT tauglich.
Die Monats (Jahres, Tages, Person, etc) könnte also automatisch über PIVOT Berichte erfolgen, ohne jeden Mehraufwand.

ChrisAlex2

Beitragsersteller

28.03.2023, 19:08

Excel VBA: Text aus Inputbox in Zelle ergänzen (nicht überschreiben)

Hallo,

das klingt alles sehr kompliziert. Habe mal in deinen Antworten nach "abhängigen DropDown" gesucht und bekomme folgendes als Antwort : IchMalWiederXY hat noch keine Antworten mit " "abhängigen DropDown"" geschrieben.

Ich habe ja eine Variante, die im Grunde funktioniert. Nur stören mich zwei Sachen. Hier mal der Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim lRowIn&, a&, lMonat&, dDatum As Date

On Error GoTo ende

Application.EnableEvents = False

Application.ScreenUpdating = False

'* bei Monatswechsel in A8

If Target.Address = "$A$8" Or Target.Address = "$A$8:$A$8" Then

lRowIn = Application.Match(Target.Value, Sheets("Hilfstabelle").Columns("D"), 0)

'* Sollstunden in M1 eintragen

Range("M1").Value = Sheets("Hilfstabelle").Range("E" & lRowIn).Value

ActiveSheet.Range("$A$8:$A$375").AutoFilter Field:=1, Operator:= _

xlFilterValues, Criteria2:=Array(1, lRowIn & "/1/2023")

'Monat /Tag/Jahr

'* Sprung in Spalte B des Monatsersten des ausgewählten Monats

dDatum = DateSerial(Year([B2]), lRowIn, 1)

lRowIn = Application.Match(CLng(dDatum), Range("A1:A375"), 0)

Cells(lRowIn, 2).Select

End If

'* Wenn Enter-Taste in den Spalten A - N gedrückt wird

If Target.Column < 15 And Target.Row > 10 Then

Cells(Target.Row, Target.Column + 1).Select

End If

'* Wenn Enter-Taste in der Spalte O (=15) gedrückt wird

If Target.Column = 15 Then Target.Offset(1).EntireRow.Cells(2).Activate

ende:

Application.EnableEvents = True

End Sub

alle 12 Monate sind mit dem jeweiligen Datum versehen. Wenn ich nu den Januar in A8 auswähle, wird mir der gesamte Monat angezeigt. Und das ist genau das, was ich nicht möchte. Es soll beim betätigen der Enter-Taste in Spalte O der nächste Tag eingeblendet werden. Erscheint z.B der 01.02 dann wähle ich in A8 den Februar aus und der Januar verschwindet ganz.
Das mit der Enter-Taste hat funktioniert, bis ich Spalte I mit O vertauscht habe. Vorher wurde immer etwas in Spalte o eingetragen und somit ging das mit der Enter-Taste. Jetzt wird so gut wie gar nichts mehr eingetragen und ich muss einen Doppelklick in die Zelle machen und mit Enter abschliessen, dass der Cursor in Spalte B der nächsten Zeile springt.

Deine Idee hört sich schon interessant an, nur wüsste ich nicht ansatzweise, wie ich das umsetzen soll

Ähnliche Beiträge

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

Excel VBA eine definierte Shape bewegen?

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

Excel - Speicher-datum in Kopfzeile?

möchte immer das letzte Speicherdatum in der Kopfzeile. Habe bereits mehrere Lösungen gegoogelt, aber funktionieren tun sie nicht. Wo mache ich den Fehler?

Habe folgenden Befehl eingegeben

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim booIsSaved As Boolean
Dim strDatInfo As String
With ThisWorkbook
booIsSaved = .Saved
If .Path <> "" Then
strDatInfo = .BuiltinDocumentProperties("Last save time")
Else
strDatInfo = "noch nicht gespeichert"
End If
ActiveSheet.PageSetup.LeftHeader = "Zuletzt gespeichert: " & strDatInfo
.Saved = booIsSaved
End With
End Sub

Und hier noch einen printscreen. Besten Dank

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

For Steuervariabel wird bereits verwendet! was bedeutet das?

Hallo nochmals,

ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.

Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"

was bedeutet das ? heißt es, das man das "For" nur einmal in einem code gebrauchen kann ? wäre vielleicht ein "GoTo" befehl angebrachter? ( sprich: go to next cell, wenn die bedingung erfüllt ist )

hier ist der code:

sub kopieren( )

Dim Zelle As Range Dim Wert As Variant

Wert = ActiveSheet.Range("J16:j29")

With Sheets("Tabelle2") For Each Zelle In .Range("F6:G6")

If ((Range("J16").EntireRow.Hidden = True)

Or (Range("J16").EntireColumn.Hidden = True))

Or (Range("J16").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J17")

Else

Zelle.Value = ActiveSheet.Range("J16")

With Sheets("tabelle2")

For Each Zelle In .Range("H6:I6")

If ((Range("J17").EntireRow.Hidden = True)

Or (Range("J17").EntireColumn.Hidden = True))

Or (Range("J17").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J18")

Else

Zelle.Value = ActiveSheet.Range("J17")

End If End With End If Next Zelle End With End Sub

Danke schonmal für eure Tatkräftigen Hilfen :)))

Gruß Newb

Excel: Verbessertes Logging mit VBA Makro?

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

Brauche einen Excel Makro zum wechseln von Tabellen?

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

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

VBA CODE Zellen nach bestimmten Textinhalt suchen und Zeile Färben?

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 möchte in einer Excel Datei per vba code bis zur ersten leeren zeile gehen, wie tue ich das?

ich möchte zur ersten leeren Zeile gehen und dann den rest markieren und löschen, also den kompletten Bereich ab da? BSp. A10 ist leer, dann möchte ich ab A10:z10 und abwärts alles markieren und löschen

Wie??

Sub FIND_EMPTY_CELL()

    Dim zeil As Integer
    Dim z As Integer
    Dim leerAbWo As Long

    zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile

    For z = 8 To zeil

            If Cells(z, 1) = "" Then
                'leere Zelle gefunden
                leerAbWo = Cells(z, 1).Select 'gefundene Zelle selektieren
                'jetzt ab da an bis AA markieren und rest löschen!!!
                MsgBox leerAbWo
                Exit Sub
            End If
    Next z
End Sub

Excel VBA Zellen in ein anderes Tabellenblatt Kopieren wenn Bedingung erfüllt?

Hallo,

ich habe ein problem und habe keine Ahnung von VBA.

Ich habe eine Tabelle in "A" steht der Name in "P" der Kurs und in "Y" ist die Bedingung "ja" oder "nein".

Das war das einzige das ich gefunden habe was auch funktionierte. Allerdings Kopiert es die komplette Zeile.

Sub BedingteKopieZeilen()

Dim Zeile As Long

Dim ZeileMax As Long

Dim n As Long

With Tabelle2

ZeileMax = .UsedRange.Rows.Count

n = 7

For Zeile = 3 To ZeileMax

If .Cells(Zeile, 25).Value = "Kurtaxe" Then

.Rows(Zeile).Copy Destination:=Tabelle10.Rows(n)

n = n + 1

End If

Next Zeile

End With

End Sub

Ich bedanke mich für eure Hilfe

Bernd

VBA Makro Excel Letzte beschriebene Zeile vor Leerzeile, weitere Leerzeile einfügen

Guten Tag,

ich suche einen Code für ein Makro,dass in Spalte B unter der letzten beschriebenen Zelle vor einer leeren Zelle (also nicht am kompletten Ende des Sheets) eine Leerzeile einfügt. Habe schon etliche codes ausprobiert, zb

Sub letzte_Zeile()

'letzte benutzte Zelle in Spalte 2 finden DIM Ende As Long With ActiveSheet

Ende = .Cells(Rows.Count, 2).End(xlUp).Row End With

End Sub

Dieser sollte mir eig die letzte beschriebene Anzeigen,es funktioniert aber Garnichts.

Freue mich über Vorschläge. Viele Grüße

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena