Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich suchen, auswählen und weiter

Bereich suchen, auswählen und weiter
28.09.2012 22:45:37
Steve
Hallo zusammen,
Ich suche hilfe für ein Problem:
ich habe in Zeile 2 verschiedene Jahre geschrieben, von 2005 bis 2013, und das gleiche 3 x hintereinander.
Jetzt möchte ich ein eingegebenes Jahr in einer TextBox in der Zeile 2 suchen (zb:2011) und, die gefundene spalte und die 3 vorhergehenden Spalten markieren, bis letzte beschrieben zelle (2008,2009,2010,2011), in ein neues Blatt koppieren "Blatt2", und das gleiche mit den nachfolgenden 2 Jahr-serien.
Im Blatt 2 ist alles hintereinander koppiert. (2008,2009,2010,2011,2008,2009,2010,2011,...)
Könnte mir da Jemand helfen?
Besten dank, Steve

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

Betreff
Datum
Anwender
Anzeige
Nachtrag
29.09.2012 08:34:22
Steve
Nachtrag,
binn noch ein wenig am probieren, habe gemerkt das die versteckten reihen und spalten nicht kopiert werden dürfen. Kann man das in die obere fragestellung einbinden?
Danke

AW: Nachtrag
29.09.2012 09:35:26
Hans
Hallo Steve,
wie komme ich nur drauf, dass Deine Tabelle ganz anders aussieht, als ich Deine Beschreibung verstanden habe? Das Problem und der Aufwand liegt darin, ein entsprechendes Szenario aufzubauen.
Hier die Beispielarbeitsmappe:
https://www.herber.de/bbs/user/81932.xls
Hier das Kernstück des UserForm-Codes:
Private Sub cmdOK_Click()
Dim wks As Worksheet, wksTarget As Worksheet
Dim iCol As Integer, iColA As Integer, iRow As Integer, iRowT As Integer
Set wks = ActiveSheet
For Each wksTarget In Worksheets
If wksTarget.Name = "Blatt2" Then
Application.DisplayAlerts = False
wksTarget.Delete
Application.DisplayAlerts = True
End If
Next wksTarget
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Blatt2"
For iCol = 4 To wks.Cells(2, wks.Columns.Count).End(xlToLeft).Column
If wks.Cells(2, iCol).Value = CInt(cboYear.Text) And _
wks.Columns(iCol).Hidden = False Then
For iColA = iCol - 3 To iCol + 2
Cells(1, iColA).Value = wks.Cells(2, iCol).Value
iRowT = 2
For iRow = 3 To wks.Cells(Rows.Count, iCol).End(xlUp).Row
If wks.Rows(iRow).Hidden = False Then
Cells(iRowT, iColA).Value = wks.Cells(iRow, iCol).Value
iRowT = iRowT + 1
End If
Next iRow
Next iColA
End If
Next iCol
End Sub
Gruss hans
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige