Wert in erste Zelle eines Bereiches eintragen

Forumthread: Wert in erste Zelle eines Bereiches eintragen

05.10.2016 00:12:24

Kurt

Hallo,
ich habe folgenden Sachverhalt mit folgender Formel gelöst, möchte aber, dass der Vorgang erst ab B4 beginnt.

Private Sub Zahl0_Click()
Sheets("Erfassung").Range("B" & Rows.Count).End(xlUp).Offset(1) = 0
End Sub

Vielen Dank für die Hilfe im Voraus.
Kurt

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wert in erste Zelle eines Bereiches eintragen

05.10.2016 00:26:57

KlausF
AW: Wert in erste Zelle eines Bereiches eintragen

05.10.2016 00:40:45

Kurt
Bei mir geht es

05.10.2016 00:47:07

KlausF
AW: Bei mir geht es

05.10.2016 00:55:20

Kurt
unklar

05.10.2016 01:12:14

KlausF
AW: unklar

05.10.2016 01:32:48

Kurt
dann so

05.10.2016 01:57:55

KlausF
AW: dann so

05.10.2016 10:54:51

Kurt

AW: Wert in erste Zelle eines Bereiches eintragen

05.10.2016 00:26:57

KlausF

Hallo Kurt,
falls ich Dich richtig verstanden habe:

Private Sub Zahl0_Click()
Dim lngLast As Long
lngLast = Worksheets("Erfassung").Range("B" & Rows.Count).End(xlUp).Row
If lngLast >= 3 Then
Worksheets("Erfassung").Range("B" & Rows.Count).End(xlUp).Offset(1) = 0
End If
End Sub

Ab Zeile 4 wird eingetragen, sonst statt 3 eine 4 einsetzen ...
Gruß
Klaus

AW: Wert in erste Zelle eines Bereiches eintragen

05.10.2016 00:40:45

Kurt

Ja, es soll ab Zeile 4 eintragen. Hab es kopiert und eingetragen und aus der 3 eine 4 gemacht, aber es trägt die Zahl 0 nirgends ein.
Viele Grüße
Kurt

Bei mir geht es

05.10.2016 00:47:07

KlausF

Hallo Kurt,
keine Ahnung, warum das bei Dir nicht geht.
Bei mir geht's.
https://www.herber.de/bbs/user/108593.xls
Gruß
Klaus

AW: Bei mir geht es

05.10.2016 00:55:20

Kurt

Hallo Klaus,
Ja, seh ich, genau so soll es sein, nur soll in den Spalten 1 - 3 kein Eintrag notwendig sein, also, die sollen leer sein. Es ging nicht, weil ich keinen Eintrag drin hatte.
Viele Grüße
Kurt

unklar

05.10.2016 01:12:14

KlausF

Hallo Kurt,
[ nur soll in den Spalten 1 - 3 kein Eintrag notwendig sein ]
Du meinst sicherlich: in den Zeilen 1 - 3 von Spalte B (?)
Ich verstehe allerdings nicht, was Du meinst. Macht das Makro jetzt
das, was Du willst? Wenn nicht, dann beschreibe bitte genau die
Anforderung.
Im Moment setzt das Makro unter die letzte belegte Zelle in Spalte B
den Wert Null, aber nur wenn die letzte belegte Zelle mindestens
Zelle B3 ist oder darunter liegt.
Gruß
Klaus

AW: unklar

05.10.2016 01:32:48

Kurt

Hallo Klaus,
das Makro funktioniert. Ich möchte aber, das die Zahl 0 erst ab Reihe 4 eingetragen wird, unabhängig davon, ob die Reihen 1 - 3 einen Eintrag haben oder leer sind. Wenn die jetzt leer sind geht es so nämlich nicht. Danke!
Viele Grüße
Kurt

dann so

05.10.2016 01:57:55

KlausF

Moin Kurt,
dann wohl so:

Sub Eintragen()
Dim lngLast As Long
lngLast = Worksheets("Erfassung").Range("B" & Rows.Count).End(xlUp).Row
If lngLast

Gruß
Klaus

AW: dann so

05.10.2016 10:54:51

Kurt

Hallo Klaus,
super, genau so wollte ich es haben. Das hätt ich in tausend Jahren nicht gerafft.
Vielen Dank
Kurt

Wert in erste Zelle eines Bereiches eintragen

Forumthread: Wert in erste Zelle eines Bereiches eintragen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread