Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in anderes Tabellenblatt übernehmen

Daten in anderes Tabellenblatt übernehmen
19.01.2005 20:08:38
Alex
Hallo,
ich habe eine Tabelle, in der die Daten wie folgt stehen
01 Wert
01 Wert
02 Wert
01 Wert
03 Wert
04 Wert
01 Wert
01 Wert
02 Wert
Jetzt möchte ich in eine neues Tabellenblatt alle Daten reingeschrieben haben, in der die Daten getrennt geliefert werden, also
01 Wert
01 Wert
01 Wert
nächstes Tabellenblatt
02 Wert
02 Wert
usw.
Hat jemand eine Idee ?
Danke + Gruß
Alex

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in anderes Tabellenblatt übernehmen
19.01.2005 20:25:19
Josef
Hallo Alex!
Eine Möglichkeit!
Die Tabellenblätter werden, falls nicht vorhanden, erzeugt!


      
Private Function SheetExist(ByVal sheetName As String, Optional WbName As String) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If WbName = "" Then WbName = ThisWorkbook.Name
   For Each wks In Workbooks(WbName).Worksheets
      If wks.Name = sheetName Then SheetExist = True: Exit Function
   Next
ERRORHANDLER:
SheetExist = False
End Function
Sub machBlatt()
Dim wks As Worksheet
Dim wksA As Worksheet
Dim rng As Range
Dim lastRow As Long
Dim lRow As Long
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
Set wksA = ActiveSheet
lastRow = IIf(wksA.Range("A65536") <> "", 65536, _
            wksA.Range("A65536").End(xlUp).Row)
   For lRow = 1 To lastRow
   
      If SheetExist(wksA.Cells(lRow, 1).Text) Then
         Set wks = Sheets(wksA.Cells(lRow, 1).Text)
      Else
         Set wks = Worksheets.Add(after:=Sheets(Sheets.Count))
         wks.Name = wksA.Cells(lRow, 1).Text
      End If
   
      With wks
         .Range(.Cells(.Cells(65536, 1).End(xlUp).Row + 1, 1), _
         .Cells(.Cells(65536, 1).End(xlUp).Row + 1, 2)).Value = _
         wksA.Range(wksA.Cells(lRow, 1), wksA.Cells(lRow, 2)).Value
      End With
   
   Next
wksA.Activate
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub 
Anzeige

308 Forumthreads zu ähnlichen Themen

Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Indirekt(Adresse) in Barwertformel
Oliver

Hallo,
ich möchte den Barwert von mehreren Anleihen berechnen, siehe Feld F19 in meiner Datei
https://www.herber.de/bbs/user/55783.xls
Jedoch erhalte ich #WERT!, also nen Fehler ... in meiner BW-Formel sieht man, dass ich Indirekt(Adresse) sowohl bei den Markzinsen (MZ) als auch fü...
03.10.2008 14:41:46
Thread-ID: 1013792
4 Beiträge
Anzeige
Übertrag auf anderes Blatt
Sankt

Hallo,
ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
06.10.2008 11:50:21
Thread-ID: 1014393
7 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Summenprodukt auf anderes Blatt beziehen
Reinhard

Hallo Wissende, diese Formel in einer bedingten Formatierung in Tabelle1 fuktioniert: =SUMMENPRODUKT(($C$1:$C$100=$A3)*($D$1:$D$100=$B3))>0 Vegebe ich aber z.B. für Tabelle2!$A:$A den Namen TabA Tabelle2!$B:$B den Namen TabB so tut sich nichts bei der bedingten Formatierung in Tabelle1 bei...
27.11.2008 11:02:50
Thread-ID: 1028275
3 Beiträge
Zellwert auf anderes Tabellenblatt übernehmen
Jan

Hallo zusammen
ich habe in den Zellen A10:A10010 diverse Werte stehen. Jetzt möchte ich, dass wenn man auf so einen Wert draufklickt, in der Zelle A8 eines anderen Tabellenblattes genau dieser Wert erscheint... Ist das irgendwie machbar mit einem Makro oder so? Wenn ja, dann wäre ich um jed...
10.03.2009 15:49:15
Thread-ID: 1058747
9 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
3
2
3
2
6
1
6
2
8
2
2
3
5
2
2
4
5
6
4
1
2
13
5
3