Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2025 20:05:17
optimale Aufteilung berechnen
14.05.2025 15:07:04
Tage berechnen und ausgeben
14.05.2025 14:06:10
Datenbank anlegen, Daten aufrufen und Daten abspeichern
14.05.2025 13:42:12
ZÄHLENWENN findet das Komma nicht
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Untereinander Zellen füllen

Forumthread: Untereinander Zellen füllen

Untereinander Zellen füllen
09.03.2009 18:45:47
walli
Guten Abend,
ich ermittel so das Ende der beschriebene Zelle in der Spalte B:
Dim z As Long
z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(3, 2), Cells(z, 30)).Select
Wenn das Ende erreicht ist, sollen die nächsten 5 Zellen der Spalte A mit einem Buchstaben
gefüllt werden.
Z.B. A210 = w, A211=w u.s.w.
Wie kann man dies schnell durchführen ?
mfg walli
Anzeige

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

Kategorie
Automatisierung
Tags
#automatisierung #vba #zellen
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
Spalte B ?
09.03.2009 18:59:38
Matthias
Hi walli
ich ermittel so das Ende der beschriebene Zelle in der Spalte B:
Sicher Spalte B
benutze .Offset() oder
z+1
z+2
z+3 ... usw.
Gruß Matthias
AW: Spalte B ?
09.03.2009 19:11:23
walli
Hallo Matthias,
ja kann auch Spalte A sein.
Wie sieht den die Formel aus ?
mfg walli
Anzeige
AW: SpalteA
09.03.2009 19:15:43
hary
Hi Walli
versuch mal: Spalte A wird der Buchstabe eingetragen.

Sub A()
Dim z As Long
Dim i As Long
z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(3, 2), Cells(z, 30)).Select
For i = 1 To 5
Cells(z + i, 1) = "A"
Next
End Sub


Gruss hary

Anzeige
das geht auch ohne Schleife und "w" nicht "A" ;o)
09.03.2009 19:21:30
Matthias
Hallo hary
ActiveSheet.Range(Cells(z + 1, 1), Cells(z + 5, 1)) = "w"
schnell_wegrenn :o)
Gruß Matthias
AW: das geht auch ohne Schleife und "w" nicht "A" ;o)
09.03.2009 19:25:35
hary
Hi Matthas
hast Recht. War gerade am Schleife bauen, ging eins ins andere ueber ;-))
Gruss hary
Hallo Matthias u. Hary Danke ! -)
09.03.2009 19:57:28
walli
Hallo Ihr Zwei,
super Klasse funktioniert bestens, danke,
einen schönen Abend noch,
mfg walli
Anzeige
welche Formel? das ist VBA...
09.03.2009 19:17:37
Matthias
Hallo
und was willst Du damit erreichen ?
ActiveSheet.Range(Cells(3, 2), Cells(z, 30)).Select ?
Select ist fast immer unnötig!
also konkret, wenn ich Dich richtig verstanden habe so:(für Spalte A)

Sub walli()
Dim z As Long
z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(z + 1, 1), Cells(z + 5, 1)) = "w"
End Sub


Ist Dir das klar?
Es darf innerhalb des Range("A2").End(xlDown).Row keine Zelle leer sein!
Gruß Matthias

Anzeige
Ja ist mir jetzt klar !!!
09.03.2009 19:58:37
walli

Forumthreads zu verwandten Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
2 zellen als Bedingung
sockel939

Guten Morgen an alle,
habe diesen code hier gebastelt!
Würde ihn jetzt gerne um 2 Bedingungen erweitern
und zwar soll der bereich L4:L1000 und N4:N1000 als Bedingung hinzukommen,
hab aber keinen Plan wies geht.
For Each Zelle In Range("K4:K1000")
If Zelle = "overhauled"...
23.08.2008 04:57:59
Thread-ID: 1004065
10 Beiträge
in ComboBox leere Zellen + Duplikate löschen
Uwe

Hi nochmal:
Ich konnte mit folgendem Befehl viel Platz sparen:
With Sheets("Katalog")
UserForm1.cob_produkt.RowSource = "'Katalog'!" _
& .Range("A2:C" & .UsedRange.Rows.Count).Address
End With
Das Problem:
A2: A
A3: B
A4: -leer-
A5:...
26.08.2008 14:56:01
Thread-ID: 1004819
2 Beiträge
in ComboBox leere Zellen + Duplikate löschen
Uwe

Hi nochmal:
Ich konnte mit folgendem Befehl viel Platz sparen:
With Sheets("Katalog")
UserForm1.cob_produkt.RowSource = "'Katalog'!" _
& .Range("A2:C" & .UsedRange.Rows.Count).Address
End With
Das Problem:
A2: A
A3: B
A4: -leer-
A5:...
26.08.2008 14:58:00
Thread-ID: 1004820
4 Beiträge
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Anzeige
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Zählenwenn in einer Tabelle
Marius

Hallo,
ich habe eine Liste mit verschiedenen Rechnern und Betriebssysteme und den dazugehörigen Lizenzarten (OEM, VOL usw.)
Jetzt möchte ich im Rahmen einer Software-Inventur ausgeben, wieviele Lizenzen gekauft sind und wieviele Lizenzen installierte sind.
Das ganze sieht wie folgt...
08.09.2008 16:28:00
Thread-ID: 1008194
2 Beiträge
eine Info aus mehreren Blättern holen und adieren
Peter

Hallo,
folgende Situation: 10 Arbeiter - 10 Stundenzettel. Doch nicht alle 10 Arbeiter arbeiten immer gleichzeitig auf einer Baustelle. Manchmal arbeiten nur 5, manchmal 3 oder manchmal 7, ganz unterschiedlich eben. Und jeder der Mitarbeiter arbeitet unterschiedlich lang auf einer Baustelle...
08.09.2008 19:25:00
Thread-ID: 1008242
2 Beiträge
Anzeige
Datei öffnen - nach Zelleninhalt
Jens

Hallo,
Ich habe einen Ordner (C:/excel/muster) der mehrere Exceldateien enthält (auswahl.xls, 101.xls, 102.xls, etc.)
Nun möchte ich in der Datei auswahl.xls in der Zelle A1 eine Zahl eingeben, z.B. 101
und dann mit Klick auf Schaltfläche soll sich die Datei 101.xls in einem neuen F...
11.09.2008 11:29:25
Thread-ID: 1009049
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige