Thema Datum  Von Nutzer Rating
Antwort
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
Blau Versuch mal obs passt:
 04.06.2020 13:34:47 Nopsi
NotSolved
04.06.2020 13:55:53 Gast63871
Solved

Ansicht des Beitrags:
Von:
Nopsi		 Datum:
04.06.2020 13:34:47		 Views:
618		 Rating:
     
Antwort:
  Ja
Thema:
Versuch mal obs passt:

Vielen Dank für die Mühe etwas zu programmieren aber vor ca ner halben Stunde bin ich auch zu einer Lösung gekommen.

Hier mal der Code:

Option Explicit

Sub tst()
    Dim sTxt As String
    Dim sht As String
    Dim last As Long

    sht = "sht"
    last = Sheets(sht).Cells(Rows.Count, "A").End(xlUp).Row

   sTxt = InputBox("Teilenummer:")
   If sTxt = "" Then Exit Sub
   

    ActiveSheet.Range("$A$1:$V$12063").AutoFilter Field:=3, Criteria1:=sTxt
    Sheets(sht).Range("H1:H" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("E7")
    Sheets(sht).Range("L1:L" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("F7")
    Sheets(sht).Range("Q1:Q" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("G7")
    Sheets(sht).Range("U1:U" & last).Offset(1).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("H7")
    
    

    
    Sheets(sht).AutoFilterMode = False
    
End Sub

 

Das einzige Problem welches ich jetzt noch habe ist, dass die kopierten Werte keine Zahlen sind und erst noch umgewandelt werden müssen. Hat jemand dafür vielleicht noch ne Lösung?

Ich habe schon

Workbooks("Errechnung Dehnung_Schrumpfung.xls").Worksheets("BERECHNUNG").Range("$E$7:$H$139").NumberFormat = "0.0000"

Probiert aber das hat nicht so ganz funktioniert.

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:



  • 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
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
Blau Versuch mal obs passt:
 04.06.2020 13:34:47 Nopsi
NotSolved
04.06.2020 13:55:53 Gast63871
Solved