Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 703 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 700, 701, 702, 703, 704, 705, 706 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Summary Tab 
Phelan XLPH

Antworten: 23
Aufrufe: 925

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 17:16   Titel: AW: Summary Tab Version: Office 2003
Hallo test mal und schau dir mal wo sich die Codes befinden im vba-Editor
  Thema: Spalte nach Wert durchsuchen und komplette Zeile kopieren 
Phelan XLPH

Antworten: 18
Aufrufe: 5415

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 14:59   Titel: AW: Spalte nach Wert durchsuchen und komplette Zeile kopiere Version: Office 2003
Hallo,

ins Modul "DieseArbeitsmappe" der neuen Mappe:
Private Sub Workbook_Open()
SuchenKopieren
End Sub

in ein Modul der neuen Mappe:
'SuchBegriff ist der Name der Tabelle zB. "Service Nord"
Sub SuchenKopieren()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngI As Long
Dim zell As Range
Dim strPfad As String
Dim strDatei As String
Dim bolMappeGeschlossen As Boolean

strPfad = "d:\test\" 'Anpassen
strDatei = "test2.xls" 'Anpassen

On Error Resume Next
Set wksQ = Workbooks(strDatei).Worksheets("Query_Kosten")
If Err.Number <> 0 Then
Err.Clear
bolMappeGeschlossen = True
Set wksQ = Workbooks.Open(strPfad & strDatei, 0).Worksheets("Query_Kosten")
End If

lngI = 23
For Each wksZ In ThisWorkbook.Worksheets
'Beispiel:Tabelle1-4 sind Tabellen die von der Suche ausgeschlossen werden
If wksZ.Name <> "Tab ...
  Thema: Spalte nach Wert durchsuchen und komplette Zeile kopieren 
Phelan XLPH

Antworten: 18
Aufrufe: 5415

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 13:38   Titel: AW: Spalte nach Wert durchsuchen und komplette Zeile kopiere Version: Office 2003
1. Heisst AKTUALISIEREN alle 16 Blätter säubern und die Daten frisch
aus Ursprungsmappe holen?
2. Sind denn die Daten aus der UrsprungsMappe alle in einem TabellenBlatt,also
soll nur in einem bestimmten TabellenBlatt nach den 16 Begriffen gesucht werden?
  Thema: Kleinsten Wert finden ohne Zellen zu benutzen. 
Phelan XLPH

Antworten: 6
Aufrufe: 918

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 13:31   Titel: AW: Kleinsten Wert finden ohne Zellen zu benutzen. Version: Office 2003
Hallo,

...eine erweiterte variante:

Sub Test_GKWert()
Dim a As Variant
a = Array(0.33, 3.1, -1.5, 5, -0.42, 1.26, 3.33, 9.21, -1.1, -8)
MsgBox GKWert(1, 2, a)
End Sub

Private Function GKWert(op, krit, arr) As Variant
Dim i As Integer
Dim k As Integer
Dim h As Variant
'Sortieren
For i = UBound(arr) To 0 Step -1
For k = 0 To i - 1
If arr(k) > arr(k + 1) Then
h = arr(k)
arr(k) = arr(k + 1)
arr(k + 1) = h
End If
Next
Next
MsgBox Join(arr, "/")
'Wert groesser/kleiner Wert "krit" ermitteln
For i = 0 To UBound(arr)
Select Case op
Case 1
If arr(i) > krit Then
GKWert = arr(i)
Exit For
End If
Case 2
If arr(i) >= krit Then
GKWert = arr(i&# ...
  Thema: Popup Fenster in Excel nach einer bestimmten Zeit? 
Phelan XLPH

Antworten: 3
Aufrufe: 1127

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 11:28   Titel: AW: Popup Fenster in Excel nach einer bestimmten Zeit? Version: Office 2003
Hallo, was meinst du mit Liste?
  Thema: Was nimmt Excel standardmäßig - DAO oder ADO 
Phelan XLPH

Antworten: 12
Aufrufe: 2244

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 11:21   Titel: AW: Was nimmt Excel standardmäßig - DAO oder ADO Version: Office 2007
Velleicht bringt dich das weiter...hab mich mit dem Thema noch nicht so
beschätigt:

http://www.online-excel.de/excel/grusel_vba.php?f=2
  Thema: VBA Programm das Zellen formatiert 
Phelan XLPH

Antworten: 4
Aufrufe: 282

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 09:51   Titel: AW: VBA Programm das Zellen formatiert Version: Office 2007
Hallo,

xlRange solltest du nicht verwenden wird als Konstante von Vba
genutzt. In Zukunft anderen Namen wählen zB "Bereich"

Private Sub CommandButton2_Click()
Dim wks As Worksheet
Dim rng As Range
Dim zell As Range

Set wks = ActiveWorkbook.Worksheets("Tabelle1")
Set rng = wks.Range("E2:H20")

For Each zell In rng
Select Case UCase(zell.Value)
Case "U", "K", "I", "D", "J", "L", ""
Case Else: zell.Interior.ColorIndex = 3 'Rot
End Select
Next

End Sub
  Thema: Loeschen nicht zulassen 
Phelan XLPH

Antworten: 14
Aufrufe: 391

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 09:35   Titel: AW: Loeschen nicht zulassen Version: Office 2003
Ok,

die Deaktievierung des Löschens wird erst aktiv wenn Tabelle1 neu
aktiviert wird.

klick auf Tabelle2 und dann wieder auf Tabelle1 und dann probier doch mal zu
löschen Very Happy
  Thema: Mit Makro checken ob Excel Datei Makros hat :-) 
Phelan XLPH

Antworten: 14
Aufrufe: 885

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 09:31   Titel: AW: Mit Makro checken ob Excel Datei Makros hat :-) Version: Office 2003
Was ist dein Zie????

Case hat doch Links zur Verfügung gestellt, was das Auslesen von
Makros angeht.

Aber hier ein Link:
http://www.online-excel.de/excel/singsel_vba.php?f=124
  Thema: Loeschen nicht zulassen 
Phelan XLPH

Antworten: 14
Aufrufe: 391

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 09:09   Titel: AW: Loeschen nicht zulassen Version: Office 2003
Hallo,

du musst beides von Michels kombinieren.

Hier in Tabelle1 kann nicht gelöscht werden und die "ENTF"-Taste ist
deaktiviert.
  Thema: Summary Tab 
Phelan XLPH

Antworten: 23
Aufrufe: 925

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. März 2009, 00:37   Titel: AW: Summary Tab Version: Office 2003
Hallo,

in ein StandardModul:
Sub SammelListe()
Dim wksZ As Worksheet
Dim wksQ As Worksheet
Dim rngQ As Range
Dim rngZ As Range
Dim rngQPO As Range
Dim rngZPO As Range
Dim zellZ As Range
Dim zellQ As Range
Dim zellPO As Range
Dim DicCol As Object
Dim keyD As Variant
Dim dummy As Variant
Dim arrRows() As Variant
Dim lngI As Long
Dim lngLZZ As Long
Dim strID As String
Dim intIdCol As Integer
Dim strSammelBlattName As String

strSammelBlattName = "Summary"
strID = "PO Number"

Set DicCol = CreateObject("Scripting.Dictionary")

Set wksZ = Worksheets(strSammelBlattName)
Set rngZ = wksZ.Range("A1").CurrentRegion.Rows(1).Cells

On Error GoTo ENDE
intIdCol = WorksheetFunction.Match(strID, rngZ, 0)
Set rngZPO = wksZ.Range(wksZ.Cells(2, intIdCol), wksZ.Cells(wksZ.Rows.Count, intIdCol).End(xlUp))

For Each wksQ In Worksheets
If wksQ.N ...
  Thema: Excel Suche, funktioniert nicht .... 
Phelan XLPH

Antworten: 8
Aufrufe: 2962

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2009, 21:50   Titel: AW: Excel Suche, funktioniert nicht .... Version: Office 2003
Das kannst du gut aufzeichnen...
  Thema: Zeichensatz nicht nur in länge einschränken? 
Phelan XLPH

Antworten: 5
Aufrufe: 314

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2009, 21:47   Titel: AW: Zeichensatz nicht nur in länge einschränken? Version: Office 2004 (Mac)
...Passwort leer bestätigen Shock
  Thema: Spalte alphabetisch sortieren 
Phelan XLPH

Antworten: 25
Aufrufe: 3403

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2009, 19:46   Titel: AW: Spalte alphabetisch sortieren Version: Office 2003
Hallo Mutz,

einfach mal ausprobieren...

->RechtsMausKlick auf den TabellenReiter der Tabelle die sortiert werden soll
->Code anzeigen
->hier meinen Code hineinkopieren

fertig.

Jetzt geb mal in deiner Liste in Letzter freien Zeile neue Daten ein.
Wie gesagt die ertse Zelle (SpalteA) als letztes mit füllen
  Thema: Spalte nach Wert durchsuchen und komplette Zeile kopieren 
Phelan XLPH

Antworten: 18
Aufrufe: 5415

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2009, 19:38   Titel: AW: Spalte nach Wert durchsuchen und komplette Zeile kopiere Version: Office 2003
Bevor ich anfang rumzuschnipseln...

Sind es jedes mal 16Suchbegriffe deren Ergebnisse in jeweils ein
neu angelegtes TabellenBlatt einer neuen Mappe abgelegt werden?

Sind die Suchbegriffe variabel? Sollen die vielleicht per hand eingegeben
werden?
 
Seite 703 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 700, 701, 702, 703, 704, 705, 706 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks