Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nächte Leere Zelle in Spalte finden

Nächte Leere Zelle in Spalte finden
15.10.2005 12:40:20
nontacky
Hallo,
ich habe im Archiv gesucht und gewühlt habe aber nichts gefunden was mir auf den Punkt weiterhilft. Da ich von VBA nur serh wenig Ahnung habe muss ich nochmal hier direkt posten.
Ich möchte Kopierte Daten aus der Zwischenablage in einer Liste immer ans Ende der Liste kopieren. Dazu möchte ich ein Makro haben, dass mir die erste freie Zeile (bzw. freie Zelle in der ersten Spalte der Tabelle) auswählt, damit ich dann einfach per Paste die Daten einfügen kann. Das muss ja irgendeine Schleife sein, aber ichhabe keine Ahnung wie man die scriptet.
Vielen Dank,
Nontacky

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

Betreff
Datum
Anwender
Anzeige
AW: Nächte Leere Zelle in Spalte finden
15.10.2005 12:48:19
Norbert
Hi,
dazu braucht man keine Schleife:
Set myDoc = Worksheets(ZEITERFA)
zz = myDoc.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
myDoc.Range("A" & zz).Value = Pid
myDoc.Range("B" & zz).Value = KST
myDoc.Range("C" & zz).Value = Aid
ActiveWorkbook.Save
MsgBox ActiveWorkbook.name & " gespeichert", vbInformation, "Erfassung"
Hier wird die erste freie Zeile bestimmt und dann die Daten reingeschrieben.
SpecialCells(xlCellTypeLastCell).ist nicht..
ransi
hallo
...so günstig weil da auch z.B. bedingt formatierte zellen gefunden werden.
besser ist das hier:
Option Explicit
Public 

Sub erste_freie()
MsgBox Range("a65536").End(xlUp).Offset(1, 0).Address
End Sub

vorrausgesetzt A65536 ist leer.
ransi
Anzeige
AW: Nächte Leere Zelle in Spalte finden
15.10.2005 12:53:05
Nepumuk
Hi,
ganz einfach:
Worksheets("Tabelle1").Paste Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Gruß
Nepumuk
AW: Nächte Leere Zelle in Spalte finden
15.10.2005 18:06:00
nontacky
VIelen Dank für Eure Hilfe,
leiderbin ich nicht in der Lage daraus das zu basteln was ich haben möchte. Ich erkläre es noch mal genauer:
Ich möchte aus einer Tabelle verstreute Zeilen (also auch Leerzeilen dazwischen) kopieren und diese dann in einer anderen Tabelle unterhalb der bisherigen Einträge einfügen (nur die Werte - nicht die Formeln!). Diese Tabelle in die die Werte hineinsollen fängt bei C6 an und geht bis U - nach unten hin wird sie mit der Zeit natürlich immer länger.
Wenn ich die Zeilen aus der ursprünglichen Tabelle dann erstmal eingefügt habe würde ich einfach eine Sortierungsfunktion drüberlaufen lassen, damit ich die Leerzeilen los bin. Ich muss aber um die Werte einfügen zu können erstmal in die erste Zelle der Spalte C kommen um dann den Befehl Paste ausführen zu können.
Wahrscheinlich ist das sehr billig gedacht so - und auch unfein gelöst, aber kompliziertere Scripte kann ich nicht auf meine Bedürfnisse anpassen, da ich die VBA Syntax nicht kenne.
Vielen Dank,
Nontacky
Anzeige
AW: Nächte Leere Zelle in Spalte finden
15.10.2005 18:25:51
Nepumuk
Hi,
na dann so:
Worksheets("Tabelle1").Paste Worksheets("Tabelle1").Cells(Cells(Rows.Count, 3).End(xlUp).Row, 1).Offset(1, 0)
Gruß
Nepumuk
AW: Nächte Leere Zelle in Spalte finden
15.10.2005 18:37:29
nontacky
Ok - jettz klappt es mnit den richtigen Offsets so, dass mir die Daten an die richtige Stelle eingegeben werden. Wie bekomme ich es innerhalb dieses Befehls jetzt hin, dass er mir nur due Werte der in der Original Tabelle kopierten Formeln einfügt und nicht die Formeln an sich?
Das Makro sieht jetzt so aus:

Sub DoneProjects()
Sheets("Overview").Select
Range("AB9:AT56").Select
Selection.Copy 'HIER WIRD DER BEREICH KOPIERT DER IN DIE ANDEREN TABELLE EINGEFÜGT WERDEN SOLL
Sheets("Done Projects").Select
Range("C5").Select
Worksheets("Done Projects").Paste Worksheets("Done Projects").Cells(Cells(Rows.Count, 3).End(xlUp).Row, 1).Offset(1, 2)' ICH VERSTEHE NICHT, WARUM ICH DAS GANZE WORKSHEET "Paste" - ICH HABE VERSUCHT HIER EINZUTRAGEN, DAS DIE VORHER SELEKTIERTEN DATEN ALS WERTE GEPASTET WERDEN - ABER DAS HAT NICHT GEKLAPPT
Range("C3").Select
Sheets("Overview").Select
Range("A1").Select
End Sub

Anzeige
AW: Nächte Leere Zelle in Spalte finden
15.10.2005 19:04:14
Nepumuk
Hi,
na dann so:
Sub DoneProjects()
    Sheets("Overview").Range("AB9:AT56").Copy
    Worksheets("Done Projects").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial xlValues
End Sub
Hättest du aber mit dem Makrorekorder auch raus bekommen.
Gruß
Nepumuk
Anzeige

309 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 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
4
4
2
2
2
15
9
7
4
2
7
3
3
1
7
3
2
8
3
19
2
7
5
3
1