Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

automatisch die erste freie zelle in spalte A

automatisch die erste freie zelle in spalte A
21.08.2004 18:02:33
rolf
hallo excelenzen / innen
ich habe folgenden code der auch gut läuft :
' WIRD AUTOMATISCH BEIM ÖFFNEN DER DATEI ABGEARBEITET
' DIE MENÜ & SYSMBOLLEISTEN WERDEN AUSGEBLENDET
' NUR DIE KONTOLEISTE WIRD EINGEBLENDET

Private Sub Workbook_Open()
Call PASSWORTABFRAGE
Worksheets(Worksheets.Count).Select ' AKTIVIERT DAS LETZTE BLATT RECHTS
Dim ws As Worksheet
Call AUSBLENDENSYSTEMMENÜ
LEISTEN False
Application.OnKey "{ESC}", "MINIMIEREN"
Application.Caption = "K  O  N  T  O  F  Ü  H  R  U  N  G"
ActiveWindow.Caption = ""
ActiveSheet.ScrollArea = "A1:G1005"
Call ERSTELLENDERKONTOLEISTE
Call ERSTELLENDERBUTTON
' ANPASSEN DER BILDSCHIRMBREITE
Application.ScreenUpdating = False
Range("A1:G1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A5").Select
Application.ScreenUpdating = True
End Sub

ich möchte aber erreichen das nicht A5 sondern die erste freie zelle im bereich
A5 bis A1005 ausgewählt wird. in der spalte steht immer ein datum.
dank an jede / en der es liest
gruss aus dem verregneten brauschweig
rolf

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisch die erste freie zelle in spalte A
Michi
Vielleicht so in der Art:


      
    If Range("A5") <> "" Then
        Cells(Range(
"A5").End(xlDown).Row + 1, 1).Select
        
If ActiveCell.Row > 1005 Then ActiveCell = Range("A1005")
    
End If 


Gruss
Michi
Anzeige
AW: automatisch die erste freie zelle in spalte A
21.08.2004 18:35:48
rolf
hi michi
dank für die schnelle antwort
werd ich versuchen einzubauen
rolf
AW: automatisch die erste freie zelle in spalte A
21.08.2004 18:35:58
nighty
hi rolf :)
eine variante :)
gruss nighty
Worksheets(1).Range("A1:A65535").Find("", LookIn:=xlValues).Select
anstatt
Range("A5").Select
AW: automatisch die erste freie zelle in spalte A
NE
Hi,
oki, noch'n Vorschlag ;-)
If Not IsEmpty([a5]) Then Cells(1005, 1).End(xlUp).Offset(1, 0).Select Else [a5].Select
cu Nancy
AW: danke für die hilfe
21.08.2004 19:37:23
rolf
danke an alle
rolf
Letzte Zelle + eine Zeile
Beate
Hallo Rolf,
dann folgender Code:

Sub Erste_freie_Zeile()
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

Sucht vom Dateiende aufwärts in Spalte A nach der letzten benutzen Zelle und springt dann in Spalte A eine Zeile tiefer.
Gruß,
Beate
Anzeige

6 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige