Anzeige
Archiv - Navigation
1464to1468
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
Inhaltsverzeichnis

Zellinhalt in anderes Arbeitsblatt übernehmen

Zellinhalt in anderes Arbeitsblatt übernehmen
24.12.2015 09:15:59
Uwe
Guten Morgen zusammen,
einmal mehr eine Frage, über die ich mir schon den Kopf zerbreche. ...
In einem Arbeitsblatt befinden sich in den Zellen (G15:G49) Namen, die exakt der Namen nachfolgender Tabellenblätter der Datei entsprechen. So sich z.B. das Tabellenblatt "Maier" in dieser Aufstellung, bzw. in dieser Datei befindet, soll dieser Name nun via VBA in die Zelle (Z47) des Arbeitsblattes "Maier" übertragen werden.
Diese "Übertragung" benötige ich im Anschluss daran noch für weitere Daten. Das aber sollte ich später selbst hinkriegen, so ich das Prinzip erst einmal verstanden habe.
Vielen Dank schon mal für Eure weitere, vor allem aber bisher so phantastische Unterstützung!
Gruß
Uwe

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

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt in anderes Arbeitsblatt übernehmen
24.12.2015 09:27:08
Sepp
Hallo Uwe,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub daten()
Dim rng As Range

With Sheets("Tabelle1") 'Tabellenname - Anpassen!
  For Each rng In .Range("G15:G49")
    If rng <> "" Then
      If SheetExist(rng.Text) Then
        Sheets(rng.Text).Range("Z47") = rng
      End If
    End If
  Next
End With

End Sub

Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook, Optional ByVal byCodeName As Boolean = False) As Boolean
Dim wks As Object
On Error GoTo ERRORHANDLER
If Wb Is Nothing Then Set Wb = ThisWorkbook
For Each wks In Wb.Sheets
  If byCodeName Then
    If LCase(wks.CodeName) = LCase(sheetName) Then SheetExist = True: Exit Function
  Else
    If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
  End If
Next
ERRORHANDLER:
SheetExist = False
End Function

Gruß Sepp

Anzeige
AW: Zellinhalt in anderes Arbeitsblatt übernehmen
24.12.2015 09:53:06
Uwe
Guten Morgen Sepp,
Deine Lösung funktioniert perfekt!
Vielen, vielen Dank!!!
Gruß
Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige