Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeile finden?

Leere Zeile finden?
05.11.2015 15:12:49
Iak
Hallo,
ich habe einen VBA Code der sie folgendermaßen aus 
Private Sub CheckBox10_Click()
With wksVordruck.Range("F5")
If Me.CheckBox10 = True Then
.Value = wksVorgaben.Range("E15").Value
Else
.ClearContents
End If
End With
End Sub

Jetzt möchte ich gerne dass die Daten von E15 nicht in F5 übertragen werden, sondern in die nächste FREIE Zeile in F.
Zusätzlich möchte ich die Formatierung von E15 (ein paar Wörter fett gedruckt) beibehalten. Wie stelle ich das an? :()
Vorab vielen Dank!
Mit freundlichen Grüßen
Iak

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeile finden?
05.11.2015 16:30:42
Beni
Hallo Iah
nz = .cells(rows.count,6).end(xlup).row + 1 'neue Zeile
wksVorgaben.Range("E15").copy .cells(nz,6)
Gruss Beni

AW: Leere Zeile finden?
05.11.2015 16:31:02
matthias
Hallo Iak,
folgender Ausdruck gibt dir die letzte beschriebene Zeile als Zahl zurück: 
letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row

Um das in deinen Code einzubinden gibt es zwei Möglichkeiten: 
...
If Me.CheckBox10 = True Then
letztezeile = wksVorgaben.UsedRange.SpecialCells(xlCellTypeLastCell).Row
.Value = wksVorgaben.Range("E" & letztezeile + 1).Value
...

oder ohne Umwege über eine Variable: 
If Me.CheckBox10 = True Then
.Value = wksVorgaben.Range("E" & _
wksVorgaben.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1).Value
...

Der Unterstrich sagt nur, dass die Zeile noch nicht zu ende ist und der Code in der darunterliegenden Zeile dort noch hingehört.
lg Matthias

Anzeige
AW: Leere Zeile finden?
09.11.2015 13:27:15
Iak
Vielen Dank Matthias für die Antwort.
Leider kapier ich es noch nicht so wirklich, vielleicht habe ich mich auch falsch ausgedrückt.
Das ist mein Ausgangscode:
Private Sub CheckBox10_Click()
With wksVordruck.Range("F5")
If Me.CheckBox10 = True Then
.Value = wksVorgaben.Range("E15").Value
Else
.ClearContents
End If
End With
End Sub
Excel nimm die Daten von E15 und kopiert diese in die Zeile F5.
Wenn ich deinen Code einsetze, dann funktioniert das nicht wirklich.
Private Sub CheckBox9_Click()
With wksVordruck.Range("F4")
If Me.CheckBox9 = True Then
letztezeile = wksVorgaben.UsedRange.SpecialCells(xlCellTypeLastCell).Row
.Value = wksVorgaben.Range("E" & letztezeile + 1).Value
Else
.ClearContents
End If
End With
End Sub
Besteht die Möglichkeit, dir das per Email zu schicken, damit du ein Auge drauf wirfst? Würde die Datei ungern hier Posten (wichtige Daten enthalten).

Anzeige
AW: Leere Zeile finden?
09.11.2015 13:44:54
Iak
Ich glaube ich habe den Fehler gefunden, weiß aber nicht wie ich das umschreibe.
Bezüglich dieses Codes:
Private Sub CheckBox9_Click()
With wksVordruck.Range("F4")
If Me.CheckBox9 = True Then
letztezeile = wksVorgaben.UsedRange.SpecialCells(xlCellTypeLastCell).Row
.Value = wksVorgaben.Range("E" & letztezeile + 1).Value
Else
.ClearContents
End If
End With
End Sub
Hier gibt er ja die Daten aus
With wksVordruck.Range("F4")
die er eigentlich von hier holt
.Value = wksVorgaben.Range("E13").Value
Bei unserem Beispiel ist das aber genau umgekehrt.
Das ist der original Code
Private Sub CheckBox8_Click()
With wksVordruck.Range("F3")
If Me.CheckBox8 = True Then
.Value = wksVorgaben.Range("E13").Value
Else
.ClearContents
End If
End With
End Sub

Anzeige
AW: Leere Zeile finden?
10.11.2015 11:40:24
Iak
So, habe alles versucht, keine Ahnung :(
Vielleicht habe ich mich auch falsch ausgedrückt. Schreib es nochmal auf.
Ich möchte gerne dass die Daten von E15 nicht in F5 übertragen werden, sondern in die nächste FREIE Zeile in F.
Zusätzlich möchte ich die Formatierung von E15 (ein paar Wörter fett gedruckt) beibehalten. Wie stelle ich das an bzw. wo trage ich was ein? :()
Danke vielmals im Voraus!

Hier alles am Stück
11.11.2015 15:19:43
Michael
Hi Iak,
ich habe es getestet mit: 
Private Sub CheckBox10_Click()
' Diese Zeile kannst Du dann wieder löschen...
Dim wahr As Boolean
Dim nz As Long
wahr = True
nz = wksVordruck.Cells(Rows.Count, 6).End(xlUp).Row + 1 'neue Zeile
' wenn Du die nächste wieder verwendest.
'  If Me.CheckBox10 = True Then
If wahr = True Then
wksVorgaben.Range("E15").Copy wksVordruck.Cells(nz, 6)
'Else
'  wksVordruck.Cells(nz, 6).ClearContents
End If
End Sub

allerdings mit der Variablen wahr anstatt Me.CheckBox10, weil ich keine Lust habe, hier Checkboxen zu malen.
Den Else-Zweig habe ich auskommentiert, weil er relativ sinnlos ist: suche die nächste leere Zelle und mache sie leer - ist sie doch sowieso!
Schöne Grüße,
Michael
P.S.: Also, nochmal für Dich ohne meine Testdaten: 
Private Sub CheckBox10_Click()
Dim nz As Long
nz = wksVordruck.Cells(Rows.Count, 6).End(xlUp).Row + 1 'neue Zeile
If Me.CheckBox10 = True Then
wksVorgaben.Range("E15").Copy wksVordruck.Cells(nz, 6)
'Else
'  wksVordruck.Cells(nz, 6).ClearContents
End If
End Sub

Anzeige

306 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

Links zu Excel-Dialogen

CheckBox

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