Thema Datum  Von Nutzer Rating
Antwort
Rot AutoFilter von AA-AE
 14.11.2018 14:12:44 HeinzHarald
NotSolved
14.11.2018 14:51:41 codo
NotSolved
14.11.2018 15:12:41 codo
NotSolved
15.11.2018 15:37:41 HeinzHarald
NotSolved
15.11.2018 17:51:35 Gast28503
NotSolved
21.11.2018 09:46:39 HeinzHarald
NotSolved
21.11.2018 14:56:58 Gast33679
NotSolved

Ansicht des Beitrags:
Von:
HeinzHarald		 Datum:
14.11.2018 14:12:44		 Views:
1066		 Rating:
     
Antwort:
  Ja
Thema:
AutoFilter von AA-AE

Hallo Leute,

Ich muss für die Arbeit einen bereits vorhandenen Code umschreiben. Hänge dabei an folgendem Problem

 

?
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
Sub trad()
Call pdf("8A", 2)
End Sub
Sub retro()
 
Call pdf("8C", 2)
 
End Sub
Sub ecg()
Call pdf("7I", 6)
End Sub
Sub pdf(ByVal crit As String, ByVal sht As Integer)
Dim stat As Integer
Dim rngprint As Range
Dim splt As Long
 
Set wb1 = ActiveWorkbook
Application.ScreenUpdating = False
 
wb1.Sheets(5).Columns("A:AZ").EntireColumn.Hidden = False
wb1.Sheets(5).Columns("A:AZ").ClearFormats
wb1.Sheets(5).Columns("A:AZ").ClearContents
wb1.Sheets(5).AutoFilterMode = False
wb1.Sheets(sht).AutoFilterMode = False
 
wb1.Sheets(5).ResetAllPageBreaks
wb1.Sheets(sht).Cells.AutoFilter Field:=5, Criteria1:=crit & "*", Operator:=xlFilterValues
wb1.Sheets(sht).Cells.Copy
wb1.Sheets(5).Cells(1, 1).PasteSpecial xlPasteValues
wb1.Sheets(sht).AutoFilterMode = False

Ich habe in einer Excel eine Liste mit Buchstaben von AA-AZ (und noch andere, aber die sind jetzt nicht wichtig)

So wie der Code bisher geschrieben ist, wird wenn ich z.B. trad() aufrufe folgendes zugewiesen:

Criteria1 = 8A* (also ruft es alles von AA-AZ auf)

Ich möchte aber, dass das lediglich von 8AA - 8AE geht.

Gibt es hierfür einen einfachen Trick?

VIelen Dank im Voraus,

Benjamin

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 AutoFilter von AA-AE
 14.11.2018 14:12:44 HeinzHarald
NotSolved
14.11.2018 14:51:41 codo
NotSolved
14.11.2018 15:12:41 codo
NotSolved
15.11.2018 15:37:41 HeinzHarald
NotSolved
15.11.2018 17:51:35 Gast28503
NotSolved
21.11.2018 09:46:39 HeinzHarald
NotSolved
21.11.2018 14:56:58 Gast33679
NotSolved