vba

Hallo, weil man nicht sehen kann was da reinkopiert wird, lässt sich die Frage schlecht beantworten. Das Beispiel unten formatiert nach Rückfrage die ganze Spalte mit dem Sonderformat "Postleitzahl". Vielleicht hilft es ja: Sub PLZ_Fomat() Dim lngSpalte As Long 'ganze Spalte als Postleitzahl formatieren lngSpalte = ActiveCell.Column Columns(lngSpalte).Select If MsgBox("Spalte " & lngSpalte & " als PLZ formatieren?", _ vbQuestion + vbYesNoCancel, _ "") = vbYes Then Columns(lngSpalte).NumberFormat = "00000" Else MsgBox "Keine Änderung vorgenommen.", , "" End If End Sub Gruß Alfons

Das war mir nicht klar. OK die Datei ist jetzt aber angekommen und wenn das Makro an der richtigen Stelle eingefügt wird, funktioniert es auch einwandfrei. Für Tabelle1 muss das Makro im Klassenmodul von Tabelle1 abgespeichert sein und nicht in Modul1. Ich hab hier keine Fehlermeldungen. Gruß Alfons

ich will mir jetzt nicht extra Open Office installieren. Lade die Datei als Exceldatei rauf. Gruß Alfons

und wo sind die Makros? Gruß Alfons

Hallo, ich kann den Fehler nicht nachvollziehen. Hast Du am Beispiel was verändert? Datei mal raufladen? Gruß Alfons

Hallo, auch bei mehreren Spalten reicht ein Makro. der Tabellenaufbau ist mir aber nicht ganz klar. Wenn in Spalte A die Namen stehen und in Zeile 1 die Kategorien versuch's mal damit: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'aussteigen wenn nicht im Bereich B2:H10 If Application.Intersect(Target, Range("B2:H10")) Is Nothing Then Exit Sub 'aussteigen wenn mehr als eine Zelle markiert If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub 'hochzählen wenn Zahl If IsNumeric(Target.Value) Then Target.Value = Target.Value + 1 End Sub Gruß Alfons

Hallo, versuch es mal mit =Wert(A1) Gruß Alfons

da steht aber nichts von Baujahr: ImageShack - Hosting :: screenhunter06jun251512bh1.jpg Sub Modulaufruf_Zeilen_kopieren_alle_Tabellen() 'kopiert immer zwei Zeilen Dim letzte_Zeile As Long, Zeile As Long, Treffer As Long Dim wkb_Neu As Workbook Dim wks As Worksheet Dim Antwort As Integer Antwort = MsgBox("Ab jetzt werde ich meine Fragen genauer formulieren", vbYesNo, "") If Antwort = 7 Then Exit Sub End If Set wkb_Neu = Workbooks.Add Treffer = 1 For Each wks In ThisWorkbook.Worksheets wks.Activate 'letzte Zeile mit Inhalt Spalte A letzte_Zeile = wks.Cells(Rows.Count, 1).End(xlUp).Row For Zeile = 1 To letzte_Zeile If wks.Cells(Zeile, 1).Value = "Typ" Then 'wks.Rows(Zeile).Copy wkb_Neu.Worksheets("Tabelle1").Cells(Treffer, 1) wks.Range(Cells(Zeile, 1), Cells(Zeile + 1, Columns.Count)).Copy _ wkb_Neu.Worksheets("Tabelle1").Cells(Treffer, 1) Treffer = Treffer + 2 End If Next Zeile Next wks wkb_Neu.Activate Set wkb_Neu = Nothing MsgBox Treffer - 1 & " Zeilen kopiert", , "" End Sub Gruß Alfons ------------------------- meine Excelseiten: Excel-Dateien und VBA für Excel -------------------------

> Kann ich sowas, als .vbs skript machen? bestimmt. site:http://herber.de vbs - Google-Suche Gruß Alfons

ist nicht schön aber fluppt für alle Tabellen: Sub Modulaufruf_Zeilen_kopieren_alle_Tabellen() 'kopiert alle Zeilen in neue Mappe wenn 'in Spalte A "Typ" steht Dim letzte_Zeile As Long, Zeile As Long, Treffer As Long Dim wkb_Neu As Workbook Dim wks As Worksheet Set wkb_Neu = Workbooks.Add For Each wks In ThisWorkbook.Worksheets wks.Activate 'letzte Zeile mit Inhalt Spalte A letzte_Zeile = wks.Cells(Rows.Count, 1).End(xlUp).Row For Zeile = 1 To letzte_Zeile If wks.Cells(Zeile, 1).Value = "Typ" Then Treffer = Treffer + 1 wks.Rows(Zeile).Copy wkb_Neu.Worksheets("Tabelle1").Cells(Treffer, 1) End If Next Zeile Next wks wkb_Neu.Activate Set wkb_Neu = Nothing MsgBox Treffer & " Zeilen kopiert", , "" End Sub Gruß Alfons ------------------------- meine Excelseiten: Excel-Dateien und VBA für Excel -------------------------

und wo genau liegt das Problem? Fehlermeldung? Excelversion? den folgenden Code kannst Du auch in ein normales Modul packen. Die zu durchsuchende Tabelle muss dann aber die aktive sein! Sub Modulaufruf_Zeilen_kopieren_2() 'kopiert alle Zeilen in neue Mappe wenn 'in Spalte A "Typ" steht Dim letzte_Zeile As Long, Zeile As Long, Treffer As Long Dim wkb_Neu As Workbook Dim wks As Worksheet Set wks = ThisWorkbook.ActiveSheet 'letzte Zeile mit Inhalt Spalte A letzte_Zeile = wks.Cells(Rows.Count, 1).End(xlUp).Row Set wkb_Neu = Workbooks.Add For Zeile = 1 To letzte_Zeile If wks.Cells(Zeile, 1) = "Typ" Then Treffer = Treffer + 1 wks.Rows(Zeile).Copy wkb_Neu.Worksheets("Tabelle1").Cells(Treffer, 1) End If Next Zeile Set wks = Nothing Set wkb_Neu = Nothing MsgBox Treffer & " Zeilen kopiert", , "" End Sub Gruß Alfons ------------------------- meine Excelseiten: Excel-Dateien und VBA für Excel -------------------------

selber Hey Du musst das Makro im Klassenmodul der zu durchsuchenden Tabelle speichern/starten und nicht in einem anderen Modul. Gruß Alfons ------------------------- meine Excelseiten: Excel-Dateien und VBA für Excel -------------------------

Hallo, versuch das mal: Sub Zeilen_kopieren() 'kopiert alle Zeilen in neue Mappe wenn 'in Spalte A "Typ" steht Dim letzte_Zeile As Long, Zeile As Long, Treffer As Long Dim wkb_Neu As Workbook Set wkb_Neu = Workbooks.Add 'letzte Zeile Spalte A letzte_Zeile = Cells(Rows.Count, 1).End(xlUp).Row For Zeile = 1 To letzte_Zeile If Cells(Zeile, 1) = "Typ" Then Treffer = Treffer + 1 Rows(Zeile).Copy wkb_Neu.Worksheets("Tabelle1").Cells(Treffer, 1) End If Next Zeile Set wkb_Neu = Nothing MsgBox Treffer & " Zeilen kopiert", , "" End Sub Gruß Alfons ------------------------- meine Excelseiten: Excel-Dateien und VBA für Excel -------------------------

Hallo, aktive Spalte ermitteln: MsgBox ActiveCell.Column Gruß Alfons ------------------------- meine Excelseiten: Excel-Dateien und VBA für Excel -------------------------

da fehlte noch was: Option Explicit Dim Spalte As Long, Zeile As Long Private Sub txt_Eingabe_Change() If txt_Eingabe.Value = "" Then cmb_OK.Enabled = False Else cmb_OK.Enabled = True End If End Sub Alfons ------------------------- meine Excelseiten: Excel-Dateien und VBA für Excel -------------------------