Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1476to1480
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

Vorgegebene Spalte nur bestimmten Bereich ausgeben

Vorgegebene Spalte nur bestimmten Bereich ausgeben
22.02.2016 16:06:33
Jakob

Hallo liebes Forum,
ich muss folgende Aufgabe lösen:
Ich habe eine Spalte A gegeben mit ca. 2000 Einträgen. In der Spalte B möchte ich einen Ausschnitt der Spalte wiedergeben, wobei die Aufzählung der Spalte beispielsweise ab dem 31.Spalteintrag von A beginnen soll. In einem kleinen Fenster soll angegeben werden können, dass beispielsweise der 31.Spalteneintrag gemeint ist. Es können auch der 20. oder ein x-beliebiger vom Anwender gewünschte Zeile beginnen. Vielen Dank im Voraus für eure Unterstützung.
Gruß
Jakob

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit INDEX() ...
22.02.2016 16:19:39
...
Hallo Jakob,
... wenn Du z.B. in E1 die Anfangszeilennummer schreibst, dann so: =INDEX(B:B;E$1-1+ZEILE(A1)) und Formel ziehend nach unten kopiern
Gruß Werner
.. , - ...

=INDEX(B:B ? du meinst A:A. owT
22.02.2016 16:24:51
Rudi

AW: ja natürlich, danke! owT
22.02.2016 16:40:45
...
Gruß Werner
.. , - ...

AW: Vorgegebene Spalte nur bestimmten Bereich ausgeben
22.02.2016 16:36:13
joko
hallo Jakob,
vielleicht geht es auch viel einfacher.
Wenn ich so was machen muss klicke ich auf die erste Zeile. Dann bitte wie folgt vorgehen:
Umschalt+Strg+Pflei_nach_unten
wenn der Bereich markiert ist kopieren Strg+c
Dann in die Zielzelle klicken und Strg+V
Gruß
joko

AW: Vorgegebene Spalte nur bestimmten Bereich ausgeben
22.02.2016 16:46:25
Werner
Hallo Jakob,
oder wenn es denn ein Makro sein soll. Code in ein allgemeines Modul.
Public Sub Bereich()
Dim LastRow As Long
Dim FirstRow As Long
LastRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row 'Tabelle anpassen
FirstRow = Application.InputBox("Startzeile eingeben", "Bereichsauswahl", 0, Type:=1)
If FirstRow > 0 Then
With Worksheets("Tabelle1") 'Tabelle anpassen
.Columns(2).ClearContents
.Cells(FirstRow, 1).Resize(LastRow, 1).Copy .Cells(1, 2) 'Tabelle anpassen
Application.CutCopyMode = False
End With
End If
End Sub
Gruß Werner
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige