Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wert in letzte leere Zelle eintragen

Wert in letzte leere Zelle eintragen
10.02.2006 17:03:15
Dieter
Hallo zusammen,
ich benötige eure Hilfe bei der Lösung folgenden Problems:
Ich habe in einer Tabelle mit einer variablen Anzahl von Datensätzen einen Bereich vorgesehen, in dem ich ein in Zelle $A$1 vorgegebenes Datum in die letzte leere Zelle des Bereiches (B:G) je Datensatz eintragen möchte. Die letzte leere Zelle des Bereiches ist dabei NICHT die letzte leere Zelle der Zeile.
Zur besseren Verständlichkeit habe ich eine Tabelle beigefügt.
https://www.herber.de/bbs/user/30886.xls
Grüße
Dieter
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: korrektte Tabelle anbei
10.02.2006 22:34:40
MichaV
Hallo,


      
Option Explicit
Sub Loretta_Swit()
Dim lLetzte As Long
Dim iRow As Long
Dim iCol As Integer
Const strStart = "A4" 'hier beginnen Deine Daten
Const strRechtesEnde = "H" 'die Spalte rechts neben der letzten Erinnerung (bei Dir mit x markiert)

lLetzte = Range(strStart).End(xlDown).Row
For iRow = Range(strStart).Row To lLetzte
    
If Cells(iRow, Range(strRechtesEnde & "1").Column - 1) = "" Then
        iCol = Range(strRechtesEnde & iRow).End(xlToLeft).Column + 1
        Cells(iRow, iCol) = Range("a1").Value
    
End If
Next iRow
End Sub 


Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: korrektte Tabelle anbei
11.02.2006 14:23:46
Dieter
Hallo Micha,
wunderbar! Es läuft spitzenmässig !!
Ich danke dir.
Gruß
Dieter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige