Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
556to560
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

lezte ausgefuellte zeile in spalte suchen

lezte ausgefuellte zeile in spalte suchen
01.02.2005 15:43:15
roland_k
hi zusammen
ich habe in nem code die zeile
zeile = Cells(65536, 13).End(xlUp).Row
diese sucht denke von der letzen zeile bis auf die erste besetzte zeile in spalte 13
kanich das anweisen dass nur bis zeile 19 zb sucht
zu end(xlUp) finde in der hilfe nichts ...
danke im voraus
gruss roland

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: lezte ausgefuellte zeile in spalte suchen
01.02.2005 15:46:33
MichaelS
Hi,
beispielsweise so...


Sub Letzte_Zeile()
Dim i%
For i = 1 to 19
    With ActiveSheet
        Do Until .Cells(i, 1) = ""
            i = i + 1
        Loop
            .Cells(i, 1).Select
    End With
Next i
End Sub


cu
Michael
Anzeige
AW: lezte ausgefuellte zeile in spalte suchen
01.02.2005 15:47:23
Josef
Hallo Roland!
Zwei Möglichkeiten!

zeile = Cells(65536, 13).End(xlUp).Row
If zeile > 19 Then zeile = 19
'oder
zeile = Cells(19, 13).End(xlUp).Row

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: lezte ausgefuellte zeile in spalte suchen
roland_k
hallo sepp
diesen code wende ich an
"zeile = Cells(65536, 3).End(xlUp).Row
neuwert = 1 + Cells(zeile, 3).Value ..........zur letzten nicht leeren zelle +1
Cells(ActiveCell.Row,3).Value = neuwert
neuwert = 0
Cells(ActiveCell.Row, 2) = TextBox7.Value
OptionButton17 = False
in B2 steht z b heute
nun findet der heute ...+ 1 und schreibt dann heute1 in die zelle b3
ich habe nun B3 mit ner 0 gefuellt
in B3 steht dann 0 + 1 = 1
die anzeige de 0 habe unterdrückt
irgendwie muesste der erkennen dass die letzte zeile text ist ...und dann nicht
text + 1 schreiben
sondern 1
es sind sehr viele spalten .....und da uebeall 0 reinschreiben unterdruecken ...da kommts schnell zu fehler
ich hoffe kannst dich da reindenken was ich meine
gruss roland






Anzeige
AW: lezte ausgefuellte zeile in spalte suchen
01.02.2005 21:09:38
Josef
Hallo Roland!
Sorry, aber ich kann dir nicht folgen!
ich habe nun B3 mit ner 0 gefuellt
in B3 steht dann 0 + 1 = 1
die anzeige de 0 habe unterdrückt
irgendwie muesste der erkennen dass die letzte zeile text ist ...und dann nicht
text + 1 schreiben
Wenn du in eine Zelle 0 schreibst, dann ist das eine Zahl und kein Text!
Egal ob du die Anzeige unterdrückst oder nicht.
Wenn in einer Zeile "Text" steht und du " + 1 " dazuzählst, kommt eine Fehlermeldung!
Beschreib am besten ganz klar was du erreichen willst!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: lezte ausgefuellte zeile in spalte suchen
roland_k
hi sepp
in der zeile 2 steht zb text dies und das und jenes
ich will dass in zeile 3 unter dies eine 1 geschrieben wird
später irgend wann in zeile 8 11 oder noch später
immer eine konstante zahl addiert werden bei mir kommt immer plus 1 ....in den meisten spalten oder aber auch werte die ich aus textboxen hole
aber immer zum letztn in der spalte gefundenen wert addieren
in die erste zeile mus eben nullen schreiben ...geht denk nicht anders
oder ich muss die erste zeile nicht mit der abfrage nach letzter leeren zelle machen
danke fuer deine muehe
gruss roland
Anzeige
AW: lezte ausgefuellte zeile in spalte suchen
02.02.2005 09:42:06
Josef
Hallo Roland!
Meinst du vielleicht so?

Sub roland()
Dim lastRow As Long
Dim zahl As Double
zahl = 1
lastRow = IIf(Range("C65536") <> "", 65536, Range("C65536").End(xlUp).Row)
If lastRow < 2 Then lastRow = 2
If lastRow > 19 Then lastRow = 19
If IsNumeric(Cells(lastRow, 3)) Then
Cells(lastRow, 3) = Cells(lastRow, 3) + zahl
Else
Cells(lastRow + 1, 3) = zahl
End If
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: lezte ausgefuellte zeile in spalte suchen
roland_k
hallo sepp
ich mus das erst testen ,,,,bin an aderm kram im moment
aber ich danke dir sieht gut aus
gruss woland
Anzeige

303 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzeige

Links zu Excel-Dialogen

OptionButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3