1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

In Excel das Ausfüllen einer Zelle erzwingen

Discussion in 'Office-Programme' started by Amt14, Oct 12, 2004.

Thread Status:
Not open for further replies.
  1. Amt14

    Amt14 Kbyte

    Hallo,

    ich möchte in einem Formular erzwingen, dass die Zelle E6 ausgefüllt werden muss, ansonsten kann sie nicht verlassen werden. Für die anderen nicht gesperrten Zellen soll das nicht gelten. Mit VBA geht´s wahrscheinlich; das ist aber nicht mein Ding.
    Kann mir bitte jemand helfen?
    Amt 14
     
    Amt14, Oct 12, 2004
    #1
  2. michel_schmitt

    michel_schmitt Byte

    Hi,
    ich würde die Zelle mit einer Gültigkeitsprüfung (Daten-> Gültigkeit) belegen, je nach dem was in der Zelle dann gewünscht ist Zahl oder Text dann formatieren.

    Michel
     
    michel_schmitt, Oct 21, 2004
    #2
  3. Amt14

    Amt14 Kbyte

    Danke, nützt mir aber nichts, weil ich die Zelle verlassen kann, ohne eine Eingabe zu machen.
     
    Amt14, Oct 22, 2004
    #3
  4. osho

    osho Kbyte

    osho, Oct 22, 2004
    #4
  5. Geertakw

    Geertakw Kbyte

    Hi

    Ohne VBA wohl kaum möglich

    Mit Alt-F11 in den VBA-Editor wechseln.
    Im Strukturbaum der Datei die gewünschte Tabelle doppelklicken
    In dem jetzt geöffneten Editorfenster einegeben:

    Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If IsEmpty(Cells(6, 5).Value) Then Cells(6, 5).Select
    End Sub


    Erste Zahl ist die Zeile, die zweite die Spalte.

    HTH
    Geert
     
    Geertakw, Oct 23, 2004
    #5
  6. Amt14

    Amt14 Kbyte

    Funktioniert prima, Danke!
     
    Amt14, Oct 26, 2004
    #6
  7. prado

    prado ROM

    Das Thema ist zwar schon etwas älter aber ich habe ein ähnliches Problem. Wie kann ich die Prüfung auf die einzelnen Zellen der gesamten Spalte E, allerdings erst ab Zelle E4 abwärts beziehen?
     
    prado, May 22, 2007
    #7
  8. Hascheff

    Hascheff Moderator

    Dein Problem ist zwar ähnlich, aber doch wieder neu. Für solche Fälle empfehlen die Foren-Regeln einen neuen Thread mit einem Verweis auf den alten zu erstellen. Leichenfledderei ist auch in einem solchen Fall nicht erlaubt.

    Für den nächsten Versuch: auch ab Zeile 4 ist die Spalte E noch ziemlich lang!
     
    Hascheff, May 22, 2007
    #8
  9. Geertakw

    Geertakw Kbyte

    Hi

    Folgender Makro 'überwacht' E4 bis E24

    Private Sub Worksheet_selectionChange(ByVal Target As Range)
    For x = 4 To 24
    If IsEmpty(Cells(x, 5).Value) Then
    Cells(x, 5).Select
    Exit For
    End If
    Next
    End Sub

    Bereich ggF anpassen - Einbau wie gehabt.

    HTH
    G.
     
    Geertakw, May 22, 2007
    #9
  10. P.A.C.O.

    P.A.C.O. Ex-Foren-Bulle

    Prinzipiell hat Hascheff Recht, bitte in Zukunft daran halten!

    Danke
     
    P.A.C.O., May 22, 2007
    #10
  11. Hascheff

    Hascheff Moderator

    Oder so:

    Private Sub Worksheet_selectionChange(ByVal Target As Range)
    '(C) Hascheff

    Dim n As Integer
    n = 4

    Do Until IsEmpty(Cells(n, 5).Value) Or n = 25
    n = n + 1
    Loop​
    If n < 25 Then Cells(n, 5).Select

    End Sub
     
    Hascheff, May 22, 2007
    #11
Thread Status:
Not open for further replies.

Share This Page