Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalte aus Mappe übernehmen

Inhalte aus Mappe übernehmen
17.03.2005 07:54:06
merten
Guten Morgen,
ich habe mal folgende Frage.
Habe in einer Mappe1 ein Blatt welches ich in Mappe2 1 zu 1 übernehmen möchte.
Wenn ich nun in meiner Mappe1 das Blatt verändere, also nicht nur die Zelleninhalten, sondern beispielsweise Zellen verbinde oder eine Grafik einfüge ect. dann hätte ich gern, dass meine Aktivitäten in meine Mappe2 in das gespiegelte Blatt automatisch übernommen werden. Geht so etwas. Verknüpfungen beziehen sich ja nur auf festgelegte Bereiche.
Bin für jede Idee dankbar.
MfG
Merten

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

Betreff
Datum
Anwender
Anzeige
AW: Inhalte aus Mappe übernehmen
17.03.2005 08:05:13
Heinz
Hallo Merten,
klick doch einfach vor der Änderung der Tabelle mit gedrückter UMSCHALT-Taste die Tabellenblätter an, die du auch so ändern möchtest und ändere auf einem de tabelleab. die anderen werden ebenso geändert. Vergiss aber nicht vor der Eingabe der Werte auf einen nicht aktivierten (grauen) Tabellenblattreiter zu klicken um den Gruppenmodus wieder aufzuheben.
Gruß Heinz
AW: Inhalte aus Mappe übernehmen
17.03.2005 08:13:54
Merten
Hallo Heinz,
sorry, aber das habe ich jetzt nicht so ganz verstanden, könntest du das bitte etwas genauer erklären.
Muß ich erst alle Mappen und Blätter öffnen, oder wie ist das gemeint.
Gruß
Merten
Anzeige
AW: Inhalte aus Mappe übernehmen
17.03.2005 10:23:12
Horst
Hallo,
hatte vor Längerem was ähnliches Dank Hilfe dieses Forums
und anderer Quellen im Netz gebastelt
...geben und nehmen....
versuch Dich mal, ob Dir das was nützt:
(1. Kannst die Funktion in einem Sub aufrufen: TXT_einlesen "MyFile.abc"
2. Die Funktionen Split und ReadUntil sind m.Wissens ab Excel2000
integriert und können weggelassen werden, geht aber bei mir SO auch in Excel XP)
-------------MODUL START-----------
Public Function Split(ByVal sIn As String, Optional sDelim As _
String, Optional nLimit As Long = -1, Optional bCompare As _
Long = vbBinaryCompare) As Variant
Dim sRead As String, sOut() As String, nC As Long
If sDelim = "" Or Len(sDelim) > Len(sIn) Then
ReDim Preserve sOut(0)
sOut(0) = sIn
Else
sIn = sIn & sDelim
Do While sIn "" And Len(sDelim) sRead = ReadUntil(sIn, sDelim, bCompare)
ReDim Preserve sOut(nC)
sOut(nC) = sRead
nC = nC + 1
If nLimit -1 And nC >= nLimit Then Exit Do
Loop
End If
Split = sOut
End Function

Private Function ReadUntil(ByRef sIn As String, _
sDelim As String, Optional bCompare As Long = vbBinaryCompare) As String
Dim nPos As Long
nPos = InStr(1, sIn, sDelim, bCompare)
If nPos > 0 Then
ReadUntil = Left(sIn, nPos - 1)
sIn = Mid(sIn, nPos + Len(sDelim))
End If
End Function


Public Function TXT_einlesen(ByVal Dateiname As String) As Variant
Dim ReadFile, zeile As String, arr_str As Variant
'leere Tabelle zum Einlesen
Workbooks.Add
'Dialog öffnen auf Basis von *.txt, *.log oder *.dat Files
ReadFile = Dateiname
Open ReadFile For Input As #1
Do While Not EOF(1)
Line Input #1, zeile
arr_str = Split(zeile, vbTab) ' statt vbTab ggf ";" oder ","
j = j + 1
For i = 0 To UBound(arr_str)
Cells(j, i + 1) = arr_str(i)
Next i
Loop
Close #1
End Function
--------------------MODUL END --------
Horst vom Host
(bin für heute "runter" von Herber.de-Rückfragen zwecklos :-) )
Anzeige
AW: Inhalte aus Mappe übernehmen
17.03.2005 10:25:23
Horst
Oops, falsche Frage, richtige Antwort....
Sorry, gehört nich hier her (anderer Thread)
Horst

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige