Inhalte aus Mappe übernehmen

Bild

Betrifft: Inhalte aus Mappe übernehmen
von: merten
Geschrieben am: 17.03.2005 07:54:06
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

Bild

Betrifft: AW: Inhalte aus Mappe übernehmen
von: Heinz Ulm
Geschrieben am: 17.03.2005 08:05:13
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
Bild

Betrifft: AW: Inhalte aus Mappe übernehmen
von: Merten
Geschrieben am: 17.03.2005 08:13:54
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
Bild

Betrifft: AW: Inhalte aus Mappe übernehmen
von: Horst S.
Geschrieben am: 17.03.2005 10:23:12
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) < Len(sIn)
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 :-) )
Bild

Betrifft: AW: Inhalte aus Mappe übernehmen
von: Horst S.
Geschrieben am: 17.03.2005 10:25:23
Oops, falsche Frage, richtige Antwort....
Sorry, gehört nich hier her (anderer Thread)
Horst
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Inhalte aus Mappe übernehmen"