Auslesen einer bestimmten Zeile

Hallo zusammen,
ich stecke (mal wieder) in einem kleinen Problem und hoffe hier kann mir jemand helfen.
Ich möchte auf Knopfdruck eine bestimmte Zeile auswählen und die Werte daraus auslesen, komme aber auf keine Lösung.
Ziel bzw. meine Idee:
Beim Betätigen einer Schaltfläche soll sich ein Eingabefenster öffnen in dem die gewünschte Zeile ausgewählt werden kann, beispielsweise die Zeile 5. Nur die in dieser Zeile enthaltenen Werte (von A5 bis D5) sollen dann in der Funktion verwendet werden. In meinem Fall sollen diese dann in eine andere Tabelle kopiert werden. Letzteres habe ich bereits realisiert, lediglich die Auswahl bereitet mir Probleme.
Falls jemand dazu eine Idee hat würde ich mich sehr freuen,
Gruß,
Günther

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo CitizenX,
danke für den Hinweis, ich hab dazu etwas gelesen aber ich werde noch nicht ganz schlau daraus. _ Mein Code sieht aktuell etwa so aus:


Sub Beispiel()
Dim wkbQuelle As Workbook, wkbZiel As Workbook, wkb As Workbook
Dim rngFreieZelle As Range
Dim strDateiname As String, strPfad As String
Dim bolOffen As Boolean
On Error GoTo Fin
strDateiname = "Beispiel.xlsx"
strPfad = "D:\Beispiel\"
For Each wkb In Workbooks
If UCase(wkb.Name) = UCase(strDateiname) Then
bolOffen = True
Exit For
End If
Next
If Not bolOffen Then Workbooks.Open strPfad & strDateiname
Set wkbZiel = Workbooks(strDateiname)
Set wkbQuelle = ThisWorkbook
With wkbZiel.Sheets("Sheet1")
Set rngFreieZelle = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
End With
wkbQuelle.Sheets("Tabelle1").Range("A1").Copy
rngFreieZelle.PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("Beispiel.xlsx").Close SaveChanges:=True
Application.DisplayAlerts = True
Fin:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End Sub

Was er macht: Er öffnet eine bestimmte Excel Tabelle (die Beispiel.xlsx) und kopiert dann den Inhalt der Zelle A1 aus der vorher bereits geöffneten Tabelle in die nächste freie Zelle der Spalte A in der Beispiel.xlsx vor er diese speichert und direkt wieder schließt.
Meine Absicht jetzt ist jetzt nicht die Zelle A1 fest im Code zu definieren sondern abhängig von der Eingabe in einer Eingabebox zu gestalten. Mit der Eingabe (1,2,3...) soll dann die entsprechende Zeile ausgewählt und entsprechend anstelle von A1 (oder B1, C1 usw. an anderen Stellen in meinem ganzen Code) immer A2 oder welche Spalte auch immer eingetragen wird verwendet werden.
Ich hoffe meine Erklärung ist etwas verständlich geworden.
Gruß,
Günther

Sub Beispiel() Dim wkbQuelle As Workbook, wkbZiel As Workbook, wkb As Workbook Dim rngFreieZelle As Range Dim strDateiname As String, strPfad As String Dim bolOffen As Boolean Dim Zeile As Long On Error GoTo Fin strDateiname = "Beispiel.xlsx" strPfad = "D:\Beispiel\" For Each wkb In Workbooks If UCase(wkb.Name) = UCase(strDateiname) Then bolOffen = True Exit For End If Next If Not bolOffen Then Workbooks.Open strPfad & strDateiname Set wkbZiel = Workbooks(strDateiname) Set wkbQuelle = ThisWorkbook With wkbZiel.Sheets("Sheet1") Set rngFreieZelle = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) End With Zeile = InputBox("Bitte die zu kopierende Zeile eingeben:", "Zeile eingeben", 1) wkbQuelle.Sheets("Tabelle1").Rows(Zeile).Copy rngFreieZelle.PasteSpecial (xlPasteValuesAndNumberFormats) Application.CutCopyMode = False Application.DisplayAlerts = False Workbooks("Beispiel.xlsx").Close SaveChanges:=True Application.DisplayAlerts = True Fin: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & " " & Err.Description End Sub

Sub Beispiel() Dim wkbQuelle As Workbook, wkbZiel As Workbook, wkb As Workbook Dim rngFreieZelle As Range Dim strDateiname As String, strPfad As String Dim bolOffen As Boolean Dim Zeile As Long On Error GoTo Fin strDateiname = "Beispiel.xlsx" strPfad = "D:\Beispiel\" For Each wkb In Workbooks If UCase(wkb.Name) = UCase(strDateiname) Then bolOffen = True Exit For End If Next If Not bolOffen Then Workbooks.Open strPfad & strDateiname Set wkbZiel = Workbooks(strDateiname) Set wkbQuelle = ThisWorkbook With wkbZiel.Sheets("Sheet1") Set rngFreieZelle = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) End With Zeile = InputBox("Bitte die zu kopierende Zeile eingeben:", "Zeile eingeben", 1) wkbQuelle.Sheets("Tabelle1").Range("A" & Zeile).Copy rngFreieZelle.PasteSpecial (xlPasteValuesAndNumberFormats) Application.CutCopyMode = False Application.DisplayAlerts = False Workbooks("Beispiel.xlsx").Close SaveChanges:=True Application.DisplayAlerts = True Fin: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & " " & Err.Description End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auslesen einer bestimmten Zeile

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread