Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte 10 Zahlen ohne Leerzellen mit VBA

Letzte 10 Zahlen ohne Leerzellen mit VBA
12.05.2008 20:46:21
Martin
Hallo und guten Abend,
könnte mir bitte jemand bei dieser Aufgabe helfen:
Ich möchte die letzten 10 Zahlen aus einer Spalte, die Leerzellen enthält,
mit VBA zusammenfassen und so setzen, daß sie mit der letzten Zahl der
ursprünglichen Spalte enden. So:
Userbild
Die Datei:
https://www.herber.de/bbs/user/52300.xls
Ich muß es mit VBA machen, da die Datei mit einer Matrixformel leider
viel zu langsam würde.
Mit Dank,
Born

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
12.05.2008 22:00:00
Holger
Hallo Born,
ich gehe in meinem Vorschlag davon aus, dass du die Zahlen in Spalte A hast und das Ergebnis in Spalte C schreiben willst. Sonst musst du den zweiten Index in Cells jeweils anpassen (A entspricht 1, B 2, C 3 usw.):

Sub LetzteZahlen()
a = Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row
b = 0
For i = a To 1 Step -1
If Cells(i, 1)  "" Then
Cells(a - b, 3) = Cells(i, 1)
Cells(a - b, 2) = b + 1
b = b + 1
If b = 10 Then Exit Sub
End If
Next i
End Sub


Gruß
Holger

AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
13.05.2008 11:49:00
Martin
Hallo Holger,
danke für die Hilfe. Dein Skript zählt bis 10 und das ist gut, aber
ich wollte eigentlich die Zahlen aus spalte A aufgelistet haben.
Bernd hat mir dafür die Zeilen geliefert.
Trotzdem herzlichen Dank,
Born

Anzeige
AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
13.05.2008 17:39:00
Holger
Mein Makro erzeugt genau das, was du vorgegeben hast. Mir ist es egal, ob du es verwendest oder nicht. Aber du solltest es wenigstens richtig ausprobieren.

AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
13.05.2008 20:18:39
Martin
Hallo Holger,
da muß ich vorher wohl irgendwie gepennt haben. Natürlich probiere ich alles aus,
was man mir anbietet. Ich als Anfänger kann ja immer was lernen. Aber da muß
ich wohl was verpeilt haben, du hast Recht, es macht genau das, was ich wollte.
Sogar am genauesten.
Dürfte ich Dir noch ne Frage dazu stellen?
Ich schaff es nicht, ausgehend von dem, was du geschrieben hast,
eine Spalte A nach spalte D
und eine Spalte B (ohne Leerzeilen) nach Spalte E zu bekommen.
(Jetzt mal ohne das bis 10 zählen)
Nur A nach D klappt. Weißt Du Rat?
Gruß und Dank,
Born

Anzeige
AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
14.05.2008 11:19:00
Holger
Hallo Martin,
er gibt dazu viele Möglichkeiten, z.B.

Sub Spalten_verschieben_ohne_Leerzellen()
Dim b, i
'von A nach D
b = 0
For i = 1 To Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row
If Cells(i, 1)  "" Then
b = b + 1
Cells(b, 4) = Cells(i, 1)
End If
Next i
'von B nach E
b = 0
For i = 1 To Range(Cells(Rows.Count, 2), Cells(Rows.Count, 2)).End(xlUp).Row
If Cells(i, 2)  "" Then
b = b + 1
Cells(b, 5) = Cells(i, 2)
End If
Next i
End Sub




Sub ganze_Spalten_verschieben_1()
'A und B nach D und E
Range("A:B").Copy
Range("D:E").PasteSpecial 'oder z.B. Range("D:E").Insert
End Sub




Sub ganze_Spalten_verschieben_2()
Columns("A:B").Copy
Columns("D:E").PasteSpecial
End Sub


Viel Erfolg
Holger

Anzeige
AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
14.05.2008 11:41:00
Martin
Danke Holger,
da werd ich mich nochmal gründlich dransetzen.
Born

AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
12.05.2008 22:01:00
Mustafa
Hallo Martin
Versuch mal folgenden Code:
Option Explicit

Sub Zusammenfassen()
Dim iZeile As Double
Dim xInt As Integer
Dim zInt As Integer
iZeile = Range("A65536").End(xlUp).Row
For xInt = iZeile To 1 Step -1
If Cells(xInt, 1)  "" Then
zInt = zInt + 1
Select Case zInt
Case Is


Rückmeldung obs hilft wäre nett.
Viele Grüße aus der Domstad Köln.

AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
13.05.2008 11:51:01
Martin
Hallo Mustafa,
danke für das Angebot. Dein Skript stellt die Zahlen an den Anfang der Zeilen,
nicht ans ende. Aber trotzdem Danke, Bernds Skript haut hin.
Gruß,
Born

Anzeige
AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
13.05.2008 23:30:00
Mustafa
Hallo Martin,
ich würde sagen das kommt davon wenn man den thread nicht richtig zuende liest.
Du hast recht, den teil der Aufgabenstellung hab ich übersehen.
Ich entschuldige mich dafür.
Gruß aus der Domstadt Köln.

AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
12.05.2008 22:02:00
bst
Abend,
HTH, Bernd
--
Option Explicit

Sub x()
    Dim lngRows As Long, i As Long, j As Long
    Dim ar(1 To 10) As Variant
    Dim intCount As Integer
    
    lngRows = IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
    
    j = lngRows
    intCount = 10
    For i = lngRows To 1 Step -1
        If Len(Cells(i, 1)) Then
            Cells(j, 2) = Cells(i, 1)
            j = j - 1
            intCount = intCount - 1
            If intCount < 1 Then Exit Sub
        End If
    Next
End Sub

Anzeige
AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
13.05.2008 11:49:00
Martin
Hallo Bernd,
herzlichen Dank, das ist genau das, was ich gesucht habe.
funktioniert perfekt.
Born

AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
13.05.2008 20:26:00
Gerd
Hallo Martin,
dein Versuch geht auch, falls die Variablen vor der 2. Schleife neu lädst.

Sub Start_letzte_werte()
Call Letze_Werte_in_neue_Spalte(10, 1, 4)
Call Letze_Werte_in_neue_Spalte(10, 2, 5)
End Sub




Function Letze_Werte_in_neue_Spalte(ByVal intcount As Integer, _
ByVal Col As Long, ByVal newCol As Long)
Dim i As Long, j As Long
j = IIf(Len(Cells(Rows.Count, Col)), Rows.Count, Cells(Rows.Count, Col).End(xlUp).Row)
For i = j To 1 Step -1
If Len(Cells(i, Col)) Then
Cells(j, newCol) = Cells(i, Col)
j = j - 1
intcount = intcount - 1
End If
If intcount


Gruß Gerd

Anzeige
AW: P.S.
13.05.2008 22:01:19
Gerd
Hallo Martin,
falls die letzten gefüllten Zellen paralell liegen, würde die Ermittlung der letzten Zelle in Spalte A = 1
genügen.
Gruß Gerd

AW: Letzte 10 Zahlen ohne Leerzellen mit VBA
14.05.2008 11:54:12
Martin
Wau, das war spannend! Das mit dem "Variablen landen" kannte ich noch nicht.
Danke,
Born

325 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Anzeige

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
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1