Frage an die Experten

Guten Abend,
so da mir bis jetzt auf meine erste Frage keiner geantwortet hat werde ich euch noch einmal nerven :-).
Also ich stell die Frage noch einmal.
Ich habe bis jetzt folgendes Makro:
Sheets("Januar").Select
Range("D45:D88,H45:J88").Select
Selection.Copy
Range("B3").Select
Sheets("Auswertung").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Jetzt möchte ich gerne folgendes haben, was ich bis jetzt leider auch noch nicht hin bekommen habe ;-(
Ich habe verschiedene Arbeitsblätter von Januar bis Dezember halt und eine Auswertungsblatt wie man ja lesen kann im Makro. Nun möchte ich das ganze in ein Kombinationsfeld packen damit ich mir jeweils den endsprechenden Monat importieren kann.
Nun versuche ich schon die ganze zeit einen bezug zu erstellen zwischen dem Kombinationsfeld und der Zellen wo das ganze rein soll.
Habt ihr ne Idee ????
Gruß
Heinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Frage an die Experten

12.06.2006 22:57:03

Josef Ehrensberger

AW: Frage an die Experten

12.06.2006 23:01:23

Heinz Müller

AW: Frage an die Experten

12.06.2006 23:34:28

Josef Ehrensberger

AW: Frage an die Experten

13.06.2006 07:46:21

Heinz Müller

AW: Frage an die Experten

13.06.2006 21:20:40

Josef Ehrensberger

AW: Frage an die Experten

14.06.2006 07:38:12

Heinz Müller

AW: Frage an die Experten

14.06.2006 10:00:44

Heinz Müller

AW: Frage an die Experten

14.06.2006 23:05:36

Josef Ehrensberger

Hallo Heinz!
Stimmen die Bereichsangaben?
Die überschneiden sich.
Ansonsten füge in die Tabelle "Auswertung" eine Cobobox mit dem Namen "ComboBox1" ein
und füge diesen Code in das Modul der Tabelle ein.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub ComboBox1_Click()
With ComboBox1
  If .ListIndex > -1 Then
    Sheets(.Text).Range("D45:D88,H45:J88").Copy
    Me.Range(CStr(.List(.ListIndex, 1))).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Me.Range(CStr(.List(.ListIndex, 1))).Select
  End If
End With
End Sub

Private Sub Worksheet_Activate()
Dim varR() As Variant
Dim intC As Integer

varR = Array("A3", "C3", "E3", "G3", "I3", "K3", "M3", "O3", "Q3", "S3", "U3", "W3")

With ComboBox1
  .ColumnCount = 2
  .ColumnWidths = "100;0"
  .Clear
  For intC = 0 To 11
    .AddItem Format(DateSerial(1, intC + 1, 1), "mmmm")
    .List(.ListCount - 1, 1) = varR(intC)
  Next
End With

End Sub

Du musst dann einmal auf ein anderes Blatt wechseln, um die Combo zu füllen.
Natürlich könntest du die Combo auch über einen Tabellenbereich füllen, in dem
du in einer Spalte die Blattnamen und in der nächsten die Zellbereiche für
daß Einfügen hinterlegst!
Gruß Sepp

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread