Microsoft Excel

Herbers Excel/VBA-Archiv

automatisch die erste freie zelle in spalte A

Betrifft: automatisch die erste freie zelle in spalte A von: rolf
Geschrieben am: 21.08.2004 18:02:33

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
  


Betrifft: AW: automatisch die erste freie zelle in spalte A von: Michi
Geschrieben am: 21.08.2004 18:17:30

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


  


Betrifft: AW: automatisch die erste freie zelle in spalte A von: rolf
Geschrieben am: 21.08.2004 18:35:48

hi michi

dank für die schnelle antwort
werd ich versuchen einzubauen

rolf


  


Betrifft: AW: automatisch die erste freie zelle in spalte A von: nighty
Geschrieben am: 21.08.2004 18:35:58

hi rolf :)

eine variante :)

gruss nighty

Worksheets(1).Range("A1:A65535").Find("", LookIn:=xlValues).Select

anstatt

Range("A5").Select


  


Betrifft: AW: automatisch die erste freie zelle in spalte A von: NE
Geschrieben am: 21.08.2004 18:43:38

Hi,

oki, noch'n Vorschlag ;-)

If Not IsEmpty([a5]) Then Cells(1005, 1).End(xlUp).Offset(1, 0).Select Else [a5].Select

cu Nancy


  


Betrifft: AW: danke für die hilfe von: rolf
Geschrieben am: 21.08.2004 19:37:23

danke an alle

rolf


  


Betrifft: Letzte Zelle + eine Zeile von: Beate Schmitz
Geschrieben am: 22.08.2004 01:03:25

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


 

Beiträge aus den Excel-Beispielen zum Thema "automatisch die erste freie zelle in spalte A"