Bereich suchen, auswählen und weiter

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

Nachtrag

29.09.2012 08:34:22

Steve
AW: Nachtrag

29.09.2012 09:35:26

Hans

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

Beliebteste Forumthreads (12 Monate)

Bereich suchen, auswählen und weiter

Forumthread: Bereich suchen, auswählen und weiter

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