Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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"

Automatische Datumformatierung unterdrücken
Automatisch Sicherungsdatei erstellen
Automatisches Komplettieren einer Zelleingabe
Zelleingaben automatisch auf volle 1,2-Teile runden
Tabelle nach Datumseintrag automatisch sortieren
Eingaben in B:D automatisch mit 6 multiplizieren
Zelleingabe automatisch in Kopfzeile übernehmen
Nach Zelleingabe automatische Sortierung
Automatische Sortierung bei Zelleintrag
Min- und Max-Werte automatisch markieren
Automatische Passworteingabe in Internet-Formular
Vorkommen von Zahlenreihen in Spalten
Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen
Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen
Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden
In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren
Abfrage der markierten Spalten
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen
Schmale Spalten nebeneinander drucken
Werte in mehreren Spalten sortieren
Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen
Spalten A und B vergleichen und Doppel in C listen
Nach Verlassen von Spalte B Spalte C markieren
Alle leeren Spalten ausblenden
Leere Zeilen und Spalten in ausgewähltem Bereich löschen
Formel bis zur letzten Zeile der Nebenspalte kopieren
Alle leeren Zeilen und Spalten entfernen
Wert aus 2. UserForm-ComboBox-Spalte berechnen
Jede zweite Spalte drucken
Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten
Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen
Daten in jeweils einer Spalte zweier Tabellen vergleichen
Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Spalte A mehrer Mappen in UserForm und aktives Blatt
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren
Bis zur 12. Zeile Cursor nach unten, dann nächste Spalte ansetzen
Werte in Spalte A in Abhängigkeit des Werte in Spalte B eintragen
Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei
Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren
Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen
Überschriften aus Spalte C in Spalte D in den relevanten Bereich
Bei Eintrag in Spalte A aktuelle Zeile kopieren
Wertereihe nach dem Zufallsprinzip auf 4 Spalten verteilen
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl
Werte aus Spalte A mit Werten aus Spalte B multiplizieren
Einlesen von Spaltenköpfen in UserForm-ListBox
Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen
Aktuellen Bereich in den Spalten A:F als Druckbereich
Alle Werte mit Punkt aus Spalte A in Spalte B
Zellauswahl in Abhängigkeit des Spaltenkopfes
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen