Zellinhalt in anderes Arbeitsblatt übernehmen

Forumthread: 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

AW: Zellinhalt in anderes Arbeitsblatt übernehmen

24.12.2015 09:27:08

Sepp
AW: Zellinhalt in anderes Arbeitsblatt übernehmen

24.12.2015 09:53:06

Uwe

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

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)

Zellinhalt in anderes Arbeitsblatt übernehmen

Forumthread: Zellinhalt in anderes Arbeitsblatt übernehmen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread