Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
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
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte mit 1 Füllen

Spalte mit 1 Füllen
15.10.2022 13:31:46
Roger
Hallo zusammen
Mit folgendem Code fülle ich die Spalte C ab C3 mit 1, bis Ende der Daten.
Nun sind aber nicht immer gleichviel Daten Die daten können auch C8000 gehen.
Kann ich da irgendwas reinschreiben das er bis zum Ende der Daten schaut?

Sub Aufuellenmit1()
Range("C2").Select
Selection.Copy
Range("C3:C475").Select
ActiveSheet.Paste
End Sub
Danke und Gruss
Roger

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte mit 1 Füllen
15.10.2022 14:50:15
Uduuh
Hallo,
wenn so weit wie A gefüllt:

Sub aaa()
Range(Cells(3,3),cells(Rows.Count,1).end(xlup)).offset(,2)=1
End Sub
Gruß
aus'm Pott
Udo
AW: Spalte mit 1 Füllen
15.10.2022 14:57:47
Roger
Hallo Udo
Leider füllt es mir auch die Spalten D und E mit 1 aus.
Gruss
Roger
AW: Spalte mit 1 Füllen
15.10.2022 15:31:00
Uduuh
mein Fehler

 Sub aaa()
Range(Cells(2,1),cells(Rows.Count,1).end(xlup)).offset(,2)=1
End Sub

AW: Spalte mit 1 Füllen
15.10.2022 15:42:28
Roger
Hallo Udo
Besten Dank klappt auch wunderbar.
Gruss
Roger
AW: Spalte mit 1 Füllen
15.10.2022 16:25:20
Daniel
Das verschieben einer einzelnen Klammer hätte gereicht:
....end(xlup).offset(,2))=1
Gruß Daniel
Anzeige
AW: Spalte mit 1 Füllen
15.10.2022 14:52:52
volti
Hallo Roger,
eine Idee....
Code:


Sub Ausfuellen()
  Dim i As Long
 
  i = Cells(Rows.Count, "C").End(xlUp).Row
  If i > 2 Then Range("C3:C" & i).Value = Range("C2").Value
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Spalte mit 1 Füllen
15.10.2022 14:59:50
Roger
Hallo Karl-Heinz
leider wird gar nichts ausgefüllt.
Gruss
Roger
AW: Spalte mit 1 Füllen
15.10.2022 15:10:33
volti
Hallo Roger,
es wird wahrscheinlich nichts ausgefüllt, weil die Spalte "C" weniger als drei Zeilen hat. Dann würde alles von Zeile 1 bis Zeile 2 ausgefüllt, das habe ich unterbunden.
Oder die Zelle C2 war leer.
Ich bin von Deinem Beispielcode ausgegangen, der die Zelle "C2" (Wert egal oder auch 1) über alle vorhandenen Werte in Spalte ab Zeile 3 kopiert.
So habe ich Deine Aufgabenbeschreibung verstanden, bis zu den letzten Daten in Spalte "C".
Wenn die Anzahl der maximalen Zeilen aus einer anderen Spalte kommen soll (Uduuh nahm die Spalte A an) , muss man das auch entsprechend kund tun.
Range("C3:C" & Cells(Rows.Count, "C").End(xlUp).Row).Value = 1 ' bis zur letzten belegten Zelle in Spalte C
Range("C3:C" & Cells(Rows.Count, "A").End(xlUp).Row).Value = 1 ' bis zur letzten belegten Zelle in Spalte A
Gruß Karl-Heinz
Anzeige
AW: Spalte mit 1 Füllen
15.10.2022 15:18:35
Roger
Karl-Heinz
Vielen vielen Dank.
Ihr seit einfach die besten hier.
Klappt einwandfrei
Gruss
Roger

273 Forumthreads zu ähnlichen Themen

Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Anzeige
Zelle mit 50 stelliger Zahl
Mathias

Hallo guten morgen,
kann mir bitte jemand sagen wie ich eine Zelle so formatieren kann das darin eine ca. Zahl mit 50 Stellen angezeigt wird.
Folgendes Problem,die Zahl sind so auf 350015+28€ d.h. sie wird als Text angezeigt, formatiere ich diese als Zahl bekomme ich zwar etliche Stell...
21.10.2008 08:33:45
Thread-ID: 1017842
3 Beiträge
Zahl mit Nullen auffüllen !!!
Zoran

Hallo zusammen.
Habe folgenden Code:
Sub NullWert() Dim c As Range Dim laenge As Integer Dim maxNull As Byte Dim i As Integer For Each c In Selection laenge = Len(c) If c "" And IsNumeric(c) Then c.Select maxNull = laenge - 10 For i = maxNull To 1 Step -1 c = c & "0" Next i Activ...
17.11.2008 15:49:00
Thread-ID: 1025268
5 Beiträge
Anzeige
Zahlen mit . auf Spalten übertragen
ZekA

Hallo,
ich habe in Spalte L Zahlen stehen mit dem Trennzeichen .
Also in Spalte L steht
7 . 3 . 38 . 45 . 43 . 8
Wie bekomm ich mit einer Formel die Zahlen in Spalte B-G
Also Spalte B = 7
Spalte C = 3 usw.
Freu mich auf Hilfe. Danke
Gruß
06.02.2009 11:18:30
Thread-ID: 1047676
3 Beiträge
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Makro Zahlen mit drei 0 löschen
Jeron

Hallo zusammen,
kann mir jemand bitte bei einem Makro helfen ?
Das Makro soll aus einer beliebig langen Tabelle alle Nummern in der ersten Spalte überprüfen.
Wenn die Zahl mit drei Nullen beginnt, soll die gesamte Zeile gelöscht werden.
Vielen Dank für eure Hilfe!!
Beste Grü...
07.04.2009 11:07:59
Thread-ID: 1067314
6 Beiträge
VBA für Zahlen mit drei Nullen
Jeron

Hallo zusammen,
ich bräuchte bitte ein Makro für folgenden Fall: in meiner Spalte liegen drei Sorten von Zahlen vor
1) 0001234 : In Zeile 1) und 2) stehen die gleichen Zahlen, ich brauch aber nur die Zahl aus Zeile 2)
2) 1234 : " " Zeile 1) muss gelöscht werden
3) 00012...
07.04.2009 16:27:50
Thread-ID: 1067456
4 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 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
7
5
2
4
1
2
1
5
3
11
2
5
3
5
1
13
2
10
13
3
5
4
4
1
2