Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen filtern und kopieren
 03.06.2020 10:37:33 Nopsi
NotSolved
03.06.2020 12:59:38 Gast63871
NotSolved
03.06.2020 13:51:31 Gast58614
NotSolved
03.06.2020 14:07:00 Gast63871
NotSolved
03.06.2020 15:02:51 Nopsi
NotSolved
03.06.2020 15:08:34 Gast63871
NotSolved
04.06.2020 07:26:25 Nopsi
NotSolved
04.06.2020 08:00:29 Nopsi
NotSolved
04.06.2020 08:35:50 Gast87673
NotSolved
04.06.2020 09:29:05 Nopsi
NotSolved
04.06.2020 12:59:34 Gast63871
NotSolved
04.06.2020 13:34:47 Nopsi
NotSolved
04.06.2020 13:55:53 Gast63871
Solved

Ansicht des Beitrags:
Von:
Nopsi		 Datum:
03.06.2020 10:37:33		 Views:
1229		 Rating:
     
Antwort:
  Ja
Thema:
Zellen filtern und kopieren

Hallo zusammen,

ich habe folgendes Problem. Ich will in einer Arbeitsmappe  Spalten nach einer Benutzereingabe filtern und dann nur das gefilterte in eine Andere Abeitsmappe kopieren. Beim folgenden Code bekomme ich aber immer die Fehlermeldung "Die Methode "Range" für das Objekt "_Global" ist fehlgeschlagen". ich kenne mich null mit VBA aus und deswegen bitte ich um Rat.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Sub tst()
 
 
Dim sTxt As String
 
   sTxt = InputBox("Teilenummer:")
   If sTxt = "" Then Exit Sub
    
 
    Columns("A:V").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$V$12063").AutoFilter Field:=3, Criteria1:=sTxt
    Range("H2:H65500" & ActiveSheet.UsedRange.Rows.Count).Select
    Cells.SpecialCells(xlCellTypeVisible).Copy
    Application.WindowState = xlNormal
    Windows("Errechnung Dehnung_Schrumpfung.xls").Activate
    Range("E7").Select
    ActiveSheet.Paste
End Sub

MfG

Nopsi

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 Zellen filtern und kopieren
 03.06.2020 10:37:33 Nopsi
NotSolved
03.06.2020 12:59:38 Gast63871
NotSolved
03.06.2020 13:51:31 Gast58614
NotSolved
03.06.2020 14:07:00 Gast63871
NotSolved
03.06.2020 15:02:51 Nopsi
NotSolved
03.06.2020 15:08:34 Gast63871
NotSolved
04.06.2020 07:26:25 Nopsi
NotSolved
04.06.2020 08:00:29 Nopsi
NotSolved
04.06.2020 08:35:50 Gast87673
NotSolved
04.06.2020 09:29:05 Nopsi
NotSolved
04.06.2020 12:59:34 Gast63871
NotSolved
04.06.2020 13:34:47 Nopsi
NotSolved
04.06.2020 13:55:53 Gast63871
Solved