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
1516to1520
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range Kopieren - Zellen initialisieren

Range Kopieren - Zellen initialisieren
10.10.2016 15:00:18
Michael
Hallo und Guten Tag,
vielleicht kann mir jemand helfen!
Ich möchte einen bestimmten formatierten Tabellenbereich (Spalte) kopieren, wenn der rechts danebenliegende Tabellenbereich (Spalte) leer ist und die erste Zelle des Tabellenbereichs (Spalte) soll hochgezählt werden alle anderen Zellen der Spalte sollen dann mit Null initialisiert werden.
Ich habe schon diverse Foren durchsucht aber noch keine befriedigende Lösung gefunden.
Vielen Dank im voraus.
Michael Hein
https://www.herber.de/bbs/user/108699.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: Range Kopieren - Zellen initialisieren
10.10.2016 23:03:49
fcs
Hallo Michel,
ein entsprechendes Makro kann in etwa wie folgt aussehen.
Gruß
Franz 
Sub Neue_Firma_anlegen()
'vor der Ausführung des Makros muss Zelle mit der Nummer der letzten Firma ausgewählt sein.
Dim Zelle As Range
Set Zelle = ActiveCell
If Zelle  "" And IsEmpty(Zelle.Offset(0, 1)) And Zelle.Offset(1, 0)  "" _
And Zelle.Row = 6 Then 'Zeile 6 als Zeile mit den Nummern ggf. anpassen oder Prüfung _
weglassen
With ActiveSheet.Range(Zelle.Offset(0, 0), Zelle.End(xlDown))
.Copy .Offset(0, 1)
.Offset(0, 1) = 0
End With
Zelle.Offset(0, 1).Value = Zelle.Value + 1
End If
End Sub

Anzeige
AW: Range Kopieren - Zellen initialisieren
13.10.2016 10:09:08
Michael
Hallo Franz,
Vielen Dank, dein Makro funktioniert wie gewünscht. Ein Problem bleibt jedoch offen.
Die Formeln die in der Spalte hinterlegt sind werden nicht mit kopiert.
Gern würde ich auch noch darauf verzichten die letzte Spalte (Zeile 6) zu aktivieren
Vielleicht fällt dir dazu noch etwas ein?
Gruß Michael
AW: Range Kopieren - Zellen initialisieren
13.10.2016 23:36:32
fcs
Hallo Michael,
ohne vorherige Zellselektion kann es wie folgt aussehen.
Die Werte in der Spalte sind dann aber nicht unbedingt mit 0 initialisiert -wie in deiner ursprünglichen Frage-, sondern zeigen dann das Erebnis der Formel an.
LG
Franz 
Sub Neue_Firma_anlegen()
Dim Spalte As Long
Dim Zeile As Long
Dim ZeileL As Long
Dim wks As Worksheet
Set wks = ActiveSheet
Zeile = 6 'Zeile mit den Kunden-Nummern - ggf. anpassen
With wks
Spalte = .Cells(Zeile, .Columns.Count).End(xlToLeft).Column
ZeileL = .Cells(.rows.Count, Spalte).End(xlUp).Row
With .Range(.Cells(Zeile, Spalte), .Cells(ZeileL, Spalte))
.Copy .Offset(0, 1)
End With
.Cells(Zeile, Spalte + 1).Value = .Cells(Zeile, Spalte).Value + 1
End With
End Sub

Anzeige
AW: Range Kopieren - Zellen initialisieren
14.10.2016 12:21:55
Michael
Hallo Franz,
auch dein neues Makro funktioniert in der Testtabelle einwandfrei. In der Originalanwendung, die deutlich komplexer ist, gibt es jedoch weitere Restriktionen die eine Umsetzung erschweren.
Ich werde versuchen, diese abzubilden und hoffe dann auf weitere Hilfe deinerseits.
Schönes Wochenende wünscht
Michael

301 Forumthreads zu ähnlichen Themen

kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Anzeige
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
als Bild kopieren
Manu

Hallo
die in Excel erstellten Grafiken übernehme ich als Bild in eine ppt. Bisher mache ich Screenshots, schneide unnötiges im Paint weg und speichere es als jpg ab um es als Grafik wieder in ppt zu importieren. Ich bin an Neuem interessiert und bin des jetztigen, m.E. sehr langen und aufwe...
16.12.2008 08:36:00
Thread-ID: 1033184
2 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
3
1
1
2
2
3
6
3
8
1
3
3
2
4
2
3
8
2
9
3
1
2
1
20
8