Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teilzellen kopieren

Forumthread: Teilzellen kopieren

Teilzellen kopieren
Paul
Hallo,
mit diesem Script adiere ich aus allen Sheets die Summen. 

Sub Summieren()
Sheets("Active").Cells(2, 2).Formula = "=SUM('" & _
Sheets(2).Name & ":" & Sheets(Worksheets.Count).Name & "'!B2)"
End Sub

Frage, wie kann es so abgeaendert werden, dass von allen Sheet der Abschnit (B2:G2) kopiert wird und in dem Aktiven Sheet nacheinander reingeschrieben werden. Also vom Sheet1 ab B2, Sheet2 ab B3, Sheet3 ab B4, etc..
Paul
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Teilzellen kopieren
18.02.2006 20:51:39
Franz
Hallo Paul,
Folgender Code überträgt die Werte aus den Zellen B2:G2 der anderen Blätter in das aktive Blatt. 

Sub Test()
Dim ws1 As Worksheet, ws2 As Worksheet
With ThisWorkbook
Set ws2 = .ActiveSheet
Zeile = 2: Spalte = 2
For Each ws1 In .Sheets
If ws1.Name <> ws2.Name Then
ws1.Range("B2:G2").Copy
'Werte aus den Zellen werden ab Spalte B im aktiven Blatt eingetragen
ws2.Cells(Zeile, 2).PasteSpecial (xlPasteValues)
'Tabellenname wird in Spalte A eingetragen
ws2.Cells(Zeile, 1) = ws1.Name
Zeile = Zeile + 1
End If
Next
End With
Application.CutCopyMode = False
End Sub

Gruß
Franz
Anzeige
AW: Teilzellen kopieren
20.02.2006 08:17:03
Paul
Hallo Franz,
laeuft einwandfrei, danke!
Paul
;

Forumthreads zu verwandten 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
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
Teilwert aus Zelle suchen und selektieren
Addi

Hallo Zusammen,
folgendes Problem:
Ich habe eine Excel Liste mit Buchungstexten, die zum Teil so aussehen:
"Rg. Hilton/Beherb./F.Schulze/10.03.08"
Aus dieser Zelle möchte ich den Namen selektieren und einzeln in die Zelle daneben schreiben.
Die jeweiligen Namen sind bekannt...
20.03.2009 07:54:45
Thread-ID: 1062031
10 Beiträge
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teilinhalte aus Zellen löschen
Der

Hallo da draußen,
ich möchte aus einer Zelle die ersten x Zeichen von links löschen und die Restlichen beibehalten. Mit dem Befehl left(cells(R,C),x) kann ich auf diese Zeichen zugreifen und sie auch auslesen. Wie kann ich sie nun löschen?
Danke für Eure Hilfe!
Grüße aus der Hauptst...
25.03.2009 15:20:24
Thread-ID: 1063841
9 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Ein Teil einer Formel in andere Zelle ausgelagern
Hans

Ein Teil der Formel – der immer gleich ist - soll in eine andere Zelle ausgelagert werden. Ist die möglich, gibt es hierfür eine spezielle Funktion?
=WENN(E25=5;SVERWEIS(Rechn.!C25;'C:\Ornder\[dateiname.xls]tabelle'!$A$2:$B$17128;2;FALSCH);"")
=WENN(E25=5;SVERWEIS(Rechn.!C25; Verweis au...
14.06.2009 21:29:10
Thread-ID: 1081465
2 Beiträge
Anzeige
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Teilbereich aus einer Zelle
MikeM

Hallo zusammen,
eigentlich trivial aber ich bekomme es nicht hin.
In Zelle A1 steht: Datum: 01.01.2009
In A2 möchte ich stehen haben: 01.01.2009
Allerdings kann in A1 auch: 1.1.09 stehen
Die Formel: rechts(A1;10) würde funktionieren, wenn das Datum nicht auch im Format 1.1....
21.07.2009 08:16:34
Thread-ID: 1090112
4 Beiträge
Anzeige
Ausgewählte Zellen in einer Zelle ausgeben
Neyer

Hallo
Gibt es eine Möglichkeit, die Inhalte einer individuell markierten Zellenauswahl in einer einzelnen Zelle, mit z.B. Semikolon getrennt darzustellen?
Um eine Antwort bin ich sehr danbkar.
Gruss
31.07.2009 13:58:16
Thread-ID: 1092754
7 Beiträge
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige