Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamischen Bereich markieren und Zellen beschrift

Dynamischen Bereich markieren und Zellen beschrift
10.01.2018 08:33:22
Benjamin
Guten Tag,
ich möchte mich gleich am Anfang für eure Unterstützung bedanken.
Ich möchte gerne in die erste freie Zelle am Ende der Spalte "E" den Wert „Umsatz“ schreiben.
Dieser Wert soll so oft in die darunterliegenden Zellen geschrieben werden wie Werte in der Spalte A eingetragen sind.
Also steht die Anzahl der zu befüllen den in Spalte E in Abhängigkeit mit den bereits befüllten Zellen in Spalte A.
Dazu mein Code - welcher nicht funktioniert:
' LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
' ErsteLeereZelle = [E1].End(xlDown).Offset(1).Activate
' Destination:=ActiveSheet.Range("E & ErsteLeereZelle:E" & LetzteZeile)
' ActiveCell.FormulaR1C1 = "Umsatz"
Also wie kann jetzt am Ende von Spalte "E" so oft "Umsatz" eigentragen werden wie werte in Spalte "A" stehen?
Vielen Dank!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamischen Bereich markieren und Zellen beschrift
10.01.2018 08:52:51
Dieter
Hallo Benjamin,
du kannst das mit dem folgenden Programm amchen 
Sub Auffüllen()
Dim anfZeile As Long
Dim anzahlA As Long
Dim ws As Worksheet
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets(1)
If IsEmpty(ws.Range("E1")) Then
anfZeile = 1
Else
anfZeile = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row + 1
End If
anzahlA = Application.WorksheetFunction.CountA(ws.Columns("A"))
For zeile = anfZeile To anfZeile + anzahlA - 1
ws.Cells(zeile, "E") = "Umsatz"
Next zeile
End Sub
mfg
Dieter
AW: Dynamischen Bereich markieren und Zellen beschrift
10.01.2018 09:03:07
Werner
Hallo Benjamin,
so: 
Public Sub Test()
Dim loLetzteA As Long, loLetzteE As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzteA = .Cells(.Rows.Count, 1).End(xlUp).Row
loLetzteE = .Cells(.Rows.Count, 5).End(xlUp).Row + 1
.Cells(loLetzteE, 5).Resize(loLetzteA - loLetzteE + 1) = "Umsatz"
End WithEnd Sub
Gruß Werner
Anzeige
AW: Dynamischen Bereich markieren und Zellen beschrift
10.01.2018 16:08:00
Dieter
Hallo Benjamin,
ich habe gerade gesehen, dass mein Code noch einen Fehler enthielt.
Hier die korrigierte Version: 
Sub Auffüllen()
Dim anfZeile As Long
Dim anzahlA As Long
Dim ws As Worksheet
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets(1)
If Application.WorksheetFunction.CountA(ws.Columns("E")) = 0 Then
anfZeile = 1
Else
anfZeile = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row + 1
End If
anzahlA = Application.WorksheetFunction.CountA(ws.Columns("A"))
For zeile = anfZeile To anfZeile + anzahlA - 1
ws.Cells(zeile, "E") = "Umsatz"
Next zeile
End Sub
mfg
Dieter
Anzeige

299 Forumthreads zu ähnlichen Themen

Zeichenfolgen vergleichen und markieren
mehmet

Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
Anzeige
Spalten vergleichen und kopieren
edie

Hallo zusammen,
mit dem nachfolgenden Code wird die Spalte C mit der Spalte J verglichen, wobei in
der Spalte C der String nur einmal vorkommt in der Spalte J aber mehrfach.
Bei Übereinstimmung werden die Werte der Spalten K, L und M in die Spalten S, T und U
übernommen.
...
22.01.2009 20:43:26
Thread-ID: 1042727
3 Beiträge
Zellen vergleichen und Bereiche verschieben
Boulbadaoui

Hallo,
ich habe 2 Tabellen je 3 Spalte und mehrere Zeilen
Spalte A in Tabelle1(Bzw. in Tabelle 2) ab Zeile2 beinhalten PLZ Werte.
Die Aufgabe ist:
vergleichen Werten in A von Tabelle1 mit Werten in A von Tabelle2, falls die werte gleich sind, dann nichts machen, sonst komplette...
22.01.2009 22:44:29
Thread-ID: 1042770
3 Beiträge
Anzeige
EXCEL: unterschiedliche zellen vergleichen und den
geoffrey

Hallo Zusammen,
ich habe folgendes Problem:
Ich habe eine alte Tabelle mit unterschiedlichen Inhalten:
z.B.
Tabelle 1:
A B C D E
Prozessschritt Prozessname min durchschnitt max
1 auf...
05.02.2009 15:20:00
Thread-ID: 1047403
2 Beiträge
Inhalt suchen, vergleichen und Wert hinzufügen
Werner

Hallo!
Für mein Problem finde ich irgendwie keine passende Lösung...
In einer Exceldatei (Datei A) habe ich eine Liste mit Werten in Spalte C (S01 bis T98.3) und den Erklärungen dazu in Spalte G
S01 Offene Wunde des Kopfes
S01.0 Offene Wunde behaarte Kopfhaut
S01.1...
06.02.2009 08:13:42
Thread-ID: 1047582
2 Beiträge
Zahlen vergleichen und kennzeichnen
Werner

Hallo Forum,
wer kann mir für folgendes die Formel nennen?
Es soll in einer beliebigen Zahlenreihe jede Zahl, die identisch mit einer Zahl in einer anderen Zahlenreihe ist, farbig gekennzeichnet werden.
Beispieldatei anbei.
Gruß und Danke
Werner
23.02.2009 17:15:20
Thread-ID: 1053187
5 Beiträge
Zahlen vergleichen und kennzeichnen
Werner

Hallo Forum,
da habe ich vorhin den Anhang vergessen :-(
wer kann mir für folgendes die Formel nennen?
Es soll in einer beliebigen Zahlenreihe jede Zahl, die identisch mit einer Zahl in einer anderen Zahlenreihe ist, farbig gekennzeichnet werden.
Beispieldatei anbei.
https:/...
23.02.2009 17:20:14
Thread-ID: 1053191
4 Beiträge
Zellinhalte verlgeich und markieren
Thomas

Hallo,
ich suche dringend Hilfe beim Markieren nichtidentischer Zelleninhalte per VBA.
Beispiel:
a1 bis a3 Inhalt: "a", "b", "c"
Nun sollen die Zellen b1 bis b20 (die auch beliebig andere Buchstaben können) mit dem Inhalt von a1 bis a3 verglichen werden und nur die Zellen sollen...
24.02.2009 13:49:02
Thread-ID: 1053495
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
2
10
2
2
4
1
1
4
3
2
4
2
3
12
13
4
1
3
4
1
4
12
8
4
1