Textfeld um Daten zu kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hm ok.
Hier ist ein Such-Modul welches du auf deine Bedürfnisse anpassen kannst.
Im Moment frägt es den Nutzer lediglich nach einem Suchbegriff und gibt dann
die Adresse der Zelle aus.


Sub Suchen()
Dim WB  As Workbook
Dim WBA As Workbook
Dim strInbox    As String
Dim Wahl        As String
Dim zelle As Range
Dim intWks As Integer
Dim FirstAddress
Dim bln As Boolean
Set WBA = ActiveWorkbook
strInbox = InputBox("Bitte einen Suchbegriff eingeben", "SUCHE")
If strInbox = "" Then
Exit Sub
End If
For Each WB In Workbooks
WB.Activate
For intWks = 1 To ActiveWorkbook.Sheets.Count
With Worksheets(intWks).UsedRange
Set zelle = .Find(strInbox, LookIn:=xlValues)
If Not zelle Is Nothing Then
FirstAddress = zelle.Address
bln = True
Do
Worksheets(intWks).Select
zelle.Select
Wahl = MsgBox("[ " & strInbox & " ] gefunden in: " & vbCr & vbCr & " _
Mappe: " & WB.Name & vbCr & "Tabelle: " & Worksheets(intWks).Name & vbCr & "Zelle: " & zelle.Address(0, 0) & vbCr & vbCr & "Weitersuchen?", vbYesNo)
If Wahl = vbNo Then
Set zelle = Nothing
Exit Sub
End If
Set zelle = .FindNext(zelle)
Loop While Not zelle Is Nothing And zelle.Address  FirstAddress
End If
End With
Next intWks
Next WB
If bln = False Then
MsgBox "Der Suchbegriff [" & strInbox & "] wurde nicht gefunden."
End If
Set zelle = Nothing
WBA.Activate
End Sub

Option Explicit Sub kopieren() Dim Bereich Application.DisplayAlerts = False On Error GoTo Abbruch Set Bereich = Application.InputBox("Bitte den zu kopierenden Bereich markieren" & vbLf & "oder _ einen gültigen Bereich angeben", , , , , , , 8) Bereich.Copy Destination:=Range("C4") MsgBox Bereich.Address & " wurde(n) kopiert." Abbruch: Application.DisplayAlerts = True End Sub

Sub kopieren1() Dim Bereich Application.DisplayAlerts = False On Error GoTo Abbruch If ActiveSheet.Name = "Tabelle 2" Then Sheehts("Tabelle 1").Select And Set Bereich = Application.InputBox("Please got to the tab ELINK (2) and mark the outputs for " & _ vbLf & "base load operation", , , , , , , 8) Bereich.Copy Destination:=Range("C6") MsgBox "base load data are copied " Abbruch: Application.DisplayAlerts = True End if End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textfeld um Daten zu kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread