Application.Goto Columns1

Private Sub cmd1_Click()

Dim SummeMon As Long

Dim SummeDie As Long

Dim SummeMit As Long

Dim SummeDon As Long

Dim SummeFre As Long

Dim WocheS As String

Dim WocheI As Long



Dim xlapp As Excel.Application

Dim xlWB As Excel.Workbooks

'Dim xlAWB As Excel.Workbook

Set xlWB = Workbooks





Application.Goto Reference:="Montag"

SummeMon = Application.ActiveCell.Value

Application.Goto Reference:="Dienstag"

SummeDie = Application.ActiveCell.Value

Application.Goto Reference:="Mittwoch"

SummeMit = Application.ActiveCell.Value

Application.Goto Reference:="Donnerstag"

SummeDon = Application.ActiveCell.Value

Application.Goto Reference:="Freitag"

SummeFre = Application.ActiveCell.Value



Application.Goto Reference:="ListeNr"

WocheI = CInt(Mid(Application.ActiveCell.Value, 22, 2))

WocheS = CStr(WocheI)



MsgBox Application.ActiveCell.Value

Dim FName As String

Dim MName As String

FName = "D:\Kopie von Klientenlisten\Klientenlisten " & Right(Application.ActiveCell.Value, 4) & _

"\Auswertung\Auswertung " & Right(Application.ActiveCell.Value, 4) & ".xls"





MName = "Auswertung " & Right(Application.ActiveCell.Value, 4) & ".xls"

xlWB.Open Filename:=FName

Windows(MName).Activate



Dim i As Long

Dim gefunden As Long

Windows("Auswertung 2013.xls").Activate



Sheets("Tabelle1").Select

For i = 1 To 300

If Cells(i, 1).Value = WocheI Then

gefunden = i

Exit For

End If

Next i



Cells(gefunden, 2).Value = SummeMon

Cells(gefunden, 3).Value = SummeDie

Cells(gefunden, 4).Value = SummeMit

Cells(gefunden, 5).Value = SummeDon

Cells(gefunden, 6).Value = SummeFre



End Sub

Zuerst entpivotieren wir die Daten in A1:E4 zu einer Datentabelle wie in A715 mit Power Query.
// Data
let
Source = Excel.CurrentWorkbook(){[Name="Data"]}[Content],
#"Transposed Table" = Table.Transpose(Source),
#"Filled Down" = Table.FillDown(#"Transposed Table",{"Column1"}),
#"Promoted Headers" = Table.PromoteHeaders(#"Filled Down", [PromoteAllScalars=true]),
#"Renamed Columns" = Table.RenameColumns(#"Promoted Headers",{{"C-Nr.", "Stoff"}, {"Filter", "Analyzer"}}),
#"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Renamed Columns", {"Analyzer", "Stoff"}, "Attribut", "Wert"),
#"Renamed Columns1" = Table.RenameColumns(#"Unpivoted Other Columns",{{"Attribut", "Filter"}}),
#"Changed Type" = Table.TransformColumnTypes(#"Renamed Columns1",{{"Wert", type number}})
in
#"Changed Type"
Daraus können wir die Pivottabelle in G1:K5 erstellen und wir können für jedes Feld einen Datenschnitt anlegen.
Alles klar?
Andreas.

Hallo,

wenn du eine UserForm modal anzeigst, ist das Arbeitsblatt zur Bearbeitung gesperrt solange die UserForm angezeigt wird.

Probiere es mal so:

Sub Schaltfläche5_Klicken()

Application.Goto Sheets("Start").Range("B2")

UserForm1.Show vbmodeless

End Sub

Mit freundlichen Grüßen

Claus

Hallo Jürgen,
<br />probiere es mal so:
<br />

With Sheets("Infos")  last_row_program = .Cells(.Rows.Count, 2).End(xlUp).Row  Application.Goto .Range("A" & last_row_program + 1) End With

Claus
<br />

Hallo Christian,

bei mir kommt dieser Fehler nicht. Wenn ich zu einem Blatt wechseln muss, arbeite ich immer mit Application.Goto anstatt dem Select.

Edit: Wie du siehst, funktioniert es doch problemlos in meiner Mappe. Es hängt also nicht am Code. Hast du eventuell das Blatt geschützt und A1 kann und darf nicht selektiert werden?

Warum hast du noch diesen CommandButton3_Click-Code? Der ist total unnötig.

Probiere es mal so:

Private Sub ComboBox1_Change()

Application.Goto Sheets(Me.ComboBox1.Value).Range("A1")

Unload Me

End SubPrivate Sub UserForm_Initialize()

Dim i As Long

For i = 1 To Sheets.Count

    If Sheets(i).Visible = True Then

        Me.ComboBox1.AddItem Sheets(i).Name

    End If

Next

End Sub

Claus