Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion auf mehrere Tabellenblätter anwenden
 23.04.2018 11:35:12 James
Solved
23.04.2018 12:05:40 Gast68373
NotSolved
23.04.2018 12:28:07 Werner
NotSolved
23.04.2018 14:05:39 Gast16837
NotSolved

Ansicht des Beitrags:
Von:
James		 Datum:
23.04.2018 11:35:12		 Views:
1366		 Rating:
     
Antwort:
 Nein
Thema:
Suchfunktion auf mehrere Tabellenblätter anwenden

Moin,

ich habe mir eine Sortierfunktionzusammengebastelt, das Problem ist nun, er macht es nur für das aktivierte Tabellenblatt. Ich möchte dieses aber auf zwei Tabellenblätter anwenden, die zum Zeitpunkt des Auslösens nicht aktiviert sind.

Ich bin VBA-Novize und meine Idee wäre es mit With zu machen, das funktioniert aber nicht.

Ich habe mal den Code angehängt. Es sollen die Tabellenblätter "EBewertung" und "Risikoauswertung" angesprochen werden.

Danke im Voraus.

James

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
   Application.ScreenUpdating = True
    
   lLetzte = Range("G65536").End(xlUp).Row
    
   For lZeile = 1 To 6
      Columns("G").Insert Shift:=xlToRight
   Next lZeile
    
   Columns("G:L").NumberFormat = "@"
   Range("G2:L" & lLetzte) = 0
 
   For lZeile = 1 To lLetzte
      aTemp = Split(Cells(lZeile, 13), ".") ' die 'alte' Spalte G ist jetzt M
      For iIndx = 0 To UBound(aTemp)
         If IsNumeric(aTemp(iIndx)) And _
            Len(aTemp(iIndx)) < 2 Then
            Cells(lZeile, 7 + iIndx) = "00" & aTemp(iIndx)
          ElseIf Len(aTemp(iIndx)) < 3 Then
            Cells(lZeile, 7 + iIndx) = "0" & aTemp(iIndx)
          Else
            Cells(lZeile, 7 + iIndx) = aTemp(iIndx)
         End If
      Next iIndx
   Next lZeile
'                                erstmal nach den Spalten J - L sortieren
   Range("G2:Z" & lLetzte).Sort _
      Key1:=Range("J2"), Order1:=xlAscending, _
      Key2:=Range("K2"), Order2:=xlAscending, _
      Key3:=Range("L2"), Order3:=xlAscending, _
      Header:=xlNo, _
      OrderCustom:=1, _
      MatchCase:=False, _
      Orientation:=xlTopToBottom
'                                dann nach den Spalten G - I sortieren
   Range("G2:Z" & lLetzte).Sort _
      Key1:=Range("G2"), Order1:=xlAscending, _
      Key2:=Range("H2"), Order2:=xlAscending, _
      Key3:=Range("I2"), Order3:=xlAscending, _
      Header:=xlNo, _
      OrderCustom:=1, _
      MatchCase:=False, _
      Orientation:=xlTopToBottom
'                                dann die eingefügten Spalten löschen
   Columns("G:L").Delete Shift:=xlToLeft
    
   Application.ScreenUpdating = True

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion auf mehrere Tabellenblätter anwenden
 23.04.2018 11:35:12 James
Solved
23.04.2018 12:05:40 Gast68373
NotSolved
23.04.2018 12:28:07 Werner
NotSolved
23.04.2018 14:05:39 Gast16837
NotSolved