Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Geänderte Zelle (Reihe finden)[VBA]

Betrifft: Geänderte Zelle (Reihe finden)[VBA] von: Herbert
Geschrieben am: 02.11.2020 16:54:25

Moin moin,


ich wollte bei einem Tabellenblatt ein kleines Fenster machen welches die Kürzel vorne beinhaltet, das ist an sich auch noch nicht mein Problem.


Problem: Die Kürzel werden automatisch bestimmt von der Datei, nur wollte ich jetzt das er das Kürzel in die Linke Zelle der Änderung einfügt.


Könnte mir wer Tipps geben wie ich mit einer Zellen "Änderung" sagen das er das kürzel genau daneben schreiben soll.


Hinweis: Es ist wie eine Liste, vortlaufend nach unten, geschrieben wird in einer Zelle(ab "C10"), von dort ist jede Zeile nach unten ein weiteres Feld um auf eine "Änderung" hinzuweisen. Kürzel ("D10"), Datum ("A10")[Das hinzufügen des Datums ist im ersten irrelevant]


MfG Herbert

Betrifft: AW: Geänderte Zelle (Reihe finden)[VBA]
von: onur
Geschrieben am: 02.11.2020 17:08:31

Glaubst du echt, irgend Jemand versteht, was du meinst?
Mach eine Beispielsdatei und poste sie mal.

Betrifft: AW: Geänderte Zelle (Reihe finden)[VBA]
von: Herbert
Geschrieben am: 02.11.2020 22:45:48

Guten Abend,

ich war noch Weg, hier die Datei in Zelle "C10" steht wie ich das meine.

Danke für die schnelle Antwort und Entschuldige das ich nicht direkt geantwortet habe!

Datei: https://www.herber.de/bbs/user/141258.xlsm

MfG Herbert

Betrifft: Probiere es mal so...
von: Case
Geschrieben am: 03.11.2020 09:57:48

Hallo, :-)

... der Spur nach: ;-)

Beispieldatei...

Servus
Case

Betrifft: AW: Probiere es mal so...
von: Herbert
Geschrieben am: 03.11.2020 10:51:17

Moin Case,

danke! Ist genau das was ich gesucht habe!

MfG Herbert

Betrifft: AW: Probiere es mal so...
von: Herbert
Geschrieben am: 03.11.2020 19:26:18

Moin Moin,

ich nochmal..., kann man neben der Target-Row auch noch 5te Spalte aus der Reihe ein Kontrollkästchen einfügen?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin
    If Not Application.Intersect(Target, Range("C10:C1000")) Is Nothing Then
        If Target.CountLarge = 1 Then
            If Trim(Target.Value) <> "" Then
                Application.EnableEvents = False
                Cells(Target.Row, 1).Value = Date
                Cells(Target.Row, 2).Value = fncName(Range("M1"))
                Cells(Target.Row, 4).Value = Time
            
            Dim i, ersteZe, letzteZe, SP As Integer
    Dim rngArea As Range
    SP = 5 'anpassen, in welcher Spalte soll das Ankreuzkästchen stehen
    For Each rngArea In Selection.Areas
        ersteZe = rngArea(1).Row
        letzteZe = rngArea(rngArea.Cells.Count).Row
    Next
    With ActiveSheet
        For i = ersteZe To letzteZe
            .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
            DisplayAsIcon:=False, Left:=.Cells(i, SP).Left, _
            Top:=.Cells(i, SP).Top, Width:=18, Height:=10).Select
        Next
        .[A1].Select
    End With
            
            Else
                Cells(Target.Row, 1).Value = ""
                Cells(Target.Row, 2).Value = ""
                Cells(Target.Row, 4).Value = ""
            End If
        End If
    End If
    
Fin:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description: Resume Next
End Sub
SP = 5 soll die Spalte sein wo es rein kommt.

Danke schon mal im Voraus!

MfG Herbert!

Betrifft: Probiere es mal so...
von: Case
Geschrieben am: 04.11.2020 09:12:17

Hallo, :-)

... der Spur nach: ;-)

Beispieldatei...

Servus
Case

Betrifft: AW: Probiere es mal so...
von: Herbert
Geschrieben am: 08.11.2020 03:30:12

Hey,

Entschuldige das ich erst so spät antworte, ich hatte bis gestern Mittag kleine Probleme... .

Aber es ist genau das was ich gesucht habe. Danke dir vielmals!

MfG Herbert!

Beiträge aus dem Excel-Forum zum Thema "Geänderte Zelle (Reihe finden)[VBA]"