Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
140to144
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
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Blattkopie nächster Wert aus Tabelle, Zeile...

Bei Blattkopie nächster Wert aus Tabelle, Zeile...
24.07.2002 18:32:50
Florian
Hallo ihr Lieben,

habe mal wieder ein Problem:

ich kopiere per Makro immer das letzte Blatt und füge es als letztes neu ein. Dabei wird in einer Zelle des Blattes ein Wert aus einer Zeile des ersten Blattes angezeigt. Nun soll bei jedem Kopiervorgang der Wert der nächsten Zeile aus Blatt 1 im neuen Blatt angezeigt werden!

Könnt ihr mir helfen?

danke Flo

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

Betreff
Datum
Anwender
Anzeige
Re: Bei Blattkopie nächster Wert aus Tabelle, Zeile...
24.07.2002 19:12:48
l.vira
wenn das zu jedem beliebigen Zeitpunkt möglich sein soll, solltest du die jeweils letzte Zeilennummer z.B. mit Savesetting in die Registry schreiben und beim nächsten Kopiervorgang wieder
auslesen und um 1 erhöhen.
Re: Bei Blattkopie nächster Wert aus Tabelle, Zeile...
24.07.2002 19:21:08
florian
Sorry Lvira

aber dass war jetzt irgendwie zu hoch für mich.
ich weiß zwar was du meinst, bin aber in VBA noch nicht firm genug um das alleine hinzubekommen.

Danke aber trotzdem!

Re: Bei Blattkopie nächster Wert aus Tabelle, Zeile...
24.07.2002 19:29:32
L.Vira
Ich poste dir etwas später ein Beispiel
Re: Bei Blattkopie nächster Wert aus Tabelle, Zeile...
24.07.2002 20:01:56
L.Vira
''Die Zeilennummer wird aus der Registry ausgelesen. Falls
''da, warum auch immer, kein Wert drin steht, wird er erstmal
''mit 1 initialisiert(also z.B. beim ersten Start des Makros.
''Ich weiß nicht, ob das unter Windows NT geht, da braucht man
''wohl Administrator- Rechte, um in die Registry zu schreiben.
''Dann musst du das entweder in die Customer- Properties
''oder in ein ausgeblendetes Blatt schreiben.

''Schlüssel in der Registry:
''HKEY_CURRENT_USER\Software\VB and VBA Program Settings

''so siehst dann komplett aus:
''HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Dateiname\Schlüssel

Option Explicit
Sub Blatt_Kopie()
Dim ZNr As Long

''Voreinstellung Zeilennummer
ZNr = 1

''Auslesen, falls nix da, 1 einstellen
''Die Einträge natürlich sinnvoll benennen...
If GetSetting("Dateiname", "Schlüssel", "ZeilenNr") = "" Then
SaveSetting "Dateiname", "Schlüssel", "ZeilenNr", ZNr
End If

''Zeilennummer aus Registry lesen. Da dort nur strings
''gespeichert werden, in Long umwandeln.
ZNr = CDbl(GetSetting("Dateiname", "Schlüssel", "ZeilenNr"))

''Deine eigentliche Kopieraktion
Sheets("Tabelle2").Copy After:=Sheets(Sheets.Count)

''In A1 wert aus Tabelle1, Spalte A, Zeile dynamisch
[a1] = Sheets("Tabelle1").Cells(ZNr, 1)

''Zeilennummer hochzählen....
ZNr = ZNr + 1

''...und in Registry speichern
SaveSetting "Dateiname", "Schlüssel", "ZeilenNr", ZNr

End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
Werte aus PRN Datei einlesen über 65563 Zeilen
Andre´

Hallo alle zusammen,
Ich lese aus einer PRN-Datei die Werte ins Excel ein wie folgt:
Option Explicit
Sub Daten_einlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 11, 1 To 1) iFree = Fr...
04.11.2008 08:39:00
Thread-ID: 1021464
12 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Wenn Spalte D übereinstimmt, dann Inhalt kopieren
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter -Basis und Basis1-, in Spalte D steht die Kundennummer. Wie kann ich erreichen, dass ein Abgleich zu weiteren Tabellen -Tabelle1-4- (es können 4, aber auch nur 1 Tabellenblatt vorhanden sein) erfolgt und wenn die Kundennummer aus Tabe...
30.11.2008 20:33:51
Thread-ID: 1029110
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge

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
4
7
7
2
3
11
5
2
5
7
2
7
12
2
3
5
9
3
2
8
1
6
4
2
12