Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel 2003 bestand dorsuchen und printen

Frage Microsoft Microsoft Office

Mitglied: bob1986

bob1986 (Level 1) - Jetzt verbinden

18.07.2012 um 11:24 Uhr, 2386 Aufrufe, 4 Kommentare

entschuldige sie fur rechtschreibe fehler

schonen guten tag ich hoffe mir kan jemand helfen mit dem folgenden

ich habe einen excel bestand mit 3 benammte bletter und der rest ist benammt mit zahlen von 1 bis 100 wie hier unten

fbdf730631201a1bbeb08302491e466d - Klicke auf das Bild, um es zu vergrößern

wen ich im blatt3b317ed534084cf295f4fc6e91dea692 - Klicke auf das Bild, um es zu vergrößernreie A1 bis A100 schreibe,

z.b.

die zahlen in A1 bis A100 sind immer;

- 11 stellen lang
- darin konnen gros oder kleinbustaben vorkommen
- aber auch zahlen


wen ich in A1 bis A100 schreibe kopiert excel mir den wert in den dazugehorigen blatt

z.b.

ich schreibe in A30 diese zalencombina. ; 158964JKGTB
dan schreibt mir excel schon die zahl in das blatt 30 an einer bestimten stelle namlich in J50


#NAME?

ich mochte ein macro erstellen den ich an einen knopf zuweis das excel die blatter 90706f252c9ebbe7c1bf5f85abbf5e16 - Klicke auf das Bild, um es zu vergrößerndurchleuft

wen excel in dan blettern 1 bis 100 in J50 den 11 stelligen wert findent soll er alle blatter printen die diesen wert enthalten
wenn die blatter den vorgegebenen wert nicht enthalten soll er die dan nicht printen

ich habe noch nichts fertiges vieleicht haben hier leite schon etwas fertiges oder anliches was mich zu meinen ziel furen konte


ich habe excel 2003

schon mal danke schon fur eure hilfe und beidrage

mvg bob
Mitglied: catachan
18.07.2012 um 13:00 Uhr
Hi

gratuliere. Hab noch nie einen Beitrag gefunden mit so vielen Rechtschreibfehlern. Bitte lies nochmal drüber. Ist echt schwierig zu lesen.

LG
Bitte warten ..
Mitglied: Robobob
18.07.2012 um 13:39 Uhr
Hi,

er hat sich doch entschuldigt.
Ist doch offensichtlich das der Herr der deutschen Sprache nicht mächtig ist.

Ich schlage vor es das nächste Mal in Englisch zu schreiben.

Gruß
Bitte warten ..
Mitglied: 76109
18.07.2012, aktualisiert um 18:56 Uhr
Hallo Bob!

Sollte in ewta so gehen (Code in Tabellenblatt 'Nummer' kopieren):
01.
Option Explicit 
02.
Option Compare Text 
03.
 
04.
Const Bereich = "A1:A100" 
05.
Const Zelle = "J50" 
06.
 
07.
'Werte von A1:A100 in die Sheets 1-100 Zelle J50 schreiben 
08.
Private Sub Worksheet_Change(ByVal Target As Range) 
09.
    With Target 
10.
        If .Count <> 1 Or .Text = "" Or Application.Intersect(Range(Bereich), Target) Is Nothing Then Exit Sub 
11.
    End With 
12.
     
13.
    Sheets(CStr(Target.Row)).Range(Zelle).Value = Target.Value 
14.
End Sub 
15.
 
16.
'Alle Sheets mit numerischen Namen, die den Suchbegriff in Zelle J50 enthalten ausdrucken 
17.
Private Sub Button_Click()	 
18.
    Dim Wks As Worksheet, SheetArray As Variant, Suchtext As String, Count As Integer 
19.
     
20.
    Suchtext = InputBox("Bitte Suchbegriff eingeben:", "Suchen und drucken...") 
21.
     
22.
    If Suchtext <> "" Then 
23.
        For Each Wks In Sheets 
24.
            If IsNumeric(Wks.Name) Then 
25.
                If Wks.Range(Zelle).Value Like Suchtext Then 
26.
                    If IsArray(SheetArray) Then 
27.
                        Count = UBound(SheetArray) + 1 
28.
                        ReDim Preserve SheetArray(Count) 
29.
                        SheetArray(Count) = Wks.Name 
30.
                    Else 
31.
                        SheetArray = Array(Wks.Name) 
32.
                    End If 
33.
                End If 
34.
            End If 
35.
        Next 
36.
        If IsArray(SheetArray) Then Sheets(SheetArray).PrintOut Copies:=1 
37.
    End If 
38.
End Sub
Wobei nicht zwischen Groß/Kleinschreibung unterschieden wird

@Robobob
Ist doch offensichtlich das der Herr der deutschen Sprache nicht mächtig ist.
Das sehe ich genauso

Gruß Dieter
Bitte warten ..
Mitglied: TsukiSan
18.07.2012 um 17:10 Uhr
hi guys be nice!

even though bob isn't native german we should always keep in our minds that german
ain't an easy language and his questions is quite clear to understand. despite it's the second time he is asking this question.
this matter of fact is no good, bob!

but Dieter has got you some code and for the code language doesn't matter

@bob
if it is easier for you to write in english - never mind!

regards

Tsuki
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst Excel: Text in Zellbereich prüfen mit Vergleichstext ggf. mit Exact-Funktion (5)

Frage von Michi1 zum Thema Microsoft Office ...

Microsoft Office
gelöst Visio 2003 auf aktuellem System (6)

Frage von ratzla zum Thema Microsoft Office ...

VB for Applications
Excel VBA Sortierung von Daten (5)

Frage von easy4breezy zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...