Thema Datum  Von Nutzer Rating
Antwort
14.01.2017 21:53:05 MaLe
NotSolved
15.01.2017 01:36:36 Mackie
NotSolved
15.01.2017 10:10:16 MaLe
NotSolved
Blau Nächste freie Zelle mit bestimmtem Wert füllen
 15.01.2017 11:26:00 Werner
NotSolved
18.01.2017 17:49:53 Gast82263
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
15.01.2017 11:26:00		 Views:
639		 Rating:
     
Antwort:
  Ja
Thema:
Nächste freie Zelle mit bestimmtem Wert füllen

Hallo,

dafür braucht es keine zwei Schleifen. Da kannst du dir Zunutze machen, dass Excel einen definierten Bereich immer von links oben nach rechts unten abarbeitet.

Ich habe es jetzt mal so gemacht, dass ich den Wert zum Eintragen in den Bereich aus der Zelle A1 hole. Sprich du trägst den Wert den du im Bereich haben willst in A1 ein und klickst dann deine Schaltfläche. Ansonsten müsstest du ja, wenn du einen anderen Wert eintragen möchtest, jedesmal den Code anpassen. Das wäre dann so flexibel wie ein Sack Steine.

 

Sub Schaltfläche1_Klicken()
Dim rngBereich As Range
Dim rngZelle As Range
Set rngBereich = Sheets("Tabelle1").Range("B13:D27") 'ggf. Blatt anpassen

If WorksheetFunction.CountA(rngBereich) = 45 Then
    MsgBox "Im Bereich B13:D27 ist" & vbLf & "keine Zelle mehr frei."
    Exit Sub
End If

For Each rngZelle In rngBereich
    If rngZelle = "" Then
        rngZelle = Sheets("Tabelle1").Range("A1") 'ggf. Blatt und Zelle anpassen
        Exit For
    End If
Next rngZelle
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.01.2017 21:53:05 MaLe
NotSolved
15.01.2017 01:36:36 Mackie
NotSolved
15.01.2017 10:10:16 MaLe
NotSolved
Blau Nächste freie Zelle mit bestimmtem Wert füllen
 15.01.2017 11:26:00 Werner
NotSolved
18.01.2017 17:49:53 Gast82263
NotSolved