Export einer Zelle in eine neue Tabelle

Hallo zusammen,
ich habe eine große Exceltabelle mit mittlerweile über 600 Datensätze (= Zeilen) und mit sehr vielen Vorgänge bezogen auf ein Datensatz (= Spalteneinträge).
Jetzt suche ich nach einer Möglichkeit wie ich mich in eine Zeile positioniere mit Cursor z.B. (immer Spalte A, Zeile "meine aktuelle Position")
und ich mir dann per CMD-Button die Datensätze die ich vorher auswähle, aufgrund meiner Cursor-Position z.B. Spalte 1, Zeile (mein aktuelle Position, diese dann in Spalte 5, Zeile 5 in eine neue Tabelle übertage, die Berichtstabelle ist vorgefertigt und würde auf C:\test.xls liegen.
Ich brauche eigentlich nur diesen Code, der mir die C:\test.xls öffnet und mir bezogen auf meinen aktuellen Stand die jeweiligen Datensätze einliest.
Die Verknüpfung, welche Daten ich brauche kann ich mir - aufgrund meiner niedrigen VBA Kenntnisse, dennoch - selbst abändern.
...ich könnte mir so ein Berichtswesen aufbauen, und per CMD-Button meine "beliebigen" Vorgänge auswerten....
Kann mir da einer helfen?
Gruß
Ben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ben,
Code für Button schaut etwa wie folgt aus:


Private Sub CommandButton1_Click()
Dim wbThis As Workbook, wbZiel As Workbook, strZiel As String
Dim wksThis As Worksheet, wksZiel As Worksheet, Zeile As Long, Spalte As Integer
Set wbThis = ActiveWorkbook
Set wksThis = ActiveSheet
strZiel = "C:\Lokale Daten\Test\Test.xls"
'Prüfen ob Zieldatei schon geöffnet
For Each wbZiel In Workbooks
If wbZiel.Name = Mid(strZiel, InStrRev(strZiel, "\") + 1) Then
Exit For
End If
Next
If wbZiel Is Nothing Then
Set wbZiel = Workbooks.Open(Filename:=strZiel)
End If
Set wksZiel = wbZiel.Worksheets("Tabelle1")
wbThis.Activate
wksThis.Activate
'Daten der aktuell selektierten Zelle
Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
'Daten in Zieldatei übertragen
wksZiel.Cells(5, 5) = wksThis.Cells(Zeile, 1)
wksZiel.Cells(5, 6) = wksThis.Cells(Zeile, Spalte)
wksZiel.Cells(5, 7) = wksThis.Cells(Zeile, Spalte + 1)
End Sub

Namen der Dateien und Tabellen muss ggf. noch anpassen.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Export einer Zelle in eine neue Tabelle

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Export einer Zelle in eine neue Tabelle

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread