Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 392 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 389, 390, 391, 392, 393, 394, 395 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: jede 100 Spalte löschen 
Phelan XLPH

Antworten: 6
Aufrufe: 240

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Okt 2010, 15:04   Titel: AW: jede 100 Spalte löschen Version: Office 2007
Einfach mal testen. Very Happy
  Thema: Code nach und nach per Click ausführen 
Phelan XLPH

Antworten: 7
Aufrufe: 411

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Okt 2010, 21:58   Titel: AW: Code nach und nach per Click ausführen Version: Office 2007
Wie sieht der der Code aus? Was ist das Ziel deines Vorhabens?
  Thema: Ausgeblendete Registerkarten per Command Button anzeigen 
Phelan XLPH

Antworten: 12
Aufrufe: 1472

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Okt 2010, 21:55   Titel: AW: Ausgeblendete Registerkarten per Command Button anzeigen Version: Office 2003
so!?
  Thema: Formelübernahme beim Einfügen von neuen Spalten 
Phelan XLPH

Antworten: 2
Aufrufe: 341

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Okt 2010, 17:42   Titel: AW: Formelübernahme beim Einfügen von neuen Spalten Version: Office 2003
Hallo,

1.Spalte markieren
2.Rechtsklick -> Kopieren
3.Rechtsklick auf Zielspalte -> Kopierte Zellen einfügen

FERTIG!
  Thema: Ausgeblendete Registerkarten per Command Button anzeigen 
Phelan XLPH

Antworten: 12
Aufrufe: 1472

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Okt 2010, 11:59   Titel: AW: Ausgeblendete Registerkarten per Command Button anzeigen Version: Office 2003
Idea
  Thema: Daten von untereinander zu nebeneinander kopieren 
Phelan XLPH

Antworten: 15
Aufrufe: 1734

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Okt 2010, 09:39   Titel: AW: Daten von untereinander zu nebeneinander kopieren Version: Office 2007
Keine!

Es wird per Formel geschaut wo sich die 10-stellige Zahl befindet, die das
Ende eines Datensatzes markiert, und anhand dessen werden Datenblöcke
gebildet die dann transponiert werden.
  Thema: Ausgeblendete Registerkarten per Command Button anzeigen 
Phelan XLPH

Antworten: 12
Aufrufe: 1472

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Okt 2010, 09:34   Titel: AW: Ausgeblendete Registerkarten per Command Button anzeigen Version: Office 2003
Private Sub Worksheet_Activate()
Dim sh As Object
For Each sh In ThisWorkbook.Sheets
Select Case sh.CodeName
Case "Tabelle1", "Tabelle2" 'hier Auflisten zum Ausblenden
sh.Visible = False
End Select
Next
End Sub
  Thema: Daten von untereinander zu nebeneinander kopieren 
Phelan XLPH

Antworten: 15
Aufrufe: 1734

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 22:35   Titel: AW: Daten von untereinander zu nebeneinander kopieren Version: Office 2007
Versteh das Problem nicht.
  Thema: Mit Excel VBA Textdatei auslesen und Zahlenwerte berechnen 
Phelan XLPH

Antworten: 7
Aufrufe: 2077

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 19:48   Titel: AW: Mit Excel VBA Textdatei auslesen und Zahlenwerte berechn Version: Office 2003
ersetze folgende Zeile:
.Pattern = krit(i) & "-?\d*(\.\d+)?"
  Thema: Suchen in mehreren Tabellenblättern nach Wert X und Ausgabe 
Phelan XLPH

Antworten: 11
Aufrufe: 1467

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 19:04   Titel: AW: Suchen in mehreren Tabellenblättern nach Wert X und Ausg Version: Office 2007
Mir ist nicht klar was ausgegeben werden soll.
Sind es nur 3 Blätter in denen gesucht werden soll?
  Thema: Tabellenblätter zusammenführen aber ohne Überschriften? 
Phelan XLPH

Antworten: 3
Aufrufe: 1209

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 18:59   Titel: AW: Tabellenblätter zusammenführen aber ohne Überschriften? Version: Office 2003
Sub Konsolidieren()
Dim i As Integer
With Sheets("Daten")
.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)).ClearContents
End With
With Sheets("Daten1")
.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)).Copy _
Sheets("Daten").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
With Sheets("Daten2")
.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)).Copy _
Sheets("Daten").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub
  Thema: Zelleninhalte in Abhängigkeit von anderen Zellen angeben. 
Phelan XLPH

Antworten: 11
Aufrufe: 356

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 17:18   Titel: AW: Zelleninhalte in Abhängigkeit von anderen Zellen angeben Version: Office 2007
Das solltest du das Change-Ereigniss des Blattes nehmen.
  Thema: Daten von untereinander zu nebeneinander kopieren 
Phelan XLPH

Antworten: 15
Aufrufe: 1734

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 17:16   Titel: AW: Daten von untereinander zu nebeneinander kopieren Version: Office 2007
FAST PERFEKT:

Sub ph_Transpose()
Dim wks As Worksheet
Dim Bereiche As Range
Dim rngA As Range, i As Long
Set wks = Worksheets.Add

With Tabelle2 'anpassen
With .UsedRange
With .Columns(.Columns.Count).Offset(1, 1)
.Formula = "=IF(ISNUMBER(A1)*LEN(A1)=10,1,0)"
.Copy
.PasteSpecial xlPasteValues
On Error Resume Next
Set Bereiche = Intersect(.Parent.Columns(1), .EntireColumn.ColumnDifferences(.Find(1)).EntireRow)
For Each rngA In Bereiche.Areas
i = i + 1
wks.Cells(i, 1).Resize(, rngA.Rows.Count) = _
WorksheetFunction.Transpose(rngA)
Next
.ClearContents
End With
End With
End Wit
  Thema: Mit Excel VBA Textdatei auslesen und Zahlenwerte berechnen 
Phelan XLPH

Antworten: 7
Aufrufe: 2077

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 16:30   Titel: AW: Mit Excel VBA Textdatei auslesen und Zahlenwerte berechn Version: Office 2003
Hallo,

dann so vielleicht:

Sub ph_TxtImportCalculateExport()
Dim DateiOld As String
Dim DateiNew As String
Dim txt As String
Dim Regex As Object
Dim krit As Variant
Dim i As Integer
Dim s As String
Dim erg As Double

DateiOld = "d:\test\Old.txt" 'Anpassen
DateiNew = "d:\test\New.txt" 'Anpassen

krit = Array("A", "B", "E")
Set Regex = CreateObject("VBScript.Regexp")

Open DateiOld For Input As #1
Open DateiNew For Output As #2
Do While Not EOF(1)
Line Input #1, txt

For i = 0 To UBound(krit)
With Regex
.IgnoreCase = True
.Global = False
.Pattern = krit(i) & "\d*\.\d+"
If .Execute(txt).Count Then
s = Mid$(.Exe ...
  Thema: Daten von untereinander zu nebeneinander kopieren 
Phelan XLPH

Antworten: 15
Aufrufe: 1734

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Okt 2010, 15:36   Titel: AW: Daten von untereinander zu nebeneinander kopieren Version: Office 2007
Kunde1
Kunde1 adresse
Kunde1 telefon
kunde1 bemerkungen

Sind die Zeilen in SpalteA und SpalteB oder ist alles in SpalteA?[/quote]
 
Seite 392 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 389, 390, 391, 392, 393, 394, 395 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS